Question

（vba excel ）commandbutton动作，肿么讲textbox中的内容直接存为表格所在目录下的123.txt文件,Pls。3Q

textbox是多行内容

Answer 1

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

Private Sub CommandButton1_Click()
'把textbox中的内容写入一个文本文件,保存当前工作薄所在的目录
arr = Split(TextBox1.Value, vbCrLf)
ipath = ThisWorkbook.Path & "\123.txt"
Open ipath For Output As #1
For i = 0 To UBound(arr)
Print #1, arr(i)
Next
Close #1
MsgBox "文本框内容已保存!,保存路径:" & ipath
End Sub

追问

只能存第一行

追答

我在excel 2003 测试通过保存的文本内容是完整的textbox中的内容,
因为textbox自动换行没有插入换行符
所以,arr在装入textbox的内容是把整个内容当做一行装入arr的.
如果你要分行装入可以在textbox1输入内容的时候插入换行符或按shift+enter换行,就可以在保存文本文件是保存为多行了

Answer 2

在T.a.o淘.b.a.o宝搜索(EXCEL程序编程),就会有专业人士给你做了!