大家好，疫情施虐，國外各地更有爆發的跡象，但無論怎樣，我們一定要堅信，疫情終將會過去，曙光一定會到來。后疫情時代將會是一個全新的世界，很多理念都將被打破，大多數人不會再享受體制內的保護，對于我們每個人，要盡可能多的學習有用的知識，為自己充電。在今后更加嚴峻的存量殘殺世界中，為自己的生存進行知識的儲備，特別是新知識的儲備。為后疫情時代做的必要準備。

今日繼續和大家分享VBA編程中常用的常用“積木”過程代碼。這些內容大多是我的經驗的記錄，來源于我多年的經驗。今日分享的是NO.238-239，內容是：

NO. 238：利用Offset選擇某個單元格

NO.239：VBA打開順序文件用Line Input讀取文件

VBA過程代碼238：利用Offset選擇某個單元格

Sub Mynz()

Range("A1").Offset(1, 3).Select 選擇單元格A1下面一行和右邊三列的單元格

Range("D15").Offset(-2, -1).Select 選擇單元格D15上面兩行和左邊一列的單元格

End Sub

代碼解析：Mynz過程中第一行代碼使用Offset選擇單元格A1下面一行和右邊三列的單元格，第二行代碼選擇單元格D15上面兩行和左邊一列的單元格。Offset屬性使用兩個自變量來獲得新單元格區域的地址。第一個自變量表示行偏移，第二個自變量則表示列偏移。

VBA過程代碼239：VBA打開順序文件用Line Input讀取文件

Sub Mynz()

Dim myrLine As String

Dim i As Integer ' line number

i = 1

Open "E:nzwork文章人員表單.txt" For Input As #1

Do While Not EOF(1)

Line Input #1, myrLine

MsgBox "Line " & i & ": " _

& Chr(13) & Chr(13) & myrLine

i = i + 1

Loop

MsgBox i & " lines ok"

Close #1

End Sub

代碼解析：Mynz過程將文件人員表單.txt在模式Input里作為文件號碼1打開。Do…While循環告訴VBA一直執行循環里面的語句，直到到達文件結尾。文件的結尾由函數EOF的結果決定。 Line Input # 語句將每行內容儲存于變量myrLine里，然后，信息框顯示行號和它的內容。

VBA是利用OFFICE實現自己小型辦公自動化的有效手段，我根據自己20多年的VBA實際利用經驗，現在推出了四部VBA經驗學習資料，是我“積木編程”思想的體現。

第一：VBA代碼解決方案，是VBA中各個知識點的講解，覆蓋了絕大多數的知識點；

第二：VBA數據庫解決方案，是數據處理的專業利器，介紹利用ADO連接ACCDB,EXCEL。

第三：VBA數組與字典解決方案，講解VBA中的數組和字典的利用。

第四：VBA代碼解決方案之視頻，是專門面向初學者的視頻講解，可以快速入門，更快的掌握這門技能。

目前正在寫第五部教程：VBA中類的解讀和利用，希望在年內陸續在各個平臺和大家見面。

VBA真的非常實用，希望大家掌握這個工具，利用這個工具，讓自己在工作中輕松，高效，快樂。學習有用的知識，讓健康的知識服務于大眾，不要想不勞而獲，更不要去偷奸取巧，踏踏實實，沉下心，提高自己，為后疫情時代做好知識的儲備。

總結

以上是生活随笔為你收集整理的vba 循环读取单元格_利用VBA打开顺序文件，并读取的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。