0

あるワークブックから別のワークブックに "Sheet1" をコピーするマクロを作成しようとしましたが、実行時エラー '9': 下付き文字が範囲外です。

Sub CopySheetToOtherWbk()

Dim CopyFromBook As Workbook
Dim CopyToWbk As Workbook
Dim ShToCopy As Worksheet

Set CopyFromBook = Workbooks("AllBugs.xlsx")
Set ShToCopy = CopyFromBook.Worksheets("Sheet1")
Set CopyToWbk = Workbooks("YourFriendlyNeighborhoodTemplateWorksheet.xlsx")

ShToCopy.Copy After:=CopyToWbk.Sheets(CopyToWbk.Sheets.Count)

End Sub

強調表示されている行は、"Set CopyFromBook = Workbooks("AllBugs.xlsx")" です。ここで何が間違っているのかわかりません。VBA初心者です。どんな助けでも大歓迎です。

4

1 に答える 1

1

コレクションは、現在開いているすべてのWorkbooksブックを参照します。ワークブックが開いていない場合は、最初にこれを行う必要があります。

Set CopyFromBook = Workbooks.Open("C:\Some Location\AllBugs.xlsx")
于 2013-07-17T13:59:57.443 に答える