帖子: 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 另存新檔時
若檔案已存在, 會出現警告視窗, 是否取代現有檔案
當選擇不取代現有檔案, 即出現錯誤

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

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

請指教

樓主熱帖

kimbal

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 472
主題: 5
精華: 0
積分: 485
點名: 0
作業系統: Windows
軟體版本: MS Office
閱讀權限: 100
性別: 男
來自: 香港
註冊時間: 2010-7-4
最後登錄: 2014-12-28

論壇貢獻勳章

2^#

發表於 2012-6-28 13:34 | 只看該作者

本帖最後由 kimbal 於 2012-6-28 13:39 編輯

找出檔案是不是已經存在,存在的話,把檔名加上時間存起來. (例如c:\abc20120628133801.xls)

Dim strExist As String
dim strFolder as string
dim strFilename as string
strFolder = "c:\"
strFilename="abc"
strExist = Dir(strFolder & strFilename & ".xls")
If strExist = "" Then
ActiveWorkbook.SaveAs Filename:=strFolder & newfilename & ".xls"
else
ActiveWorkbook.SaveAs Filename:=strFolder & newfilename & format(now(),"yyyymmddhhmmss") & ".xls"
End If

複製代碼

直接取代 (把提示停掉)

application.displayalerts=false
ActiveWorkbook.SaveAs Filename:=newfilename
application.displayalerts=true

複製代碼

懂得發問,答案就會在其中

今日の一秒は明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

enoch

中學生 Rank: 2

帖子: 176
主題: 98
精華: 0
積分: 279
點名: 0
作業系統: window 7
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2011-2-17
最後登錄: 2020-4-8

3^#

發表於 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

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2012-6-28 16:42 | 只看該作者

回復 3# enoch
On Error Resume Next 除非確定錯誤點可忽略 ,否則不輕易使用

Option Explicit
Sub Ex()
Dim xlMsg As String, Newfilename As String, xlSave As Integer
Newfilename = "D:\TEST.XLS"
xlMsg = IIf(Dir(Newfilename) <> "", "覆蓋檔案", "儲存檔案")
xlSave = MsgBox(Newfilename & Chr(10) & xlMsg & ":是(Y), 另存檔案:否(N),不存檔案:取消", vbYesNoCancel)
'xlSave 傳回 vbYes, vbNo , vbCancel 三選一
Application.DisplayAlerts = False
If xlSave = vbYes Then
ActiveWorkbook.SaveAs Filename:=Newfilename
ElseIf xlSave = vbNo Then
With Application.FileDialog(msoFileDialogSaveAs)
.InitialFileName = Newfilename
If .Show = -1 Then ActiveWorkbook.SaveAs Filename:=.SelectedItems(1)
End With
End If
Application.DisplayAlerts = True
End Sub

複製代碼

TOP

enoch

中學生 Rank: 2

帖子: 176
主題: 98
精華: 0
積分: 279
點名: 0
作業系統: window 7
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2011-2-17
最後登錄: 2020-4-8

5^#

發表於 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

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

6^#

發表於 2012-6-29 12:49 | 只看該作者

回復 5# enoch
程式上是可以如此的

TOP

enoch

中學生 Rank: 2

帖子: 176
主題: 98
精華: 0
積分: 279
點名: 0
作業系統: window 7
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2011-2-17
最後登錄: 2020-4-8

7^#

發表於 2012-6-29 14:37 | 只看該作者

但試過若執行程式前, 更改過儲存檔案的類型,
例如之前執行過檔案>>另存新檔>>選擇存檔類型為".CSV"
執行程式時就算檔案後面是".XLS" 尾, 都會更改了".CSV"

TOP

sillykin

中學生 Rank: 2

帖子: 169
主題: 41
精華: 0
積分: 219
點名: 0
作業系統: WIN10
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2012-7-31
最後登錄: 2023-9-15

8^#

發表於 2016-2-25 00:49 | 只看該作者

回復 4# GBKEE

不好意思能請問
Ａ是原檔案，在這Ａ檔案中執行『另存新檔』，產生Ｂ檔案．．以此類推．．
要問的問題是：在Ａ檔案另存新檔後(產生２檔案)，能停留在Ａ檔案嗎？（因每次『另存新檔』後，工作均停留在每次產生新檔案）要如何停留在Ａ的原檔案呢？？

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

9^#

發表於 2016-2-25 06:21 | 只看該作者

回復 8# sillykin

SaveCopyAs 方法將指定活頁簿的備份儲存到檔案，但不變更記憶體中已開啟的活頁簿。

複製代碼

Sub Ex()
With ThisWorkbook
.SaveCopyAs .Path & "\test.xls" '
End With
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

sillykin

中學生 Rank: 2

帖子: 169
主題: 41
精華: 0
積分: 219
點名: 0
作業系統: WIN10
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2012-7-31
最後登錄: 2023-9-15

10^#

發表於 2016-7-3 21:01 | 只看該作者

Dim xPath As String
Dim Arr As Variant

Arr = Array("申請書", "契約書")
Sheets(Arr).Copy

ActiveWorkbook.SaveCopyAs Filename:= _
"C:\" & TextBox1 & "(" & (Year(Date) & Month(Date)) & Day(Date) & ")" & "(" & TextBox2 & ")" & ".xlsm"
ActiveWorkbook.Close

Unload Me
想請問為何執行上述程式，為另存二個sheet ,並存為一個新檔，但會多出一個新的檔案，小弟是否有地方用錯呢？？？？

TOP