【問題】Excel 巨集如何自動執行?? - PCZONE 討論區

返回   PCZONE 討論區 > ▲ -- 電 腦 軟 體 討 論 區 > -- OFFICE 相 關 軟 體 討 論 版


PCZONE 討論區





通知

-- OFFICE 相 關 軟 體 討 論 版 Word、Excel、PowerPoint、Access、Outlook、FrontPage或Office XP等的問題解答與經驗分享


會員
【問題】Excel 巨集如何自動執行??
描述:已經寫好一個巨集, 儲存在一個獨立excel的A檔案, 每次要使用巨集時
會先開啟A檔案, 再開啟"檔案一", 然後執行A檔案的巨集獲得所要的結果

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

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

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



回覆
會員
回覆: 【問題】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磁碟寫入的權限
這樣還可以使用你說的方法嗎?感謝



回覆
主題工具


類似的主題
主題 主題作者 討論版 回覆 最後發表
【問題】Excel 如何使用時間做為座標軸? killholic -- OFFICE 相 關 軟 體 討 論 版 0 2008-11-11 09:41 PM
【問題】EXCEL 自動抓取符合條件的並加總 lilinerv -- OFFICE 相 關 軟 體 討 論 版 4 2008-08-20 08:44 AM
【問題】excel 小數點為何無法以拖曳複製公式 st0421 -- OFFICE 相 關 軟 體 討 論 版 2 2008-04-25 12:13 PM
【問題】EXCEL 如何對應參照表,來顯示下拉選清單值?! ezama -- OFFICE 相 關 軟 體 討 論 版 0 2008-03-30 05:30 AM
【問題】Excel 的日期判斷問題?? yetchinz -- OFFICE 相 關 軟 體 討 論 版 14 2002-04-01 03:40 PM






 XML   RSS 2.0   RSS 
本站使用 vBulletin 合法版權程式
站務信箱 : www@pczone.com.tw

本論壇所有文章僅代表留言者個人意見,並不代表本站之立場,討論區以「即時留言」方式運作,故無法完全監察所有即時留言,若您發現文章可能有異議,請 email :www@pczone.com.tw 處理。