【第22期】观点:IT 行业加班,到底有没有价值?

Excel VBA 不打开Excel文件访问其中内容的方法

转载 2015年07月11日 09:29:04
Public Function GetCellValue(strPath, strFile, strSheet, strA1)
    If Right(strPath, 1) <> "\" Then strPath = strPath & "\"
    If Dir(strPath & strFile) = "" Then     '判断文件是否存在
        '文件不存在时产生运行时错误,此错误会传递给调用此函数的过程
        Err.Raise 12345, "GetCellValue", "No found file"
        Exit Function
    End If
    '调用XLM4.0宏表函数读取指定区域的内容
    '如果指定工作表不存在,返回错误
    GetCellValue = ExecuteExcel4Macro("'" & strPath & "[" & strFile & "]" _
        & strSheet & "'!" & Range(strA1).Address(, , xlR1C1))
End Function

举报

相关文章推荐

搜集各种Excel VBA的命令供参考!

本示例为设置密码窗口 (1) If Application.InputBox("请输入密码:") = 1234 Then [A1] = 1 密码正确时执行 Else: MsgBox "密码错误,即将退...

利用VBA编程实现从EXCEL表到AUTOCAD表转换

一、前言 ---- Microsoft Excel 软件具有十分强大的制表、表格计算等功能,是普通人员常用的制表

欢迎关注CSDN程序人生公众号

关注程序员生活,汇聚开发轶事。

各种Excel VBA的命令

本示例为设置密码窗口 (1) If Application.InputBox("请输入密码:") = 1234 Then [A1] = 1 '密码正确时执行 Else: MsgBox "密码错误,即将退出!" '此行与第2行共同设置密码 End If 本示例为设置密码窗口 (1) X = MsgBox("是否真的要结帐?", vbYesNo) If X = vbYes Then Close 本示例为设置工作表密

Microsoft Excel不能访问文件,不能保存,不能单击打开文件的解决方法

Microsoft Excel 不能访问文件"C:\Users\james\Documents\test.xls"。 可能的原因有以下几个:   • 文件名称或路径不存在。   • 文件正被其他程...

来吧!带你玩转 Excel VBA

来吧!带你玩转 Excel VBA(含<strong
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)