3个回答
展开全部
在sheet1上直接加一个按钮
打开vb编辑器
把下面的代码复制到sheet1的代码页上
Private Sub CommandButton1_Click()
Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder("E:\data")'假设文件位置是:E:\data
Set fc = f.Files
For Each f1 In fc
ActiveCell.Value = f1.name
ActiveCell.Offset(1, 0).Activate
Next
End Sub
打开vb编辑器
把下面的代码复制到sheet1的代码页上
Private Sub CommandButton1_Click()
Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder("E:\data")'假设文件位置是:E:\data
Set fc = f.Files
For Each f1 In fc
ActiveCell.Value = f1.name
ActiveCell.Offset(1, 0).Activate
Next
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询