VB中记录的数据怎么导入到EXCEL中？

做了一个秒表计时的小程序，计时结果只是显示在textbox中，希望哪位大神能够帮助一下把textbox中的数据逐条记录到EXCEL中，定重谢

---

dim ii as string '定义一个变量为ii
ii=1'设定ii的值为1
Dim ex1 As Object
Dim exwbook As Object
Dim exsheet As Object
Set ex1 = CreateObject("excel.application")
Set exwbook = Nothing
Set exsheet = Nothing
Set exwbook = ex1.Workbooks().Add
Set exsheet = exwbook.Worksheets("sheet1")
ex1.Visible = True '以搏茄上代码是运行excel并新建一个文档
ex1.Range("a" & ii).Value=textbox.text '把textbox中的数据逐条记录到EXCEL中的A列,一条记录一行
ii=val(ii)+1'每记录一条记录,excel行数+1

当然你直接把段答上面的基燃察代码放到timer控件里是不行的,要灵活运用啊

---

Dim x As Excel.Application
Dim xbook As Excel.Workbook
Dim xsheet As Excel.Worksheet
Set x = CreateObject("excel.application"乱或)
s_path = App.Path & "\肆卖11.csv"
Set xbook = x.Workbooks.Open(s_path)
Set xsheet = x.Worksheets("sheet1"裂陪逗)
xsheet.Range("a1") = text1.Text
x.Visible = False 'excel表不显示
xbook.Close True '保存 并且关闭
Set xsheet = Nothing
Set xbook = Nothing
Set x = Nothing

---

文件里

---

textbox是怎么样的数据？

---