能否帮忙编写一个秒表计时器，把记录的数值导入到excel中

Question

我是一个VB新手，急需这个小程序，秒表计时已经编写好了，就是不知道怎么把计时的结果逐条导入到excel表中，越详细越好呀。

Answer 1

Dim ii As String '定义一个变量为ii
Dim ex1 As Object
Dim exwbook As Object
Dim exsheet As Object
Private Sub Form_Load()
ii = 1 '设定ii的值为1
Set ex1 = CreateObject("excel.application")
Set exwbook = Nothing
Set exsheet = Nothing
Set exwbook = ex1.Workbooks().Add
Set exsheet = exwbook.Worksheets("sheet1")

End Sub

Private Sub Timer1_Timer()

ex1.Visible = True '以上代码是运行excel并新建一个文档
ex1.Range("a" & ii).Value = Text1.Text '把textbox中的数据逐条记录到EXCEL中的A列,一条记录一行
ii = Val(ii) + 1 '每记录一条记录,excel行数+1

End Sub来自：求助得到的回答