用了还是不对内， 我的意思应该是说假设我先前已经成功了存了一个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