怎样将text中动态的数据导入excel表格中   我是新手  求代码  详细点   拜托了

你搜索一下 VB操作　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循环赋值，自己加个循环即可
................

我现在能够把5个text中的数值导入excel中了  但是呢 由于数值是一秒钟变化一次（动态的），我下一秒导入的数值就把上一秒的数值覆盖了  这是怎么回事啊？
 我是想第一秒导入的数值在excel第一行，第二秒导入的数值在第二行  以此类推 。。。。
麻烦你给个代码  谢谢你了

你导入数值时，先读一下 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 打开都没问题。

学习………