「ブックを閉じたままデータ取得する(数式で取得)」をパーツ化する【ExcelVBA】

パーツ化とは

ExcelVBAマクロ初級者からの脱却が、処理のパーツ化(プロシージャの分割)と考えています。
マクロを作る上で基本機能をパーツ化する事で、開発時間の削減に繋がります。
処理はパーツ単位で分ける事を心掛けましょう。

分かりやすく説明すると、エクセルの「関数」と同様です。
SUM関数であれば セル内に「=SUM(1+2+3)」と記載すれば、セルには「6」と表示されますよね。
値を渡せば正しい値で返ってくる動きです。

このコードをコピペでOK

'■エクセルブックを開かずデータを抽出する
Public Function Call_NoOpenReadDataValue(fPath As String, sBookName As String, sSheetName As String, sAddress As String, rng As Range)
    
    '■数式で別ブックからデータを取得
    rng.Formula = "='" & fPath & "\[" & sBookName & "]" & sSheetName & "'!" & sAddress
    '■数式を値に変換
    rng.Value = rng.Value

End Function

上記関数を使用する事で、

使い方

上記をお好きなモジュール内にコピペしてください。
実際に使用する時は以下のような形で使用してください。

     Call Call_NoOpenReadDataValue("C:\vba", "aaa.xlsx", "Sheet1", "A1", Range("A1"))

注意点

上記が100%正解ではありませんが、求める結果がすぐにそのまま使用できます。
おいおい、マクロに慣れたら動きを理解してください。

参考記事

• 「ブックを閉じたままデータ取得する」をパーツ化する(ExecuteExcel4Macro)