excel - 复制整个工作表 - 保持相同的格式

Question

我想将位于工作簿“Trial Data.xlsx”中的工作表“Trial Sheet”复制到名为“Copy Worksheet”的单独工作簿中。我想保持格式（列宽、缩放等），能够复制工作表而不必打开宏似乎没有的“试用数据”工作簿。

我录制的宏如下。

Sub worksheet_copy()


Windows("Trial Data.xlsx").Activate
Cells.Select
Selection.Copy
Windows("Copy Worksheet.xlsm").Activate
Cells.Select
ActiveSheet.Paste

End Sub

我遇到了以前的答案（将整个工作表复制到 Excel 2010 中的新工作表），但不明白如何修改我的特定文件而不会出现错误。任何帮助将不胜感激。

Answer 1

这应该给你方向：

Sub worksheet_copy()

    Thisworkbook.worksheets("SheetName").Range("A:AB").Copy  _
        destination:= workbooks("Copy Worksheet.xlsm").worksheets(1).cells(1,1)

End Sub

为什么要使用那些Windows()东西？明确：Workbook用于工作簿，Worksheet用于...工作表。
并停止使用那些缓慢且不必要的.Activate！