在 VBA 中复制粘贴

Question

我对 VBA 很陌生。我尝试使用以下代码将工作表复制粘贴到另一个工作表：

 Sub CopyPaste

 Dim Source As String
 Dim Destination As String

 Set Source ="\\D:\folder\source.xls"
 Set Destination="\\D:\folder\destination.xls"
 FileCopy Source, Destination
 End Sub

我主要使用中提供的代码： VBA to copy a file from one directory to another

但是它给出了对象必需的错误。我被困在这一点上。

非常感谢

Answer 1

Set 仅用于为对象类型变量赋值。

Sub CopyPaste

 Dim Source As String
 Dim Destination As String

 Source ="\\D:\folder\source.xls"
 Destination="\\D:\folder\destination.xls"
 FileCopy Source, Destination
End Sub

不过，路径之前的那两个反斜杠看起来很奇怪。

Answer 2

如果您要保存到网络路径，则将使用两个反斜杠，例如

"\\servername\sharename\filename.xls"

您的代码的正确语法应该是：

Sub CopyPaste
    Dim Src As String
    Dim Dst As String 

    Src ="D:\folder\source.xls" 
    Dst="D:\folder\destination.xls" 

    FileCopy Src, Dst
End Sub

正如 A.S.H 所说，记住不要将 Set 与字符串变量一起使用。

FileCopy 过去曾给我带来过问题，所以如果您遇到问题，您可以尝试以下代码作为替代方案：

Sub CopyPaste
    Dim fs As Object
    Dim Src As String 
    Dim Dst As String

    Src = "D:\folder\source.xls"
    Dst = "D:\folder\destination.xls"

    Set fs = CreateObject("Scripting.FileSystemObject")
    fs.CopyFile Src, Dst
    Set fs = Nothing
End Sub