1 / 4
文档名称:

ExecuteExcel4Macro使用说明.pdf

格式:pdf   大小:145KB   页数:4页
下载后只包含 1 个 PDF 格式的文档,没有任何的图纸或源代码,查看文件列表

如果您已付费下载过本站文档,您可以点这里二次下载

分享

预览

ExecuteExcel4Macro使用说明.pdf

上传人:鼠标 2023/6/8 文件大小:145 KB

下载得到文件列表

ExecuteExcel4Macro使用说明.pdf

文档介绍

文档介绍:该【ExecuteExcel4Macro使用说明】是由【鼠标】上传分享,文档一共【4】页,该文档可以免费在线阅读,需要了解更多关于【ExecuteExcel4Macro使用说明】的内容,可以使用淘豆网的站内搜索功能,选择自己适合的文档,以下文字是截取该文章内的部分文字,如需要获得完整电子版,请下载此文档到您的设备,方便您编辑和打印。ExecuteExcel4Macro(宏函数)使用说明?用ExecuteExcel4Macro从未打开的Excel工作簿中读取数据(转载)?从另外一个未打开的Excel文件中读取数据的函数?下面这个函数调用XLM宏从未打开的工作簿中读取数据.?*注意:??该函数不能用于公式.??GetValue函数,需要以下四个变量?path:??未打开的Excel文件的路径?(.,?"d:\test")??file:??文件名(.,?"")??sheet:?工作表的名称?(.,?"Sheet1")??ref:??引?用的单元格?(.,?"C4")??'*********函数如下?Private?Function?GetValue(path,?file,?sheet,?ref)?'??从?未打开的Excel文件中检索数据?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)?'??执?行XLM?宏?GetValue?=?ExecuteExcel4Macro(arg)?End?Function使用该函数:?将该语句复制到VBA的模块中,然后,在适当的语句中调用该函数.?下面的例子显示D:\test??的Sheet1中的单元格”A1”的内容.?Sub?TestGetValue()?p?=?"d:\test"?f?=?""?s?=?"Sheet1"?a?=?"A1"?MsgBox?GetValue(p,?f,?s,?a)?End?Sub??(100行12列),并将结果填到当前工作表中.?Sub?TestGetValue2()?p?=?"d:\test?"?f?=?""?s?=?"Sheet1"??=?False?For?r?=?1?To?100?For?c?=?1?To?12?a?=?Cells(r,?c).Address?Cells(r,?c)?=?GetValue(p,?f,?s,?a)?Next?c?Next?r??=?True?End?Sub?说明:?如果工作簿处于隐藏状态,或者工作表是图表工作表,?使用说明??ExecuteExcel4Macro?方法?請參見?套用至?範例?特定??執行?Microsoft?Excel??集函數,然後傳回此函數的結果。傳回結果的型態取決於函數的型態。??(String)??expression??選擇性的。傳回?Application?物件的運算式。??String??必選的?String資?料型態。不帶等號的?Microsoft?Excel??巨集語言函數。所有參照必須是像?R1C1?這樣的字串。如果?String?內包含雙引號,則必須寫兩個。例如,要執行此巨集函數?=MID("sometext",1,4),String?應寫成?[MID(""sometext"",1,4)]。??註解?Microsoft?Excel??巨集不在目前活頁簿或工作表的環境中求值。也就是說所有的參照都應該是外部參照,而且需要明確指定活頁簿名稱。?例如,要在?Book1?中執行?Microsoft?Excel??巨集?[My_Macro]?,必須使用?[Book1!My_Macro()]。如果不指定活頁簿名稱,此方法將失敗。??範例?此範例對?Sheet1?的?C3?儲存格執行?(42)?巨集函數,然後在訊息方塊中顯示結果。(42)?巨集函數傳回目前視窗左限到目前儲存格的左邊之間的水平距離。Visual?Basic中?沒有與此巨集函數直接等價的函數。??Worksheets("Sheet1").ActivateRange("C3").Select?MsgBox?ExecuteExcel4Macro("(42)")???'***直接讀取c:\(不打開)?(比一楼的写法简单许多)?Sub?TestGetValue()?str0?=?"'C:\[]Sheet1'!R1C1"?MsgBox?ExecuteExcel4Macro(str0)?End?Sub)??雖然Excel?VBA的相關說明只有一點點,但我覺的?ExecuteExcel4Macro似乎好像有更多的用法,有待大家一同去發掘了

最近更新

现代文阅读Ⅰ主观题专项突破——论证思路和论.. 20页

七年级历史教师期末工作总结(共5则) 4页

成功的励志签名范文 4页

慰问信【精华】重阳节慰问信范文汇编6篇 7页

苏教版三年级语文下册《八单元作文》ppt课件 16页

七年级上册地理教学工作总结范文(精选5篇) 16页

基于目标-问题-度量模型的多级模糊软件测试质.. 4页

悬挑式卸料平台搭设施工方案 16页

黑龙江2018年12月黑河逊克县事业单位招聘63人.. 174页

黑龙江2018年09月中国社科院金融研究所招聘1人.. 184页

大(岩)薄板生产过程控制要点及技术难点探讨 5页

求职简历设计培训ppt课件 37页

鲁教版九年级化学ppt课件233原子中的电子 17页

简约时尚岗位竞聘通用动态PPT模板课件 24页

小学经典诵读篇目 11页

读书分享会图书馆知识宣传培训教育训练经典高.. 24页

小学生自然灾害安全教育教案详细版 7页

小学生精彩自我介绍四篇 4页

第八章--教育内容与途径课件 68页

内部建造师二级考试一套 85页

小学生必背古诗诵读70首(一二年级) 12页

内部全国法律资格考试完整版(A卷) 108页

小学生德智体自我评价 6页

小学生家乡自我介绍范文五篇 4页

精品全国法律考试内部题库及参考答案(能力提.. 105页

小学生古诗文诵读比赛方案汇编 6页

全部《推拿治疗学》教案 98页

概率理论与例题习题解答(英文版-durrett) 122页

中石油物资供应商名录 27页

2021年青联委员推荐人选事迹材料 3页