【問題】Excel 巨集如何自動執行?? 描述:已經寫好一個巨集, 儲存在一個獨立excel的A檔案, 每次要使用巨集時 會先開啟A檔案, 再開啟"檔案一", 然後執行A檔案的巨集獲得所要的結果 問題1: 使用上述方式執行少數檔案是很方便, 但是一但檔案數量很多時, 每個檔 案都要按一次"執行巨集", 非常耗費時間! 假設我有100個excel檔案(.cvs)要執行A檔案中的巨集, 那我要如何讓 這100個檔案自動執行巨集?? 問題2: 執行巨集完的100個檔案都是.cvs 附檔名, 但是我要儲存為.xls附檔名 的檔案, 有什麼方法可以一次儲存所有檔案為.xls的格式?? 麻煩大大幫忙解惑一下, 感恩:lovely: |
回覆: 【問題】Excel 巨集如何自動執行?? 問題二: 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!" |
回覆: 【問題】Excel 巨集如何自動執行?? 問題一: 巨集寫在 XLS,然後另存為 XLA 應該會比較好用。 |
回覆: 【問題】Excel 巨集如何自動執行?? 謝謝ICLA大大對問題二的解答 至於問題一的部分, 由於公司的電腦有封鎖對C磁碟寫入的權限 這樣還可以使用你說的方法嗎?感謝 |
所有時間均為 +8。現在的時間是 03:25 PM。 |
XML | RSS 2.0 | RSS |
本論壇所有文章僅代表留言者個人意見,並不代表本站之立場,討論區以「即時留言」方式運作,故無法完全監察所有即時留言,若您發現文章可能有異議,請 email :[email protected] 處理。