网上别人写的共享代码如下:
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
Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved. 闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)
鄂公网安备 42011102001154号
站长:MinTao ICP备案号:鄂ICP备11006601号-18