VB6.0怎么把记事本里面的数据导入到EXCEL中并且一个单元格装一个数据
发布网友
发布时间：2022-05-21 15:06
共3个回答
热心网友
时间：2023-10-30 17:23
以下假设你的分隔符是一个空格:
把记事本中的数据全选，复制，粘贴到word
在word中，选择替换，(注意，如果你在记事本中的分隔符是不规则的空格的话，先在这里把多个空格替换成一个空格），把空格替换成【^t】（不包括【】），然后全选，粘贴到Excel，这样就OK了！
当然如果数字间是其他的分隔符的话，把空格换成相应的分隔符就行了
热心网友
时间：2023-10-30 17:24
'从"工程"菜单中选择"引用"栏；选择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追问能不能对中间处理那段也注解一下，十分感谢！！！
追答其实就是遇到"空格"或"换行符"就写入一个单元格 遇行"换行符"的话就跳到下一行的单元格
热心网友
时间：2023-10-30 17:24
追答Dim Excel1 as Excel.Application
Set Excel1 as new Excel.Application 建立对象
Excel1.WorkBooks.Open('C:\Excel\Demo.xls');打开excel文件
Excel1.Cells[1,4].Value:='单元格赋值;可以做在循环里处理大量数据.
