Question

如何利用VB结合EXCEL，将采集到的实验数据，保存到EXCEL中去。每次实验创建新的EXCEL，并以时间作文件名

我另外还要做到，把excel中的数据读出来，绘实时制曲线和历史曲线图。所以希望做到数据自动保存

Answer 1

有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、每次单击保存，不要覆盖以前的数据，新建一个。

Dim ExcelApp As Object

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

X = MsgBox("是否保存更改？", vbYesNoCancel + vbExclamation, "VB 保存数据到中 Excel")
If X = 6 Then '单击“是”则保存
Set ExcelApp = CreateObject("Excel.Application")
ExcelApp.Workbooks.Add
With ExcelApp.ActiveSheet
.Range("A1:J1") = Array(Text1(0).Text, Text1(1).Text, Text1(2).Text, Text1(3).Text, Text1(4).Text, Text1(5).Text, Text1(6).Text, Text1(7).Text, Text1(8).Text, Text1(9).Text)
.Range("A2:J2") = Array(Text1(10).Text, Text1(11).Text, Text1(12).Text, Text1(13).Text, Text1(14).Text, Text1(15).Text, Text1(16).Text, Text1(17).Text, Text1(18).Text, Text1(19).Text)
MyFileName = ExcelApp.GetSaveAsFilename(, "Excel Files (*.xls), *.xls")
.SaveAs MyFileName
End With
ExcelApp.Quit
ElseIf X = 7 Then '单击“否”则不保存
Cancel = 0
Else '单击“取消”则不退出程序
Cancel = 1
End If
End Sub

Answer 2

实验数据从电脑以外的设备采集进电脑了吗？如何是的话，用VB输出EXCEL就可以解决了。

Answer 3

大侠，，有木有做出来呀，，借我参考哈！！我的邮箱251432208@qq.com````万分感谢呀