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

今日繼續(xù)和大家分享VBA編程中常用的常用"積木"過程代碼。這些內(nèi)容大多是我的經(jīng)驗(yàn)和記錄，來源于我多年的經(jīng)驗(yàn)。今日分享的是NO.238-239，內(nèi)容是：

NO. 238：利用Offset選擇某個(gè)單元格

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

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

Sub Mynz()

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

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

End Sub

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

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

Sub Mynz()

Dim myrLine As String

Dim i As Integer ' line number

i = 1

Open "E:zwork文章人員表單.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里作為文件號(hào)碼1打開。Do…While循環(huán)告訴VBA一直執(zhí)行循環(huán)里面的語句，直到到達(dá)文件結(jié)尾。文件的結(jié)尾由函數(shù)EOF的結(jié)果決定。 Line Input # 語句將每行內(nèi)容儲(chǔ)存于變量myrLine里，然后，信息框顯示行號(hào)和它的內(nèi)容。

VBA是利用OFFICE實(shí)現(xiàn)自己小型辦公自動(dòng)化的有效手段，我根據(jù)自己20多年的VBA實(shí)際利用經(jīng)驗(yàn)，現(xiàn)在推出了四部VBA經(jīng)驗(yàn)學(xué)習(xí)資料，是我"積木編程"思想的體現(xiàn)。

第一：VBA代碼解決方案，是VBA中各個(gè)知識(shí)點(diǎn)的講解，覆蓋了絕大多數(shù)的知識(shí)點(diǎn)；

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

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

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

目前正在寫第五部教程：VBA中類的解讀和利用，希望在年內(nèi)陸續(xù)在各個(gè)平臺(tái)和大家見面。

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

總結(jié)

以上是生活随笔為你收集整理的vba读取csv文件到excel_利用VBA打开顺序文件，并读取的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。