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

如果在等號后添加text函數，則它應類似於：

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

也許您應該檢查"是否正確" ，因為有時您必須添加雙"" 。

Answer 3

嘗試不使用引號（“”）。 應該會有所幫助。