VBA - 从其他工作簿获取单元格值而不打开 [英] VBA - Get Cell Values from other workbook without opening

问题描述

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

I'm working to get the cell value of other workbook without opening it.

以下是我的一些代码：

范围（F3）= ='C：\inetpub\vhosts\hotdogko.com\httpdocs\private\excel\ [启动Pad.xls] Sheet1'！$ B $ 12

这个代码工作正常，单元格值的数据类型是Date，Integer或Any不是String数据类型。但是它不能正常工作来输入数据类型，只是返回＃N / A。

This code is working well when data type of the cell value to pull is Date, Integer or Any not String data type. But it wont work correctly to string data type, it just returning #N/A.

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

Thanks for someone who can give me an answer for this problem.

推荐答案

您可以尝试以下回答

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 - 从其他工作簿获取单元格值而不打开的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！