如题,我已编写出部分程序,只能实现获取某一文件夹中单一文件的路径及名称,但无法实现文件夹中成百上千个文件的路径和名称,修高手修改,顺便rem一下。。。。
Sub 提取文件名()
'
' 提取文件名 Macro
Dim myfilename As String, mypath As String
ChDir Application.DefaultFilePath
mypath = "E:\提取文件名测试\"
myfilename = Application.GetOpenFilename
Range("A1") = myfilename
End Sub
Sub 提取文件名()
Dim iFiles
ChDrive "E:"
ChDir "E:\提取文件名测试\"
iFiles = Application.GetOpenFilename(, , , , True)
If IsArray(iFiles) = 0 Then MsgBox "没有选择文件!": Exit Sub
Range("A1").Resize(UBound(iFiles) + 1, 1) = Application.WorksheetFunction.Transpose(iFiles)
End Sub
Dim iFiles
ChDrive "E:"
ChDir "E:\提取文件名测试\"
iFiles = Application.GetOpenFilename(, , , , True)
If IsArray(iFiles) = 0 Then MsgBox "没有选择文件!": Exit Sub
Range("A1").Resize(UBound(iFiles) + 1, 1) = Application.WorksheetFunction.Transpose(iFiles)
End Sub
温馨提示:答案为网友推荐,仅供参考