作者fumizuki (蒙面加菲狮)
看板Visual_Basic
标题Re: [VBA ]写入EXCEL存档档案存档时档名重复错误
时间Mon Dec 3 21:40:36 2007
在储存之前，
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