2013-01-07 32 views
0

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

下面是我的一些代码:

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

此代码工作良好,当单元格的值的数据类型,以拉是日期,整数或任何不字符串数据类型。但它不会正确工作字符串数据类型,它只是返回#N/A。

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

+1

尝试你有一个等于它告诉Excel中接踵而来的是一个公式或数字等号(=)。尝试删除等号。 –

+0

删除=号不起作用。它返回字符串公式 –

回答

-1

尝试使用而不使用引号(“”)。它应该有所帮助。

+0

它不适合我。 –

0

你可以用以下的答案

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 
相关问题