1

ワークブック「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 でワークシート全体を新しいワークシートにコピーする) に出くわしましたが、特定のファイルをエラーなしで変更する方法がわかりません。どんな助けでも大歓迎です。

4

1 に答える 1

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ましょう！

于 2013-09-05T20:39:58.323 に答える