动态文件名

问题描述

我正在使用“运行命令工具”创建一个简单的工作流程，我需要在启用了宏的文件中运行该宏。但是我希望我的工作流是动态的，所以我插入了一个文件浏览器工具以选择“ .xlsm”文件，然后使用“运行命令工具”运行宏。

这是我的VBScript

dim fso: set fso = CreateObject("Scripting.FileSystemObject")
dim CurrentDirectory    
Set objExcel = CreateObject("Excel.Application")
CurrentDirectory = fso.GetAbsolutePathName(ThisWorkbook.Path)
Set objWorkbook = objExcel.Workbooks.Open(CurrentDirectory & "\*.xlsm")
objExcel.Application.Visible = True
objExcel.Application.Run "ClearContents"
objExcel.ActiveWorkbook.Save
objExcel.ActiveWorkbook.Close
objExcel.Application.Quit
WScript.Echo "Finished."
WScript.Quit

例如我已经使用文件浏览器工具选择了“ .xlsm”文件，如何使用该文件并在所选文件中运行宏。

正如您在VBScript中看到的那样，我已将路径和文件名设置为静态。如何根据选择的文件更改该文件？

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）