六合开奖结果现场直播欢迎诸位!收藏本站注 册登 陆
常用三肖中特马:基础知识网络知识操作系统WPS网页制作数据库算法网页成功之路网络安全最新技术古典mid流行midmid背景下载中心
您现在的位置:首页 > 三肖中特马 > 文章页

利用VBA从已关闭的工作薄中取得某一工作表某一单元格数值

Admin | 2008-1-14 19:32:28 | ReadNums | 7531 | 标签 六合开奖结果现场直播 | 打印本页
     

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

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


问题未解决:在线咨询

网友评论

(访客)
内容实用原创,讲得很好。
20xx年x月x日
(站长)
有问题请在线咨询。
20xx年x月x日