2

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

这是我的一些代码:

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

当要提取的单元格值的数据类型是 Date、Integer 或 Any not String 数据类型时,此代码运行良好。但它不能正确处理字符串数据类型,它只是返回#N/A。

感谢有人可以给我这个问题的答案。

4

3 回答 3

3

您可以尝试以下答案

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
于 2017-03-01T07:34:35.030 回答
1

如果你在 equal 之后添加 text 函数,它应该像这样工作:

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

也许您应该检查是否"正确,因为有时您必须添加 double ""

于 2019-03-20T15:03:52.827 回答
-1

尝试不使用引号 (" ")。它应该有帮助。

于 2015-05-26T11:12:36.697 回答