制作VBA表格作为工具给别人用的时候往往因为别人不会开启宏而用不了。这个方案也许可以解决问题
参考文章:
使用VBS强制打开宏文件http://club.excelhome.net/forum.php?mod=viewthread&tid=283306
VBS遍历文件https://www.cnblogs.com/sirrah/articles/2349177.html
方案详情:
同一文件夹内有3个文件,其中xls为工具表本身。VBS为强制打开工具表的运行工具,也就是说只要打开这个VBS,工具表就自动打开了。还有一个就是VBS的快捷方式,这个可以没有。使用就是把这3个文件放在同一个文件夹,工具表名可以随便取,后缀为XLS,如果是其他后缀的话要改VBS代码。
下面就是核心VBS的代码
Set objXL = WScript.CreateObject("Excel.Application")
'获取当前文件夹路径
sPath = createobject("Scripting.FileSystemObject").GetFolder(".").Path
on error resume Next
Set oFso = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFso.GetFolder(sPath)
Set oFiles = oFolder.Files
'遍历当前文件夹文件后缀为XLS的文件,找到第一个就打开
For Each oFile In oFiles
If Right(oFile.Path,3)="xls" Then
sPath = oFile.Path
Exit For
End If
Next
objXL.Workbooks.Open sPath '打开的XLS文件
objXL.Visible=true
Set objXL = Nothing