Question

我不是很擅长vba，所以请原谅我的业余问题。我有一个活动的工作簿打开包含3个选项卡。我想构建一个宏来打开另一个工作簿，并将三个选项卡中的数据粘贴到第二个工作簿上的三个选项卡中。

这是我的编码，它会在粘贴专线上打破。

ssh_extra_args

任何帮助都将非常感激。谢谢阿文

Answer 1

这是您的工作表事实查找专用的粘贴。修改代码以复制其他工作表，但不需要再次打开该文件。您要关闭哪个文件？

    Set wb = ThisWorkbook
    wb.Sheets("Fact Find").Range("A5:I283").Copy
    Workbooks.Open ("location")
    Workbooks("location").Worksheets("Fact Find").Range("A1").PasteSpecial xlPasteValues

    wb.Sheets("Entity Fact Find").Range("A4:F237").Copy
    Workbooks("location").Worksheets("Entity Fact Find").Range("A1").PasteSpecial xlPasteValues

用于复制工作表并将值粘贴到新工作簿的vba代码

1 个答案: