[VBA ]寫入EXCEL存檔檔案存檔時檔名重複錯誤
目前已完成可以把textbox.text裡面的資訊存到excel的格式裡面了，
也利用MkDir自動新增一個資料夾來儲存excel檔案
我把第一個textbox.text的內容當成檔案資料夾的檔名
但是現在問題在於說萬一我的檔名跟先前儲存的檔名相同時
系統就會有錯誤
想要設計成萬一有檔案名稱重複時
msgbox會跳出來說請更改檔名
接著才可以存檔
這我該怎麼宣告呢
該加在哪個部分
謝謝各位先進的指教
附上程式碼
Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button13.Click
'儲存客戶基本資料
If TextBox3.Text <> "" Then
ChDir("C:\Users\dadado\Desktop\ABC\客戶資料") '資料夾路徑
MkDir(TextBox3.Text) '建立資料夾。TextBox3.Text是檔名
Dim newExcel As New Microsoft.Office.Interop.Excel.Application
With newExcel
.Workbooks.Open(Filename:="C:\Users\dadado\Desktop\ABC\客戶資料\存檔格式
.xlsx")
.
.
.
.
.ActiveWorkbook.SaveAs(Filename:="C:\Users\dadado\Desktop\ABC\客戶資料\" &
TextBox3.Text & "\存檔資料.xlsx") '寫入(另存新檔)
.ActiveWindow.Close() '關閉工作表
.Quit() '關閉Excel(newExcel)
End With
MsgBox("讀取、寫入完成!")
End If
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 61.228.29.5
討論串 (同標題文章)
以下文章回應了本文：
完整討論串 (本文為第 1 之 3 篇)：