公园管理处事业编待遇:转贴：EXCEL VBA从关闭的工作薄中取得某一工作表某一单元格数值

来源：百度文库编辑：中财网时间：2024/04/29 13:08:46

EXCEL VBA从关闭的工作薄中取得某一工作表某一单元格数值有点兴奋,今天不经意找到以前一直在找的一个EXCEL VBA功能,就是从关闭的工作薄中取得某一工作表某一单元格数值,以前做的时候都要先打开取数,再关闭,实在太麻烦了.

网上别人写的代码共享如下:

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

我想在excel中打开、保存、再关闭另一个工作薄，其vba代码怎么写 excel中VBA的问题求excel 中VBA的学习资料 Excel VBA中EXCEL对象？如何用VBA编写一个自定义函数，使它可以从关闭的文件中搜索数字或文本，而且该函数在工作表公式中必须可用在excel的VBA中计算某列中数据的最大值！！！！ excel的vba中绘图的一些问题 excel vba ontime的问题可否提供vba程序在excel中自动打开其它的excel表格？ excel vba 中如何得到一串文件名 Excel中如何封装VBA 代码 Excel VBA Excel VBA vba excel 文员之类的工作用EXCEL会常用VBA这类功能吗？ VBA高手请进（怎样在打开的EXCEL工作表中用VBA读入另一个存在盘上的工作表的指定页面）？急急急：怎么从access数据库中查询数据调到EXCEL单元格中啊？在VBA中的连接代码是什么？关于excel vba 中 Range（cells,cells).select 的引用问题用VBA编程如何遍历EXCEL每一个工作表那里下载EXCEL VBA编程的电子书籍关于一个excel vba编程的问题请教：一个EXCEL的VBA编程问题在EXCEL工作中遇到的问题关于EXCEL中工作表的问题