我正在努力获取其他工作簿的单元格值而不打开它。
这是我的一些代码:
Range("F3")= "='C:\inetpub\vhosts\hotdogko.com\httpdocs\private\excel\[Launch Pad.xls]Sheet1'!$B$12 "
当要提取的单元格值的数据类型是日期、整数或任何非字符串数据类型时,此代码运行良好。但它不能正确处理字符串数据类型,它只返回 #N/A。
感谢有人能给我这个问题的答案。
最佳答案
你可以试试下面的答案
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
关于VBA - 无需打开即可从其他工作簿获取单元格值,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/14192610/