返回列表下一主題上一主題發帖

[發問] 如何讀進一筆資料(.TXT檔)?

linshin1999

中學生 Rank: 2

帖子: 199
主題: 45
精華: 0
積分: 252
點名: 0
作業系統: windows 7 (X64)
軟體版本: office 2010 (x64)
閱讀權限: 20
性別: 男
來自: 桃園
註冊時間: 2010-12-24
最後登錄: 2020-3-31

論壇贊助勳章論壇榮譽勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-1-7 21:44 | 顯示全部帖子

[發問] 如何讀進一筆資料(.TXT檔)?

本帖最後由 linshin1999 於 2011-1-7 21:47 編輯

要讀一筆資料進來,但不作為 Workbook 的工作表用,只讀進來運算用,請問如何寫?

Sub 讀入sys資料檔(ByRef sys_name As String)
Dim f_stream, f_rec, rec_str
Set f_stream = CreateObject("Scripting.FileSystemObject")
Set f_rec = f_stream.GetFile(sys_name)
rec_str = f_rec.ReadLine
f_rec.Close
MsgBox rec_str
End Sub

執行到 rec_str = f_rec.ReadLine 會出現物件不支援此屬性或方法的錯誤. 請問各位前輩如何才能把檔案讀出來?.