Question

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

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中去（要求把日期，时间和名称放在三个不同的列中。

恳请高手指教，谢谢！

Answer 1

1. 打开文本数据。

   

2. 新建Excel文档，并打开Excel文档，点击左上角开始处，点击“打开”。

   

3. 打开数据导入界面，选择文本数据点击“确定”，进入下一界面。

   

4. 在下一界面，勾选“逗号”，点击“下一步”，下一页面，继续点击“下一步”。

   

5. 操作完成后，数据导入完成。

   

   
   

Answer 2

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 '结束EXCEL对象
Set xlApp = Nothing '释放xlApp对象
MsgBox "文件已成功导出到" & SaveFile
End Sub

Answer 3

你这个不用vb也能做到，你先把你要的数据复制到EXCEL的A列中，然后点选定A列点击数据》分列》分隔符号选逗号就可以完成了。