复制整个工作表-保持相同格式 [英] Copy an Entire Worksheet - Keep Same Formatting

问题描述

我想将工作簿"Trial Data.xlsx"中的工作表"Trial Sheet"复制到一个名为"Copy Worksheet"的单独工作簿中.我想保留格式(列宽，缩放等)，能够复制工作表而不必打开宏似乎没有做的试验数据"工作簿.

I would like to copy worksheet "Trial Sheet" located in workbook "Trial Data.xlsx" to a seaparate workbook called "Copy Worksheet". I would like to keep the format (column width, zoom, etc.), be able to copy the worksheet without having to open the "Trial Data" workbook which the macro doesn't seem to do.

我录制的宏如下.

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中的新工作表中)，但是没有了解如何修改我的特定文件而不会出现错误.任何帮助将不胜感激.

I came across a previous answer (Copy an entire worksheet to a new worksheet in Excel 2010) but don't understand how to modify for my specific files without an error. Any help would be greatly appreciated.

推荐答案

这应该为您提供指导:

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 ！

Why using those Windows() stuff ? Be clear: use Workbook for workbooks, Worksheet for...worksheets.
And stop using those slow and unnecessary .Activate !

这篇关于复制整个工作表-保持相同格式的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！