VBA 使用FileSystemObject读取文本文件
示例
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
Sub ReadTextFileExample()
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Dim sourceFile As Object
Dim myFilePath As String
Dim myFileText As String
myFilePath = "C:\mypath\to\myfile.txt"
Set sourceFile = fso.OpenTextFile(myFilePath, ForReading)
myFileText =sourceFile.ReadAll' myFileText now contains the content of the text file
sourceFile.Close' close the file
' do whatever you might need to do with the text
' You can also read it line by line
Dim line As String
Set sourceFile = fso.OpenTextFile(myFilePath, ForReading)
While NotsourceFile.AtEndOfStream' while we are not finished reading through the file
line = sourceFile.ReadLine
' do something with the line...
Wend
sourceFile.Close
End Sub
热门推荐
10 病人祝福语老师寄语简短
11 新娘生孩子祝福语简短
12 婆婆66岁祝福语简短
13 今天孩子高考祝福语简短
14 送彩票生日祝福语简短
15 分别祝福语简短情话英文
16 画室揭牌仪式祝福语简短
17 女友妈妈生日祝福语简短
18 离别赠言离职祝福语简短