VBA - 从另一个工作簿获取单元格值而不打开

Question

我正在努力获取其他工作簿的单元格值而不打开它。

这是我的一些代码：

Range("F3")= "='C:\inetpub\vhosts\hotdogko.com\httpdocs\private\excel\[Launch Pad.xls]Sheet1'!$B$12 "

当要拉取的单元格值的数据类型是Date，Integer或Any not String数据类型时，此代码运行良好。但是对于字符串数据类型它不能正常工作，它只返回#N / A.

感谢能为我提供这个问题答案的人。

Answer 1

您可以尝试以下答案

Sub ReadDataFromAnotherWorkBook()

    ' Open Workbook A with specific location
    Dim src As Workbook
    Set src = Workbooks.Open("C:\Users\chan.yoonghon\Desktop\Excel\BookA.xlsx", True, True)

    Dim valueBookA As Integer
    Dim valueBookB As Integer

    valueBookA = src.Worksheets("sheet1").Cells(1, 1)
    Cells(1, 1).Value = valueBookA

    ' Close Workbooks A
    src.Close False
    Set src = Nothing

     ' Dialog Answer
    MsgBox valueBookA
End Sub

Answer 2

如果在等于之后添加文本函数它应该工作如下：

Range("F3")= "=text("'C:\inetpub\vhosts\hotdogko.com\httpdocs\private\excel\[Launch Pad.xls]Sheet1'!$B$12 " ;"") "

也许你应该检查"是否正确，因为有时你必须添加双""。

Answer 3

不使用引号（“”）尝试。它应该有所帮助。