如何在VBA Excel中将数据从一个工作表复制并粘贴到另一个工作表

wfypjpf4  于 2022-11-26  发布在  其他
关注(0)|答案(1)|浏览(259)

我很难从工作表A复制数据并将其粘贴到工作表B中。我使用的是以下简单代码。

Sub CopyPasteWorksheet ()

Workbooks("New Data.xlsx").Worksheets("Export").Range("A2:D9").Copy _
    Workbooks("Repots.xlsm").Worksheets("Data").Range("A2")

End Sub

每次我尝试运行它时,它都会弹出此消息。enter image description here
我试过不同的方法复制和粘贴它。仍然不工作。

kr98yfug

kr98yfug1#

您必须先设置目标文件夹并打开目标文件

Sub CopyPasteWorksheet ()

    Dim wb As Workbook
    Dim wbtarget As Workbook
    Set wb = Workbooks.Open(Filename:= "Location of the file\New Data.xlsx",
    Set wbtarget = Workbooks.Open(Filename:= "Location of the file\report.xlsx",

    With Worksheets("export")
    
        .Range("A2:d9").SpecialCells(xlCellTypeVisible).Copy

        wbtartget.Worksheets(data).Range("A2").PasteSpecial xlPasteValues
End With

相关问题