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

Question

如题所述

Answer 1

给你举个例子：

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

Answer 2

怎么打开的，就怎么关闭，只是一个open，一个close追问

打开是用Workbooks.OpenText Filename:=Application.GetOpenFilename()。。。来任意打开的，而CLOSE是需要一个文件号的

追答

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