string - 将外部单元格地址转换为vba中的范围

Question

我在单元格 A1 中有一个字符串，它是外部单元格(即另一个工作簿)的单元格地址，

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

在 vba 中，我想创建一个范围对象 myRange ，这将对应于存储在单元格 A1 中的地址。

我尝试了各种解决方案，但都没有奏效。

Answer 1

VBA:

函数引用(strAddress 作为字符串)作为范围

将 intPos 调暗为整数，intPos2 调暗为整数
暗淡 strWB 作为字符串，strWS 作为字符串，strCell 作为字符串

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)

结束功能