作者dadado (海边飘来的鞋垫)
看板Visual_Basic
标题[VBA ]写入EXCEL存档档案存档时档名重复错误
时间Mon Dec 3 17:15:03 2007
目前已完成可以把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