㈠ 如何能夠自動執行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文檔的目錄下，雙擊運行即可，連宏也不用了一個文件搞定了。
（強烈建議：請務必在測試後使用！）
已經修改後，發給你了，查收一下。 :)