VBA入门到进阶常用知识代码总结51

第51集 Txt文件的写入
237、 Open命令
Open 文件名 for 打开方式 as 文件编号
打开方式:
Input：只能读，不能写
Append：允许读也允许写，如果存在文件就追加记录，如果没有就新建文件
Output：可以读，也可以写。但总会把原来的同名文件删除，再新建一个

238、 向文件中写入数据
write #：向文件中写入值，值用引号引起来。如果想在同一行中继续写入，可以在前一次写时结尾添加“;”号
Print #：向文件中写入值，如果想在同一行中继续写入，可以在前一次写时结尾添加“;”
字符的间隔符
Spc(n)表示输入n个空字符
239、 用Print写入
Sub t1()
Dim f As String
f = ThisWorkbook.path & “\a.txt”
Open f For Output As #1 '隐式打开
Print #1, “产品名称”
Print #1, Date
Close #1
End Sub
结果：

'2 在同一行输入
Sub t2()
Dim f As String
f = ThisWorkbook.path & “\a.txt”
Open f For Output As #1
Print #1, “产品名称”;
Print #1, “A产品”
Close