国产一区二区欧美精品免费-欧美国产日韩在线视频-欧美亚洲国语精品一区二区-欧美激情五月综合啪啪-国产69精品麻豆久久久久-亚洲人成精品久久久久桥网站-欧美刺激肥熟在线视频-十七岁日本免费完整版BD-黑夜在线拖拽不卡第一页

Sub 提取文件名()
Set Fold = CreateObject("shell.application").BrowseForFolder(0, "請選擇存放數(shù)據(jù)的文件夾：", 0, "") '選擇文件夾
If Fold Is Nothing Then Exit Sub '如果沒選擇文件夾就退出循環(huán)
mp = Fold.Items.Item.Path & "\" '路徑
n = 1
mf = Dir(mp & "\*.*") '文件名
Do While mf <> "" And mf <> ThisWorkbook.Name '遍歷
Cells(1, 1) = "提取文件名顯示如下"
k = Application.Find(".", mf) - 1
Cells(n + 1, 1) = Left(mf, k) '數(shù)據(jù)寫入
mf = Dir '找尋下一個文件
n = n + 1 '計數(shù)、累加
Loop
ActiveWorkbook.Save '保存

End Sub

怎么改成循環(huán)讀取