Question

vba(excel)如何将当前目录中的test.txt的内容显示在userform1.textbox1中？

Answer 1

打开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

追问

我想问下，lof（1）的也1有什么用处，为什么是1，可不可以是a什么的

追答

1是VBA打开的文本文件编号 不能使其他的.规定只能是数字
更多的可以在我的收藏中查看用OPEN操作文本文件