vb 将Txt 文本中的内容导入excel

来源：百度知道 编辑：UC知道 时间：2024/08/24 13:12:09
1.txt文本中有如下内容（每一行包括一个日期，时间和名称）：
2008-08-14, 00:20:17, aaaa
2008-08-14, 01:20:10, bbbb
2008-08-14, 00:30:14, cccc
2008-08-14, 00:40:52, dddd
2008-08-14, 00:35:32, eeee
2008-08-14, 00:21:18, ffff

现在想把这些数据导入到excel中去（要求把日期，时间和名称放在三个不同的列中。

恳请高手指教，谢谢！

Private Sub Command1_Click()
Dim H() As String, L() As String, i As Integer, j As Integer
Dim SaveFile As String
Dim xlApp As Excel.Application
Dim xlBook As Excel.WorkBook
Dim xlSheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Add '打开已经存在的EXCEL工件簿文件
xlApp.Visible = True '设置EXCEL对象可见（或不可见）
Set xlSheet = xlBook.Worksheets("Sheet1") '设置活动工作表

'下面进行文本导入
H = Split(Text1.Text, vbNewLine)
For i = 0 To UBound(H)
L = Split(H(i), ",")
For j = 0 To UBound(L)
xlSheet.Cells(i + 1, j + 1) = L(j) '给单元格（row,col）赋值
Next
Next
SaveFile = "c:\1.xls" '你可以在此修改保存的文件名称
If Dir(SaveFile) <> "" Then Kill SaveFile
xlBook.SaveAs FileName:=SaveFile '保存工作表,结束时一定别忘了保存
xlBook.Close (True) '关闭工作簿 这里的True表示退出时保存修改
xlApp.Quit &