要解决本例的问题，可以用下面的过程：

Sub 获取文件名称()
Dim Irow As Integer, FileName As String
Irow = 1
FileName = Dir("D:\我的文件\*.xlsx")
Do While FileName ""
Cells(Irow, "A").Value = FileName
Irow = Irow + 1
FileName = Dir
Loop
End Sub

上一篇：excel表格教程：禁止选择A列以外的单元格 下一篇： 使用多维数组存储数据

郑重声明：本文版权归原作者所有，转载文章仅为传播更多信息之目的，如作者信息标记有误，请第一时间联系我们修改或删除，多谢。