怎么用VB实现将一个文件夹里的文件名复制到excel里面？

Sub 按钮1_Click()File1.Path = "d:\a"File1.Pattern = "*.txt"Dim i As IntegerFor i = 0 To File1.ListCount - 1Cells(i + 1, 1) = File1.List(i)Next iEnd Sub
运行时在第二行 出现错误424
大神帮忙修改一下~
Sub 按钮1_Click()
File1.Path = "d:\a"
File1.Pattern = "*.txt"
Dim i As Integer
For i = 0 To File1.ListCount - 1
Cells(i + 1, 1) = File1.List(i)
Next i
End Sub

Sub test()

MyFileName = Dir("d:\*.txt")

i = 1

Do While MyFileName <> ""

   Cells(i, 1) = MyFileName

   i = i + 1

   MyFileName = Dir

Loop

End Sub

我曾经做过一个书目管理程序，就是将自己硬盘、光盘的书目名称做成数据库进行管理，想看什么书的时候，可以更快查找出来。 其中有引用文件名的语句，可能对你有帮助： dim str as string 'str用于存放文件的名称 dim i as integer l = forms![新增书目]![导入地址] '可以用窗体输入地址，如果地址固定，也可以自己直接赋值 str = dir(l) '这里将字符串改为路径 do while str <> "" i = i + 1 文件名.value = str '保存文件名 书名.value = trim(left(str, instrrev(str, ".", -1) - 1)) ’去掉扩展名，就是书名 docmd.gotorecord , "读取子窗体", acnewrec str = dir '得到下一个文件名 loop 以上为参考，请根据自己的文件名起名特点，自行用字符函数提取相关数据信息。