除非注明，文章均為 戰(zhàn)戰(zhàn)如瘋 原創(chuàng)，轉(zhuǎn)載請(qǐng)保留鏈接: http://www./cat4/490.html，VBA交流群273624828。

看到有網(wǎng)友說想要將txt文本中的字符串直接賦值給參數(shù)，這個(gè)問題其實(shí)是很常見的，在VBA的編輯界面，如果我們需要一個(gè)很長(zhǎng)的字符串做為某個(gè)字符串型變量的值，一是書寫起來很麻煩，二是字符串是有一定的長(zhǎng)度限制的（好像最長(zhǎng)是65536，待考證）。但是如果這個(gè)字條串是從其它文件賦值過來的則不存在長(zhǎng)度限制這個(gè)問題了，比如我們經(jīng)常用到的網(wǎng)頁(yè)抓取，每次獲得的返回文本動(dòng)輒10多萬(wàn)，但我們?nèi)匀豢梢园阉x值給一個(gè)字符串變量然后去處理它，從txt文件中得到的字符串也是相同的，不存在長(zhǎng)度的限制。

其實(shí)將txt中的內(nèi)容賦值給字符串變量和我們前面講過的將txt文件導(dǎo)入excel是完全相同的，只不過這次不是放在單元格里，而是放在一個(gè)變量里，下面看一個(gè)過程代碼

Sub test()
Dim mypath, myfile, s
mypath = ThisWorkbook.Path
myfile = mypath & "\新建文本文檔.txt"
Open myfile For Input As #1
s = StrConv(InputB(LOF(1), 1), vbUnicode)
Close #1
MsgBox s
End Sub

就是我們前面講過的Input方法，將其改裝為一個(gè)函數(shù)就是

Function GetTXT(ByVal myfile As String)
Open myfile For Input As #1
GetTXT = StrConv(InputB(LOF(1), 1), vbUnicode)
Close #1
End Function

參數(shù)myfile是txt的完整路徑，那樣上面的代碼就可以變成

Sub test()
Dim mypath, myfile, s
mypath = ThisWorkbook.Path
myfile = mypath & "\新建文本文檔.txt"
s = GetTXT(myfile)
MsgBox s
End Sub

就是這么簡(jiǎn)單。