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

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

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

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方法，將其改裝為一個函數(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

就是這么簡單。