Dim v As Integer = e.form.Controls("TextBox1").Value
Dim vv As Integer = e.form.Controls("TextBox2").Value
Dim vvv As Integer = e.form.Controls("TextBox3").Valueif wv isnot nothing then
Dim App As New MSExcel.Application
Dim Wb As MSExcel.Workbook = App.WorkBooks.Add
Wb.WorkSheets(1).name = (vv)
Wb.WorkSheets(1).range("A1").Value = (v)
Wb.SaveAs("D:\Excel\" & wv & ".xls") ' 在这里,我希望能够:根据TextBox3录入的内容做为文件名称,并默认保存到D:\EXCEL\文件夹下面.请教老师!!!'
App.Quit
End if
加好友 
发短信
Post By：2012/5/8 13:48:00 [显示全部帖子]
