Re: [VBA ]寫入EXCEL存檔檔案存檔時檔名重複錯誤
用了還是不對內,
我的意思應該是說假設我先前已經成功了存了一個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
→
12/04 10:56, , 1F
12/04 10:56, 1F
討論串 (同標題文章)
本文引述了以下文章的的內容:
完整討論串 (本文為第 3 之 3 篇):