VB 保存数据到中 Excel

来源：百度知道 编辑：UC知道 时间：2024/09/21 04:40:17
我有20个文本框
第一行text1（0）.text—text1（9）.text 10个文本框
第一行text1（10）.text—text1（19）.text 10个文本框
我想把每个值进行保存
要求实现：
1、关闭窗体时(右上角关闭)弹出提示“是否保存数据”，“Yes”则弹出“保存对话框”；“No”则关闭
2、保存格式为“.xls”，即Excel
3、表格中格式为：
A B C D E F G H I J
1 × × × × × × × × × ×
2 × × × × × × × × × ×
4、每次单击保存，不要覆盖以前的数据，新建一个。

谢谢大家。

除非你先做一个Excel的连接
不然你不可能保存成Excel的格式

Private Sub UserForm_Terminate()
Set ExcelApp = CreateObject("Excel.Application")
ExcelApp.Workbooks.Add
With ExcelApp.ActiveSheet
.Range("A1:J1") = Array(TextBox0.Text, TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text, TextBox5.Text, TextBox6.Text, TextBox7.Text, TextBox8.Text, TextBox9.Text)
.Range("A1:J1") = Array(TextBox10.Text, TextBox11.Text, TextBox12.Text, TextBox13.Text, TextBox14.Text, TextBox15.Text, TextBox16.Text, TextBox17.Text, TextBox18.Text, TextBox19.Text)
MyFileName = ExcelApp.GetSaveAsFilename(, "Excel Files (*.xls), *.xls")
.SaveAs MyFileName
End With
ExcelApp.Quit
End Sub

楼上两位显然没有实际调试出来！
来！来！来！我这儿为你调试好啦：
Dim ExcelApp As Object

Private Sub Form_Unload(Cancel As Integer)
Dim X As Integer

X = MsgBox("是否保存更改？", vbY