Question

vb怎样将下面这些数据输出到excel表格中呢？数据是在list1中的。想把它导出excel。求大神帮帮忙。。

之前读取文件夹1下的文件的部分代码如下：
Dim 路径 As String
Dim strling As String
路径 = App.Path & "\1"
a = Dir(路径 & "\*.txt")
Do While a <> "" '循环检查每个文件
Open 路径 & "\" & a For Input As #1 '======读取每一个文件===============
Do While Not EOF(1)
Line Input #1, strline
Dim arr
arr = Split(strline, ",")
'将统计信息在VB界面中显示，包括学号、
'签到日期?签到时间?所在的位置
List1.AddItem ("日期：" & arr(0) & " 位置：" & arr(1) & " 学号：" & arr(2))
Loop
Close #1
a = Dir
Loop

Answer 1

VB卸载，只能告诉你思路了。
1、用“工程”菜单“导入”micsoft office11或12类，总之是office的动态连接库
2、通过循环把list中的所有项保存到数组a
3、再用循环，把a的每个元素分割为3列，并且分别存入3个数组(如b,c,d )
4、创建office对象后新建一个excel工作簿，并把它赋值给一个变量，下面就可以通过该变量对工作薄内的工作表（最好也赋值给变量，这里假设为MySheet）进行系列操作了。
5、把上面得到的3个数组分别赋值给工作表的3个列就可以了，如MySheet.columns(1)=b
6、保存该工作薄、关闭excel，以栈的逻辑反向释放所用对象的资源，即把用到的对象按初始顺序相反的方向设置为nothing。到此，EXCEL的调用结束。

Answer 2

调用MS的EXECL控件，打开指定EXECL文件或创建新的EXECL文件，然后打开表，将数据写入表中。
一个很简单的程序实例
Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\msdb.mdb"
Text1.Text = Data1.DatabaseName
End Sub
'按钮，把数据传到Excel中
Private Sub Command1_Click()
Dim i As Integer, j As Integer
Dim newxls As Excel.Application
Dim newbook As Excel.Workbook
Dim newsheet As Excel.Worksheet
Set newxls = CreateObject("Excel.Application") '创建excel应用程序,打开excel2000
newxls.Visible = True
Set newbook = newxls.Workbooks.Add '创建工作簿
Set newsheet = newbook.Worksheets(1) '创建工作表
'If Not Data1.Recordset.EOF Then Data1.Recordset.MoveFirst
For i = 0 To Data1.Recordset.RecordCount - 1
For j = 0 To Data1.Recordset.Fields.Count - 1
DBGrid1.Row = i
DBGrid1.Col = j
newsheet.Cells(i + 1, j + 1) = DBGrid1.Text
Next j
Next i
End Sub