当前位置：首页 - 正文

如何用EXCEL的VBA代码关闭已经打开的文本文件?

发布网友发布时间：2022-04-23 09:23

共2个回答

热心网友时间：2023-05-19 07:03

给你举个例子：

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对应的宏文件是同文件夹。

热心网友时间：2023-05-19 07:03

怎么打开的，就怎么关闭，只是一个open，一个close追问打开是用Workbooks.OpenText Filename:=Application.GetOpenFilename()。。。来任意打开的，而CLOSE是需要一个文件号的

追答Workbooks("jjjjjjjj.txt").Close savechanges:=0

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。
E-MAIL:11247931@qq.com

焦点

如何用EXCEL的VBA代码关闭已经打开的文本文件?

最新推荐

猜你喜欢

热门推荐