不打开工作簿的情况下直接读取工作表单元格的值

作者：绿色风分类：时间：2022-08-18 浏览：106

楼主
杨开科

　　Application.ExecuteExcel4Macro 方法
　　执行一个 Microsoft Excel 4.0 宏函数，然后返回此函数的结果。返回结果的类型取决于函数的类型。
　　语法：表达式.ExecuteExcel4Macro(String)
　　表达式：一个代表 Application 对象的变量。
　　参数
　　名称必选/可选数据类型描述
　　String 必选 String 一个不带等号的 Microsoft Excel 4.0 宏语言函数。所有引用必须是像 R1C1 这样的字符串。如果 String 内包含嵌套的双引号，则必须写两个。例如，要运行宏函数 =MID("sometext",1,4)，String 必须为 “MID(""sometext"",1,4)”。
　　返回值：Variant
　　说明：Microsoft Excel 4.0 宏不在当前工作簿或工作表的环境中求值。也就是说所有的引用都应该是外部引用，而且需要明确指定工作簿名。例如，要在 Book1 中执行 Microsoft Excel 4.0 宏“My_Macro”，必须使用“Book1!My_Macro()”。如果不指定工作簿名，此方法将失效。
　　本示例对工作表 Sheet1 上的 C3 单元格执行 GET.CELL(42) 宏函数，然后在一个消息框中显示结果。GET.CELL(42) 宏函数返回当前窗口左边界到活动单元格的左边之间的水平距离。Visual Basic 中没有与此宏函数直接等价的函数。

Sub test()
Worksheets("Sheet1").Activate
Range("C3").Select
MsgBox ExecuteExcel4Macro("GET.CELL(42)")
End Sub

本示例在不打开C:\ test.xlsx工作簿的情况下直接读取Sheet1工作表A1单元格的值，然后在一个消息框中显示结果。

Sub GetValue()
MyValue = "'C:\[test.xlsx]Sheet1'!R1C1"
MsgBox ExecuteExcel4Macro(MyValue)
End Sub

2楼
bluexuemei

学习,牛啊!

3楼
初学者2012

学习**************

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表