[已解决]本人VBA小菜,哪位老师帮完善下下面这个小软件,十分感谢.

jolymrzhang

哪位老师帮完善下下面这个小软件,十分感谢,  要求在窗i体文本框扫描完数据后自动保存到指定TXT文件，具体格式如图所示，然后清空窗体文本框里数据进行下一组数据扫描，扫描完后数据自动保存到原TXT文件中，但是不覆盖上一次扫描的数据，同时光标又回到文本框一。

最佳答案

月排行榜 / 总排行榜

砂海

2016-5-1 08:53

如果在同一文件夹
Private Sub CommandButton1_Click()
Dim aa As String
aa = TextBox1.Text & TextBox2.Text & TextBox3.Text & TextBox4.Text & TextBox5.Text
Open ThisWorkbook.Path & "\db上传.txt" For Append As #1 'Output 是覆盖
Print #1, aa
Close #1
Unload Me
UserForm1.Show
End Sub

跳转到最佳答案楼层

砂海

如果在同一文件夹
Private Sub CommandButton1_Click()
Dim aa As String
aa = TextBox1.Text & TextBox2.Text & TextBox3.Text & TextBox4.Text & TextBox5.Text
Open ThisWorkbook.Path & "\db上传.txt" For Append As #1 'Output 是覆盖
Print #1, aa
Close #1
Unload Me
UserForm1.Show
End Sub

jolymrzhang

砂海 发表于 2016-5-1 08:53
如果在同一文件夹
Private Sub CommandButton1_Click()
Dim aa As String

谢谢老师的指点，受益匪浅