时间戳

首页 > 解决方案 > 是否需要解压缩文件夹才能让宏访问其文件？

excel - 是否需要解压缩文件夹才能让宏访问其文件？

问题描述

是否需要解压缩文件夹才能让宏访问其文件？我正在尝试将文件从压缩文件移动到它们各自的文件夹中，并且想知道是否需要解压缩该文件夹才能让文件系统对象复制它。谢谢

标签： excelvba

解决方案

Sub MoveFiles()
    Dim FSO As Object
    Dim SourceFileName As String, DestinFileName As String

    Set FSO = CreateObject("Scripting.Filesystemobject")

    SourceFileName = Sheets("NIS File Allocation").Cells(2, 2).Value
    DestinFileName = Sheets("NIS File Allocation").Cells(2, 7).Value
    MsgBox FSO.FileExists(SourceFileName)


    Call FSO.CopyFile(SourceFileName, DestinFileName, False)

    MsgBox (SourceFileName + " Copied to " + DestinFileName)

End Sub

运行此代码时，SourceFileName 必须位于解压缩文件夹中才能将其复制到目标文件。否则将导致“找不到路径”错误。使用 .FileExists 测试

推荐阅读