Question

我想用修改后的名称在不同的位置创建excel文件的副本。下面的代码用修改后的名称移动文件而不是复制。

我不想从原始位置删除文件只想创建副本。请协助。

AS

Answer 1

我从未尝试过FSO副本，但应该这样做：

ab,ab

的优点是您可以异步恢复代码。

Answer 2

这会在保留原件的同时复制文件。它和你的代码基本相同，所以@CLR说 - 也许你的程序中有更多代码删除了原始代码？

Sub Test()

    MsgBox CopyFile("C:\_Test\A\New Microsoft Excel Worksheet.xlsx", _
                     "C:\_Test\B\Copy Of File.xlsx", False)

End Sub

Function CopyFile(FromFile As String, ToFile As String, Overwrite As Boolean) As Boolean

    Dim oFSO As Object
    Set oFSO = CreateObject("Scripting.FileSystemObject")

    On Error Resume Next
    oFSO.CopyFile FromFile, ToFile, Overwrite
    CopyFile = (Err.Number = 0)
    Err.Clear

End Function

VBA创建移动而不是移动文件

2 个答案: