VBAで別のワークブックを読み込むサンプルコード

VBA

こないだ、自分のワークブックを読み込む方法を紹介した。それがこちらである。

しかし、VBAでの開発の際自分のワークブックを開いている時に別のワークブックを読み込みたい時もあるだろう。
そういう時はどうすればいいのか・・・?

答えは簡単である。
別のワークブックの名前を指定して開いてあげれば良いのだ。

それがこのコードである。もちろんコピペ自由だ。好きなように使って、テストしてみて欲しい。

Option Explicit
Private Sub set_workbook()

On Error GoTo Error
Dim wbActive As Workbook        '当ワークブック
Dim ansWorkbook As Workbook     '別ワークブック

    '当ワークブック
    Set wbActive = ThisWorkbook
    '別ワークブック(前回作った当ワークブック読込.xlsmを別ワークブックとして読み込む)
    Set ansWorkbook = Workbooks.Open("当ワークブック読込.xlsm")
    
    If Not (wbActive Is Nothing) Then Set wbActive = Nothing
    If Not (ansWorkbook Is Nothing) Then Set ansWorkbook = Nothing

Exit Sub

Error:
 'エラーメッセージ
MsgBox "エラーが発生しました" & _
    vbCrLf & "エラー番号: " & Err.Number & _
    vbCrLf & "エラー内容: " & Err.Description, vbExclamation
If Not (wbActive Is Nothing) Then Set wbActive = Nothing

End Sub

ここでは、前の記事「自分のワークブックを読み込む」時に作ったファイル「当ワークブック読込.xlsm」を別ワークブックとして読み込むファイルを作った。

では次に、ワークシートはどうなのかを見ていきたい。
それはまた次の記事で紹介していくので、ここで作ったファイルは「別ワークブック読込.xlsm」として保存しておいてね。

タイトルとURLをコピーしました