vba(excel)如何將當前目錄中的test.txt的內容顯示在userform1.textbox1中？

打開VBA編輯器, 插入壹個用戶窗體, 在窗體中放壹個textbox, 壹個commandbutton, 然後打開窗體代碼窗口粘貼以下代碼

Private Sub CommandButton1_Click()

'讀入壹個ANSI編碼的文本文件,並顯示在textbox中

On Error GoTo errhand

ipath = ThisWorkbook.Path & "\test.txt"

Open ipath For Input As #1

TextBox1.MultiLine = True

TextBox1.Value = StrConv(InputB(LOF(1), 1), vbUnicode)

Close #1

Exit Sub

errhand:

If Err.Number = 53 Then

MsgBox "當前工作薄目錄下未找到test.txt"

Else

MsgBox "未知錯誤!"

End If

End Sub