㈠ 如何能够自动执行EXCEL宏脚本
Private Sub Workbook_Open()
End Sub
上面的过程可能不是您需要的。
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
End Sub
具体看您需要。
㈡ Excel 宏脚本，这个怎么修改
宏的运行或删除首先要在“宏的安全级别为低”的状态下才能进行，而Excel 默认“宏的安全级别为高”，所以打开带有宏的工作簿依次点击菜单“工具-->宏-->安全性”，打开“安全性”对话框。改成低安全性就行。
或者是只需要在注册表上修改下参数即可禁止excel宏的运行。点击任务栏上的【开始-运行】，然后在运行框上输入【regedit】命令回车，打开注册表，然后在注册表编辑器窗口上依次打开【HKEY_LOCAL_.0EXCELsecurity】，找到之后发现在右边窗口上有一项名称为level。双击打开它，在跳出的编辑DWORD值里面看到【数值数据(V)：】下面的空格，你就可以在里面修改数值啦。将其数值更改为3即可。
㈢ excel宏脚本问题
set ws=createobject("wscript.shell")
path=ws.currentdirectory
set fso=createobject("scripting.filesystemobject")
set folder=fso.getfolder(path)
set files=folder.files
for each file in files
if right(file,3)="xls" then call excel(file)
next
msgbox "操作成功！",48+4096,"系统提示"
sub excel(a)
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open(a)
intRow = 1
Do Until objExcel.Cells(intRow,1).Value = ""
h= objExcel.Cells(intRow, 1).Value
objExcel.Cells(intRow, 2).Value=left(h,3)
objExcel.Cells(intRow, 3).Value=mid(h,4,2)
objExcel.Cells(intRow, 4).Value=right(h,2)
intRow = intRow + 1
Loop
objExcel.ActiveWorkbook.Save '保存
objExcel.Quit
end sub
把上面的内容保存成VBS文件，之后把它复制到EXCEL文档的目录下，双击运行即可，连宏也不用了一个文件搞定了。
（强烈建议：请务必在测试后使用！）
已经修改后，发给你了，查收一下。 :)