提取文件名带路径

hhxq001 · 发表于 2023-1-11 21:42

怎么才可以实现提取文件名时自带路径？

要求带路径.zip (31.26 KB, 下载次数: 23)

陆离Lowry · 发表于 2023-1-11 21:47

本帖最后由陆离Lowry 于 2023-1-11 21:49 编辑

加一句就行

liulang0808 · 发表于 2023-1-12 07:48

Sub 提取()
Dim p$, f, k&
With Application.FileDialog(msoFileDialogFolderPicker) '获取用户选择文件夹的路径

.Title = "请选择文件夹"
.InitialFileName = ThisWorkbook.Path & "\"          '默认打开当前目录"
If .Show = 0 Then MsgBox "本次提取已被取消！！": Exit Sub '如果没有选择保存路径，则退出程序
p = .SelectedItems(1) '选择的文件路径赋值给变量P

End With

  [a:b].ClearContents '清空汇总表的A列原有数据
  [a1] = "序号" '汇总表的a1写入。。。。
  [b1] = "文件名如下：" '汇总表的b1写入。。。。
  k = 1

For Each f In CreateObject("scripting.filesystemobject").getfolder(p).Files
If f <> ThisWorkbook.Name Then
k = k + 1  '累加文件个数
Cells(k, 1) = k - 1 '在k行1列写入提取的文件名

Cells(k, 2) = f  '在k行1列写入提取的文件名
End If
Next
MsgBox "提取完成"
End Sub

liulang0808 · 发表于 2023-1-12 07:51

fso文件对象，也可以的

zxx82 · 发表于 2023-1-12 10:48

陆离Lowry 发表于 2023-1-11 21:47
加一句就行

顺着这个思路请问大佬，如果提取对象还包含子文件下所有文件，如何添加代码呢？谢谢！

陆离Lowry · 发表于 2023-1-12 11:00

zxx82 发表于 2023-1-12 10:48
顺着这个思路请问大佬，如果提取对象还包含子文件下所有文件，如何添加代码呢？谢谢！

子文件一般我用递归

hhxq001 · 发表于 2023-1-12 11:06

liulang0808 发表于 2023-1-12 07:51
fso文件对象，也可以的

会把汇总表本身也提取进来呢

hhxq001 · 发表于 2023-1-12 11:07

陆离Lowry 发表于 2023-1-12 11:00
子文件一般我用递归

烦请露一手

zxx82 · 发表于 2023-1-12 11:20

陆离Lowry 发表于 2023-1-12 11:00
子文件一般我用递归

能否看看您如何写代码？坐等学习

陆离Lowry · 发表于 2023-1-12 11:40

hhxq001 发表于 2023-1-12 11:06
会把汇总表本身也提取进来呢

判断一下f<>thisworkbook.name

		自动登录	找回密码
密码			免费注册

[求助] 提取文件名带路径

评分