Question

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

记事本里面数据排列比较规则
1 5 3 4 7 6 .....
4 3 6 7 8 2 .....
.
.
.
.
5 5 2 4 7 8 .....
假设有m行 n列，怎样才能实现我想要的效果，望高手能给代码！！

Answer 1

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

Answer 2

'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

追问

能不能对中间处理那段也注解一下，十分感谢！！！

追答

其实就是遇到"空格"或"换行符"就写入一个单元格 遇行"换行符"的话就跳到下一行的单元格

Answer 3

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

追问

写入EXCEL的源代码是怎么样的，要写入EXCEL必须要SPLIT分解吗？

追答

Dim Excel1 as Excel.Application
Set Excel1 as new Excel.Application 建立对象
Excel1.WorkBooks.Open('C:\Excel\Demo.xls');打开excel文件
Excel1.Cells[1,4].Value:='单元格赋值;可以做在循环里处理大量数据.