用了還是不對內， 我的意思應該是說假設我先前已經成功了存了一個QQ的資料夾了 然後接下又在Textbox1.text上寫上QQ，然後存檔 增加了這一段 If Dir("C:\Users\dadado\Desktop\ABC\客戶資料\" & TextBox1.Text & "\存檔格式.xlsx") = TextBox1.Text Then MsgBox("檔名已存在請另存新檔") Stop End If 但是結果還是錯誤 他會停留在 MkDir(TextBox1.Text) 這一行 我是整個敘述錯誤嗎 謝謝大家的指教 ※ 引述《fumizuki (矇面加菲獅)》之銘言： : 在儲存之前， : 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 --

※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 61.228.29.5