网上别人写的共享代码如下:
Private Function GetValue(path, file, sheet, ref)
' 从关闭的工作薄返回值
Dim arg As String
'确定文件是否存在
If Right(path, 1) <> "\" Then path = path & "\"
If Dir(path & file) = "" Then
GetValue = "File Not Found"
Exit Function
End If
'创建公式
arg = "'" & path & "[" & file & "]" & sheet & "'!" & Range(ref).Range("A1").Address(, , xlR1C1)
'执行EXCEL4宏函数
GetValue = Application.ExecuteExcel4Macro(arg)
End Function
'参数说明
'-----------------------------------------------------------------
'path：文件路径
'file：文件名称
'sheet：工作表名称
'ref： 单元格区域
'-----------------------------------------------------------------
Sub kk()
Range("a1").Value = GetValue("D:\", "book2.xls", "Sheet1", "b2")
End Sub
直接读取c:\test.xls(不打开)中sheet1.a1的值另一种参考代码 (比一楼的写法简单许多)
Sub TestGetValue()
str0 = "'C:\[test.xls]Sheet1'!R1C1"
MsgBox ExecuteExcel4Macro(str0)
End Sub