(12)文本文件操作参考（文本的基本操作）

打开文本文件

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