Question

vba （excel）怎么打开一个txt文件显示在textbox中，或者将textbox中内容成为txt文件

Answer 1

新建一个excel工作薄,打开VBA编辑器,插入一个用户窗体,在窗体中放一个textbox,两个commandbutton,然后打开窗体代码窗口粘贴以下代码

Private Sub CommandButton1_Click()
'读入一个ANSI编码的文本文件,并显示在textbox中
With Application.FileDialog(msoFileDialogOpen)
If .Show Then ipath = .SelectedItems(1)
End With
If ipath <> "" Then
Open ipath For Input As #1
TextBox1.MultiLine = True
TextBox1.Value = StrConv(InputB(LOF(1), 1), vbUnicode)
Close #1
End If
End Sub
Private Sub CommandButton2_Click()
'把textbox中的内容写入一个文本文件,保存当前工作薄所在的目录
arr = Split(TextBox1.Value, vbCrLf)
ipath = ThisWorkbook.Path & "\" & Left(arr(0), 8) & ".txt"
Open ipath For Output As #1
For i = 0 To UBound(arr)
Print #1, arr(i)
Next
Close #1
MsgBox "文本框内容已保存!,保存路径:" & ipath
End Sub