[[20220819165227]]　『修飾子が不正です』（１年生）　ページの最後に飛ぶ

『修飾子が不正です』（１年生）

別Bookへシートの範囲をコピーペーストするため、下記コードを実行したところ、「OpenFileName.Sheets(1).Range("B5:BC50000").PasteSpecial Paste:=xlPasteValues」でコンパイルエラー「修飾子が不正です」となり止まってしまいます。修正点をご教授いただけませんでしょうか？

Sub 別ブックへ貼り付け()

    Dim OpenFileName As String
    OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls?")
    Workbooks.Open OpenFileName

    Workbooks("集計ツール.xlsm").Sheets("code").Range("B5:BC50000").Copy'元シートのセル範囲をコピー
    OpenFileName.Sheets(1).Range("B5:BC50000").PasteSpecial Paste:=xlPasteValues'別ブックへ値のみ貼り付け   
    Application.CutCopyMode = False'範囲選択を解除

 End Sub

＜使用 Excel：Office365、使用 OS：Windows10 ＞

 Sub 別ブックへ貼り付け()
    Dim wb As Workbook
    Dim OpenFileName As String
    OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls?")
    Set wb = Workbooks.Open(OpenFileName)

    Workbooks("集計ツール.xlsm").Sheets("code").Range("B5:BC50000").Copy '元シートのセル範囲をコピー
    wb.Sheets(1).Range("B5:BC50000").PasteSpecial Paste:=xlPasteValues '別ブックへ値のみ貼り付け
    Application.CutCopyMode = False '範囲選択を解除
 End Sub

（西瓜） 2022/08/19(金) 17:10

ありがとうございます。Bookが無かったのですね！
（１年生） 2022/08/19(金) 17:27

コメント返信：

[ 一覧(最新更新順) ]

[[20220819165227]] 『修飾子が不正です』（１年生） ページの最後に飛ぶ

[[20220819165227]]　『修飾子が不正です』（１年生）　ページの最後に飛ぶ