【問題】Excel 巨集如何自動執行??



贊助商連結


kasman
2008-08-24, 12:08 PM
描述:已經寫好一個巨集, 儲存在一個獨立excel的A檔案, 每次要使用巨集時
會先開啟A檔案, 再開啟"檔案一", 然後執行A檔案的巨集獲得所要的結果

問題1:
使用上述方式執行少數檔案是很方便, 但是一但檔案數量很多時, 每個檔
案都要按一次"執行巨集", 非常耗費時間!
假設我有100個excel檔案(.cvs)要執行A檔案中的巨集, 那我要如何讓
這100個檔案自動執行巨集??

問題2:
執行巨集完的100個檔案都是.cvs 附檔名, 但是我要儲存為.xls附檔名
的檔案, 有什麼方法可以一次儲存所有檔案為.xls的格式??

麻煩大大幫忙解惑一下, 感恩:lovely:

贊助商連結


ICLA
2008-08-26, 01:41 PM
問題二:

Rem SaveAsXls

'MsgBox(prompt[, buttons] [, title] [, helpfile, context])
SaveAsXls = MsgBox("Would you like to save current file as .xls?", vbYesNo, "Save as XLS")

If SaveAsXls = vbYes Then

FullPathXls = ActiveWorkbook.Path & "\" & Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & ".xls"

ActiveWorkbook.SaveAs Filename:=FullPathXls, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False

End If

XlsNotSaved:
If Err.Number = 1004 Then MsgBox "Xls not saved." & vbCr & vbLf & "You may need to save as xls manually!"

ICLA
2008-08-26, 01:45 PM
問題一:

巨集寫在 XLS,然後另存為 XLA 應該會比較好用。

kasman
2008-08-30, 03:35 AM
謝謝ICLA大大對問題二的解答
至於問題一的部分, 由於公司的電腦有封鎖對C磁碟寫入的權限
這樣還可以使用你說的方法嗎?感謝