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似乎好像有更多的用法,有待大家一同去發掘了

最近更新

2022-2023年度教科版六年级科学(下册)第一单元.. 7页

2022-2022学年高中化学专题1.1.2蒸馏和分液课.. 34页

2022大学军训心得有感范本5篇 6页

后外侧切口单孔胸腔镜右肺中叶切除术1例 2页

2022年保安班长述职报告-大学班长述职报告 1页

2022年高中第二学期化学教学的工作计划5篇 12页

2022春冀教版语文六下《鸟是树的花朵》ppt课件.. 12页

2022秋人教版语文一年级上册《语文园地一》pp.. 31页

2022语文A版语文四上《暮江吟-秋夕》ppt课件2.. 12页

时尚百搭的纯色背心 24页

2024年人教版小学四4年级下册数学期末计算题综.. 13页

2024年方解石项目资金筹措计划书代可行性研究.. 65页

2024年儿童护肤品项目资金需求报告代可行性研.. 63页

5人民币兑换 15页

精选帮助学生建立学习英语的成就感和自信心 9页

精选巴中市张家河综合整治工程施工便道 17页

时尚围巾展现多样风格的时尚围巾 28页

无人驾驶汽车的关键技术 28页

ppt模板:(框架完整)极简清新工作总结PPT模板.. 27页

方程的解的振幅性与解的振幅公式 23页

【妇科研究】妇科急腹症彩色多普勒超声诊断与.. 3页

从高中语文教材中发掘作文素材 6页

保证书保证书保证书格式 3页

城市流浪乞讨人员救助管理办法 21页

清明扫墓祝文 3页

颗粒分析试验(密度计法) 6页

新课程标准(2011) 2页

挂篮施工检查表新编最全 20页

校园生物种类调查研究报告 6页

《民事责任》PPT课件 26页