VBS以强制启用宏的方式打开EXCEL文件，无视用户设置

制作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