VBA中offset的用法以及获取文件夹下面文件名的方法

2010年4月8日 | 标签:

要弄个VBA,刚学了OFFSET的用法,好记性不如烂笔头。觉得在学习的过程中养成好的记笔记的习惯,是非常重要的。现在就把它给记下来吧!
刚才测试成功了!!

Private Sub CommandButton1_Click()
Dim strDir As String
Dim strFileName As String
Dim A As Range

strDir = “E:\test”

strFileName = Dir(strDir & “\*.*”, vbNormal)
Set A = ActiveSheet.Range(“A1″)
Do While strFileName <> “”
A.Value = strDir & ” \ ” & strFileName
strFileName = Dir
Set A = A.Offset(1, 0)
Loop

End Sub

目前还没有任何评论.