如何用EXCEL的VBA代码关闭已经打开的文本文件?
2个回答
2017-12-27
展开全部
给你举个例子:
Sub test11()
Open ThisWorkbook.Path & "\output.txt" For Output As #1 '在#1打开当前文件夹中的output.txt文件
str1 = "123"
str2 = "你好吗"
str3 = "hello"
Print #1, str1, str2, str3, Date '写入内容
Write #1, str1, str2, str3, Date '写入内容
Close #1 '关闭#1这个文件
End Sub
程序会在output.txt文件内生成两列内容如下:
123 你好吗 hello 2013-11-22
"123","你好吗","hello",#2013-11-22#
说明:ThisWorkbook.Path表示相对路径,是指当前vba对应宏文件所在的文件夹,当前的output.txt与vba对应的宏文件是同文件夹。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询