Question

vb如何用excel打开一个txt文件，一定是用vb的代码实现的

Answer 1

这个相当简单，首先，Excel可以直接打开txt文件。

如果一定要用代码，给你一个示例：

Sub xxx()
    Dim xlapp As Object
    Set xlapp = CreateObject("Excel.Application")   '读取Excel对象
    Dim wb As Object
    Set wb = xlapp.Workbooks.Open(Filename:="D:\a.txt", Format:=6, Delimiter:=",")  '用excel直接打开D盘下的a.txt文件，以逗号进行分隔文本
    MsgBox wb.Sheets(1).Range("A1").Value   '读取第一个张工作表的A1单元格的内容
    
    wb.Close True   '关闭该文本
    xlapp.Quit   '退出Excel
End Sub

追问

提示“自程序或函数为定义”，光标落在“creatobject”上

追答

你电脑有没有装Office？
还有，你用的是VB，还是VB.NET？

追问

vb6，装了excel

追答

我已经测试过，代码完全能顺利运行！

如果不行，你在Createobject(,"Excel.Application")这里加一个逗号试试！代码如下：

Sub xxx()
    Dim xlapp As Object
    Set xlapp = CreateObject(,"Excel.Application")   '读取Excel对象
    Dim wb As Object
    Set wb = xlapp.Workbooks.Open(Filename:="D:\a.txt", Format:=6, Delimiter:=",")  '用excel直接打开D盘下的a.txt文件，以逗号进行分隔文本
    MsgBox wb.Sheets(1).Range("A1").Value   '读取第一个张工作表的A1单元格的内容
     
    wb.Close True   '关闭该文本
    xlapp.Quit   '退出Excel
End Sub

追问

那能把您的代码（所有的）发过来吗

谢谢了

追答

你加我吧：13467914

Answer 2

Open "e:\22\1.txt" For Input As #1

追问

我是说用excel来打开

追答

我给出的代码就是在excel上打开文本文件。看来你对vba一点不懂。
Open "e:\22\1.txt" For Input As #1
'的意思就是读取1.txt文件为1号文件，为单元格和文本内容交换做准备。
你的问题中只是说要打开txt文件后打算把单元格的内容写入到文本文件中还是把txt中的内容写入单元格中。上面那位师傅的代码也可以就是太麻烦了。既然你采用了他的答案就让他帮助你吧。拜拜！