vba (excel)怎么打开一个txt文件显示在textbox中,或者将textbox中内容成为txt文件
展开全部
新建一个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
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
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |