用vb编写的程序，通过plc读取plc内某个寄存器的值，这个寄存器的值不断变化。现在想把这个数据写到excel里面，该怎么编程序？
Private Sub Command2_Click()
Dim i As Long
Dim j As Long
Dim xlapp
Set xlapp = CreateObject("Excel.Application") '创建EXCEL对象
xlapp.Workbooks.open ("C:\Users\hzr\Desktop\123.xls")
xlapp.worksheets("Sheet1").Activate
For i = 1 To 30
xlapp.Cells(i, 1).value = Val("&H" & Mid(Text13.Text, 7, 4)) '写入第i+1行,第j+1列
Next i
'保存
xlapp.ActiveWorkbook.Save
Set xlapp = Nothing
End Sub
这个值在text上是变化的，记录不到历史值，一点生成excel就只能记录当前是几就是几，现在想要来一个数据就往里面写一次并且都能保存，该怎么编写代码？
这篇文章是我写的一些经验，希望对你有帮助，我用的是MFC，但是原理上大同小异
https://blog.csdn.net/wangmeng0804/article/details/65627826?spm=1001.2014.3001.5502