返回列表 上一主題 發帖

另存新檔問題

enoch

帖子
176 
主題
98 
精華
0 
積分
279 
點名
0  
作業系統
window 7 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
註冊時間
2011-2-17 
最後登錄
2020-4-8 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-6-27 15:12 | 顯示全部帖子

另存新檔問題

使用 ActiveWorkbook.SaveAs Filename:=newfilename 另存新檔時
若檔案已存在, 會出現警告視窗, 是否取代現有檔案
當選擇不取代現有檔案, 即出現錯誤

請問應如何修改程式, 可選擇取消不儲存, 或更改檔案名稱另存新檔

另外, 若想直接取代舊檔案,  不顯示警告, 又應該如何

請指教
收藏 分享

enoch

帖子
176 
主題
98 
精華
0 
積分
279 
點名
0  
作業系統
window 7 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
註冊時間
2011-2-17 
最後登錄
2020-4-8 
2#
發表於 2012-6-28 15:57 | 顯示全部帖子
本帖最後由 enoch 於 2012-6-28 16:20 編輯

謝謝 kimbal 指教, 我試到另外方法, 想分享一下



On Error Resume Next
ActiveWorkbook.SaveAs Filename:="book1"

If Err <> 0 Then '取消另存新檔時顯示
Application.Dialogs(xlDialogSaveAs).Show

TOP

enoch

帖子
176 
主題
98 
精華
0 
積分
279 
點名
0  
作業系統
window 7 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
註冊時間
2011-2-17 
最後登錄
2020-4-8 
3#
發表於 2012-6-29 10:35 | 顯示全部帖子
本帖最後由 enoch 於 2012-6-29 12:46 編輯

多謝GBKEE , 真的教了我很多

Application.FileDialog 比 Application.Dialogs
更加好用, 可以加上引數, 預先設定檔案名稱等資料

因為有時想不到其它方法,  才會用
On Error Resume Next

若用完之後即時加上
On error goto 0  可以嗎


試完程過, 但有少少問題想再請教
如何控制是OFFICE 03 ".XLS" 檔案呢?
因為程式可能在不同EXCEL版本中使用
雖然明稱是TEST.XLS , 但檔案類型都可能轉了其它版本

TOP

enoch

帖子
176 
主題
98 
精華
0 
積分
279 
點名
0  
作業系統
window 7 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
註冊時間
2011-2-17 
最後登錄
2020-4-8 
4#
發表於 2012-6-29 14:37 | 顯示全部帖子
但試過若執行程式前, 更改過儲存檔案的類型,
例如之前執行過檔案>>另存新檔>>選擇存檔類型為".CSV"
執行程式時就算檔案後面是".XLS" 尾, 都會更改了".CSV"

TOP

        靜思自在 : 生氣，就是拿別人的過錯來懲罰自己。
返回列表 上一主題