Re: [VBA ]寫入EXCEL存檔檔案存檔時檔名重複錯誤
在儲存之前,
If Dir("路徑") <> "" Then
顯示警告訊息
End If
※ 引述《dadado (海邊飄來的鞋墊)》之銘言:
: 目前已完成可以把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
--
▃▅▇▆▄ ▆▂▃ `
逝去感情如何能留住,半點癡情遺留殊不易,██▅▇▄▃ ▇▃▂" .
█████████▃i ▁▄▇
更多悽悽慘慘的遭遇…………██▆▃ █▅▆▃ˍ▄*
◢ ▂█▄▇▅▂▌.
我不知道,王~八~蛋~~! ▂▆███ █▄▃ 。fumizuki。Check。
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 123.194.100.4
討論串 (同標題文章)