如何根据 Excel 填写路径提取该文件夹里的文件

hsm2913299

像图片里那样，Excel 填有路径了，想根据该路径提取所有文件到新的文件夹里面。

wangxinliang

Sub copy()
    ' 获取源文件夹路径
    wenjianlujing = ThisWorkbook.Sheets(1).Range("A1").Value
    ' 检查路径是否以反斜杠结尾，如果不是则添加
    If Right(wenjianlujing, 1) <> "\" Then wenjianlujing = wenjianlujing & "\"

    ' 设置目标文件夹路径
    targetPath = wenjianlujing & targetFolder & "新建文件夹"
   
   
    ' 创建文件系统对象
    Set fso = CreateObject("Scripting.FileSystemObject")
   
    ' 如果目标文件夹不存在，则创建
    If Not fso.FolderExists(targetPath) Then
        fso.CreateFolder targetPath
    End If
   
    ' 获取源文件夹中的所有文件
    For Each file In fso.GetFolder(wenjianlujing).Files
        ' 复制文件到目标文件夹
        fso.CopyFile file.Path, targetPath & "\" & fso.GetFileName(file.Path)
    Next file

    ' 清理对象
    Set fso = Nothing
    Set file = Nothing
End Sub

Kristine_He

按照链接里面的方法就可以实现
https://mp.weixin.qq.com/s/QCAZRs7K3zdICZXvLnQmKw

wangxinliang

读取A1单元格目录下的所有文件，并复制到新建文件夹内。

hsm2913299

wangxinliang 发表于 2024-8-18 21:37
Sub copy()
    ' 获取源文件夹路径
    wenjianlujing = ThisWorkbook.Sheets(1).Range("A1").Value

运行错误

david123456789

Xuedaol。