Excel VBA 別エクセルブックを開いてシートをVBA実行Bookにコピーする

別エクセルブックを開いてシートをVBA実行Bookにコピー
サンプルコード
コピーシートの位置

別エクセルブックを開いてシートをVBA実行Bookにコピー

うさこちゃん

このサンプルは別エクセルブックを開いてシートをVBA実行しているBookへのコピーのやり方です。
別Book(別エクセルファイル)シート👉VBAを実行してるBookにシートコピー

サンプルコード

うさこちゃん

サンプルコードでは最終のシートの後に追加しています。

    Dim ObjOpenBook       As Object
    Dim StrSheetName      As String
    Dim StrOpenFilePath   As String

    StrOpenFilePath = "C:\Data\データ.xlsx"

    'ファイルを開く
    Set ObjOpenBook = Workbooks.Open(StrOpenFilePath)
    
    'シートをコピー
    StrSheetName = ObjOpenBook.Worksheets(1).Name 'コピーするシートの指定
    ObjOpenBook.Worksheets(StrSheetName).Copy_
      After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)
    
    ' -----------------------------------------------------------------
    ' - 処理
    ' -----------------------------------------------------------------
        
    'ファイル閉じる。
    Workbooks(ObjOpenBook.Name).Close

コピーシートの位置

Before 指定した位置の前にコピー
Before:=ThisWorkbook.Worksheets(1)

After 指定した位置の後にコピー
After:=ThisWorkbook.Worksheets(1)

＊ThisWorkbook.Worksheets(1)　👉１はシート名を指定することも可能です。

シート最後にコピー
After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)

ExcelVBA逆引き大全 600の極意 Office365/2019/2016/2013/2010対応

ExcelVBAを仕事で使う際、「あれって、どうやるんだったっけ?」と困った時にサッと使うための逆引きテクニック集です。「コピペ使用に耐えうるサンプル」「スクショ画像を交えての丁寧な説明」「構文についてだけの情報もセットになっている」「関連するテクニックについての情報もすぐに引ける」という4つの条件を満たした情報をネットで探すのは非常に困難。デスクの片隅に常備したい1冊です。

詳細ページ

できる大事典 Excel VBA 2019/2016/2013&Microsoft 365(サンプルファイル・無料電子版付)

VBAを使ってコードを記述するには、プログラミングの知識や基本構文の理解などが必要です。しかし、基本的な概念や仕組みだけを覚えても、VBAを使って柔軟にプログラムを記述するのはなかなか難しいもの。自分の思い通りにプログラムを記述するには、使用したい機能の構文や、構文を記述する際の設定項目なども知ることが必要です。
992ページという大ボリュームに、Excel VBAを使ったあらゆる操作を凝縮しました。この1冊をお持ちいただければどんな場面でもすぐに役立つはず。クラスモジュールを利用したプログラムの作成方法や、Webスクレイピングを実行するVBAの記述方法など、高度な内容も解説しているため、一歩先を進んだ応用的な操作をしてみたい中級者の方にもおすすめの1冊です。

詳細ページ