VB6.0怎么把记事本里面的数据导入到EXCEL中并且一个单元格装一个数据

比较简单的办法就是复制粘贴，前提是每个数字之间有空格或者分隔符
以下假设你的分隔符是一个空格:
把记事本中的数据全选，复制，粘贴到word
在word中，选择替换，(注意，如果你在记事本中的分隔符是不规则的空格的话，先在这里把多个空格替换成一个空格），把空格替换成【^t】（不包括【】），然后全选，粘贴到Excel，这样就OK了！
当然如果数字间是其他的分隔符的话，把空格换成相应的分隔符就行了

'VB6
'从"工程"菜单中选择"引用"栏；选择Microsoft Excel 11.0 Object Library（我的是EXCEL2003所以是Excel 11.0 )
'在窗口上放一个按钮
'在D盘下创建D:\1.txt和D:\bb.xls

Dim xlApp As Excel.Application '定义EXCEL类
Dim xlBook As Excel.Workbook '定义工件簿类
Dim xlsheet As Excel.Worksheet '定义工作表类
Private Sub Command1_Click() '打开EXCEL过程
If Dir("D:\excel.bz") = "" Then '判断EXCEL是否打开
Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类
xlApp.Visible = True '设置EXCEL可见
Set xlBook = xlApp.Workbooks.Open("D:\bb.xls") '打开EXCEL工作簿
Set xlsheet = xlBook.Worksheets(1) '打开EXCEL工作表
xlsheet.Activate '激活工作表

Open "D:\1.txt" For Input As #1
Do While Not EOF(1) ' 循环至文件尾。
strz = strz & Input(1, #1)
Loop
Close #1 ' 关闭文件。

m = 1
n = 1
For i = 1 To Len(strz) + 1
tem = Mid(strz, i, 1)
If tem <> " " And tem <> Chr(10) And tem <> Chr(13) And tem <> "" Then
mystr = mystr & tem
Else
xlsheet.Cells(m, n) = mystr
' 写入Excl 的M行N列
n = n + 1
Do While Mid(strz, i + 1, 1) = " "
i = i + 1
Loop
If tem = Chr(10) Then
m = m + 1
n = 1
Do While Mid(strz, i + 1, 1) = Chr(10)
i = i + 1
Loop
End If
mystr = ""
End If
Next i
End If

xlBook.Close (True) '关闭EXCEL工作簿
xlApp.Quit '关闭EXCEL
Set xlApp = Nothing '释放EXCEL对象
End Sub

先用VB逐行读取文本文件，然后用split分解，再写入excel。