![61a2813b8a3e5a06b44c9124d722921d.png](https://i-blog.csdnimg.cn/blog_migrate/0b9d8760034b3a2b31c91c3a1c82c93f.jpeg)
打开文本文件
Workbooks.OpenText Filename:="路径文件名",StartRow:=1,DataType:=xlDelimited,x
x为:
Comma:=True 如果为 True,则将逗号用作分隔符(DataType 必须为 xlDelimited). 默认值为 False。
Semicolon:=True 如果为 True,则将分号用作分隔符(DataType 必须为 xlDelimited). 默认值为 False。
Space:=True 如果为 True,则将空格用作分隔符(DataType 必须为 xlDelimited). 默认值为 False。
Other:=True,OtherChar:="符号" 如果为 True,则将 OtherChar 参数指定的字符用作分隔符(DataType 必须为 xlDelimited)。默认值为 False。
建立查询表
With ActiveSheet.QueryTables.Add(Connection:="TEXT;"&路径文件名,Destination:=Range("A1"))
.TextFilePlatform=936
.TextFileCommaDelimiter=True
.Refresh
End With
写入文本文件
Setfso=NewScripting.FileSystemObject
Set myTxt=fso.CreateTextFile(Filename:="路径文件名",OverWrite:=True)
With myTxt
.Write内容
.WriteBlankLines5
.WriteLine内容
.WriteLine内容
.Write内容&vbCrLf&内容
.Close
End With
读取文本文件
Setfso=NewScripting.FileSystemObject
Set myTxt=fso.OpenTextFile(Filename:="路径文件名",IOMode:=ForReading)
With myTxt
i=1
DoUntil.AtEndOfStream
Cells(i,1)=.ReadLine
i=i+1
Loop
.Close
End With
读取文本文件字符
Setfso=NewScripting.FileSystemObject
Set myTxt=fso.OpenTextFile(Filename:="路径文件名",IOMode:=ForReading)
MsgBox文本文件的前5个字符为:&myTxt.Read(5)
myTxt.Close
读取文本文件某行内容
Setfso=NewScripting.FileSystemObject
Set myTxt=fso.OpenTextFile(Filename:="路径文件名",IOMode:=ForReading)
With myTxt
Fori=1Ton
.SkipLine
Nexti
MsgBox文本文件的第n+1行数据为:&.ReadLine
.Close
End With