请问如何将文本文件的内容按要求转换到excel文件中？

Question

请问如何将文本文件的内容按要求转换到excel文件中？文本文件格式:
----------------------
AAA BBB CCC
DDD EEE FFF
GGG HHH JJJ
......转换到新的excel文档中要求按空格分单元格，文本文档换行excel文档也换行！

Answer 1

Private Sub Form_Load()
Dim i, j As Integer
Dim xlApp As Object   '定义存放引用对象的变量。
Dim b, nextline As String
Dim S1
Dim S2
Open "C:\01.txt" For Input As #1
b = ""
 Do Until EOF(1)
Line Input #1, nextline
 b = b & nextline & "|"
Loop
Close #1
Set xlApp = CreateObject("excel.application")
   '如果要让该应用程序可见，则需将 Visible 属性设为 True。
Set vBook = xlApp.Workbooks.Add
xlApp.Visible = True
S1 = Split(b, "|")
 For i = 0 To UBound(S1) - 1
 S2 = Split(S1(i), " ")
  For j = 0 To UBound(S2)
  xlApp.Cells(i + 1, j + 1) = S2(j)
 Next
  Next
xlApp.Quit   '完成时，调用 Quit 方法关闭
Set xlApp = Nothing
End Sub

Answer 2

如果楼主只是需要到处数据，可以写csv文件，直接用逗号分割就可以，等于就是直接写文本文件，特别简单，而且execl也能读写