string - VBAで外部セルアドレスを範囲に変換する

Question

外部セル (つまり、別のワークブック) のセル アドレスであるセル A1 に文字列があります。

'[data transfer utility.xlsb]Sheet1'!$B$5

myRangevbaで、セル A1 に格納されているアドレスに対応する範囲オブジェクト を作成したいと思います。

さまざまな解決策を試しましたが、うまくいきませんでした。

Answer 1

VBA の場合:

ExecuteExcel4Macro("'C:\[Book1.xlsx]Sheet1'!" & Range("A1").Address(, , xlR1C1))

エクセルの場合:

='C:\[Book1.xlsx]Sheet1'!$A$1

Answer 2

VBA:

関数参照 (文字列としての strAddress) としての範囲

    整数としての Dim intPos、整数としての intPos2
    Dim strWB As String、strWS As String、strCell As String

    intPos = InStr(strAddress, "]")
    strWB = Mid(strAddress, 2, intPos - 2)

    intPos2 = InStr(strAddress, "!")
    strWS = Mid(strAddress, intPos + 1, intPos2 - intPos - 2)

    strCell = Mid(strAddress, intPos2 + 1)

    参照 = Workbooks(strWB).Worksheets(strWS).Range(strCell)

終了機能