vb vba问题 请帮帮忙

Question

我想读取一个多行多列的文本 分隔为空格
例如
11 12 13 14 15 16
13 14 15 16 17 18
15 16 17 18 19 30
这样的文本把他读取进excel 每个数放一个单元格 
怎样做？

Answer 1

Option Explicit
Dim i&, aa$
Private Sub Command1_Click()
   aa = ""
   For i = 1 To 20
      DoEvents
      Me.Caption = i
      aa = aa & Str(i)
      If i Mod 5 = 0 Then aa = aa & vbCrLf
   Next i
   Open "c:\test.xls" For Output As #1
   Print #1, aa                          '可以用print #1,""; aa   ""可以调节位置！   
   Close #1
   Me.Caption = "保存完成!!"
End Sub