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
发表评论
| Trackback