系統(tǒng)環(huán)境：Windows 10Excel:2016版

這個系列匯集了幾個常用的功能模塊，可以在一些項目中應(yīng)用。

功能模塊包含許多與文件和文件夾相關(guān)的子模塊

今天談?wù)搶ξ谋疚募?nèi)容的操作、文件讀取

第1部分：準(zhǔn)備工作

FSO是Set FSO=CreateObject(' Scri；)。

第2部分：讀取文件

讀取文件(FSO)；讀取前必須打開文件；每次使用啟用讀取的Readline時，只讀取一行Readline；指針的位置也下降，與循環(huán)do while loop一起讀取全文。AtEndOfStream確定文本是否讀取末尾行。行使用當(dāng)前指針?biāo)谖恢玫男刑?。使用后記得關(guān)閉文本文件。指針類似于告訴你工作的地方。以下代碼是西游記第一部。讀取“txt”文件中的每一行Sub test()。

set FSO=CreateObject(' Scri；)。

當(dāng)前dir=t' \ '

WenJianName1='西游記第一集。" txt "

wenjian addr 1=current dir wenjian name 1

Const for reading=1，for writing=2，for appending=8，tristate true=-1

set strnew file open=(wenjian addr 1，for reading，tristate true)

Do While Not

HangHao=

HangContent=

循環(huán)(音樂)

End Sub

讀取文件，Open絕對路徑For Input As #文件標(biāo)簽與Input Line Input #1組合讀取文本內(nèi)容與Input可選Output或Append，Print #2組合，將以下代碼寫入文本從文件1中依次讀取每行，并將ABC opend附加寫入文件2

Do While Not EOF(1)

Line Input #1，HangContent

循環(huán)(音樂)

Close #1

Open WenjianAddr2 For Append As #2

Print #2，' abc '

Close #2

上面，為了這次介紹的內(nèi)容，下次見。

這篇文章在微信公眾號Excel高效辦公室的VBA上發(fā)行。排版和細(xì)節(jié)稍加修改，刊登在頭條上