将text中动态的数据导入excel表格中

先在工程、引用里把EXCEL的库选上

Dim xlapp As Excel.Application 'Excel对象
Dim xlbook As Excel.Workbook '工作簿
Dim xlsheet As Excel.Worksheet '工作表
Set xlapp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlbook = xlapp.Workbooks.Open(App.Path& "\XXX.xls") '打开已经存在的XXX.xls工件簿，它的存放路径是和你的FORM同一个根目录下，或者可以用commondialog.showopen获取文件的路径
Set xlsheet = xlbook.Worksheets(1) ’设置当前操作的界面为SHEET1
................
xlsheet.cells(i,1).value=me.text1.text ’i循环赋值，自己加个循环即可
................

你导入数值时，先读一下 EXCEL 中有没有数据，如果有，就向下一行。
或者说，你在打开 Excel 时，就要先确定 数据写在哪一行起，然后每次向下一行写数据。

建议你用 CSV 文件格式，不要用 XLS 文件格式。

CSV 文件格式，用逗号分隔的的文本文件，该文件默认情况是用 EXCEL 打开，也可以用记事本打开。
文件结构如下：
数据1,数据2,数据3,数据4,数据5,
…………

每个数据与数据之间，用 半角逗号分隔，每行与每行之间，用 回车换行符分隔, vbcrlf，也就是 按下回车键,

代码很简单。
open "XX.CSV" for append as #1
  print #1,数据1;",";                  '写入数据及半角逗号
  print #1,数据2;",";
.....

  print #1,                            '换行
close #1

依次写下去就行了，不用去管具体到了哪一行。
只要总行数不超过 65536 行，用 EXCEL 打开都没问题。