vb6.0 用命令按钮打开excel后，点击第二个命令按钮将text1中文字赋值给D12后保存

vb6.0 用命令按钮打开excel后，点击第二个命令按钮将text1中文字赋值给D12后保存

你从里面的代码，挑挑你可以用的，学习学习。
先新建一个excel并打开excel，然后再显示出来。
后面是对单元格赋值操作。
不明白的可以给我私信
Dim xlapp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSHEET As Excel.Worksheet
Set xlapp = CreateObject("excel.application") '这里是小写，如果出错的话，下面还有大写的创建。
Set xlBook = xlapp.Workbooks.Add
Set xlSHEET = xlBook.Worksheets(1)
xlapp.Visible = True
On Error Resume Next

If Err.Number <> 0 Then
Set xlapp = CreateObject("Excel.Application")
Set xlBook = xlapp.Workbooks.Add
Set xlSHEET = xlBook.Worksheets(1)
xlapp.Visible = True
End If

'激活这个工作表，这个工作表为当前。
Set xlSHEET = xlBook.ActiveSheet
For k = 1 To DataGrid1.Columns.Count
xlSHEET.Cells(1, k) = DataGrid1.Columns(k - 1).Caption
Next k
For i = 1 To Adodc1.Recordset.RecordCount
For j = 0 To DataGrid1.Columns.Count
If IsNumeric(Adodc1.Recordset(j)) Then 'IsNumeric全是数函数判断。
xlSHEET.Cells(i + 1, j + 1) = CDbl(Adodc1.Recordset(j))
Else
xlSHEET.Cells(i + 1, j + 1) = Adodc1.Recordset(j)
End If

Next j
Adodc1.Recordset.MoveNext
Next i追问我现在的问题是我向串口发送一条指令在接收信息的时候无法立即赋值到excel中，而是再点击一次命令按钮才能把上次的内容赋值到excel中，出现了很严重的延迟。我用调试助手看了，代码没有问题，而且能立马接收到返回的内容。这怎么解决，拜托！