用VBA快速获取文件名的代码

977 主题	1093 帖子	1万积分

Rank: 9 Rank: 9 Rank: 9

发表于 2018-8-26 11:31:46 | 显示全部楼层 |阅读模式

Sub 文件名获取()

Dim i As Integer

Dim myDir, myF, str As String

myDir = "E:VBA教研室"

myF = Dir(myDir & "*.xls")

Do While myF <> ""

str = myF

i = i + 1

ThisWorkbook.Sheets(1).Cells(i, 1) = Left(str, Len(str) - 4)

myF = Dir()

Loop

End Sub

网站简介：表格智创网，是一家以表格设计和技能分享的专业社区，由会计帮帮网投资建设，尽专业，助提高专业技能。

表格智创网欢迎您！