本文目录一览：
- 1、如何用EXCEL的VBA代码关闭已经打开的文本文件？
- 2、VB编程如何打开和关闭EXCEL文件？
- 3、EXCEL代码实现打开指定文件更改后保存并关闭
- 4、如何用vba代码终止excel的关闭？
- 5、在vba中怎样用代码关闭excel应用程序,我用excel.application.quit怎么会关不了?
如何用EXCEL的VBA代码关闭已经打开的文本文件？
给你举个例子：
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对应的宏文件是同文件夹。
VB编程如何打开和关闭EXCEL文件？
下面所举的例子均假设F盘下有一个名为d.txt的文本文件，若需要尝试这些例子请作相应的改动。
一、用定长的String变量获取文本内容。由于定长String变量支持的下界为65400,所以在打开超过32K字节的文件时超出部分的字节将无法获取: Private Sub Command1_Cliack() Dim sA As String * 65400 '声明定长String变量 Open "F:\d.txt " For Binary As #1 '用二进制打开文件 Get #1, , sA '用Get语句从文件中获取字节 Text1 = sA '显示打开的文件 Close #1 '关闭文件 End Sub；-excel代码关闭文件
二、先声明一字符串变量，然后用空格填充字符串，使变量大小与文件大小一致，再通过Get语句将文件全部数据存储到变量中，从而达到获取整个文件字节数的目的。
此法可以打开大于32K的文件，但应该注意的是，装载文件的容器必须能装载大于32K的文件，下例用RichTextBox控件显示打开的文件： Private Sub Command1_Click() Dim sA As String Open "f:\d.txt " For Binary As #1 sA = Space(LOF(1)) '用空格填充sA变量 Get #1, , sA '用Get语句获取文件全部内容 RichTextBox1.Text = sA Close #1 End Sub；-excel代码关闭文件
三、用StrConv函数将文件的控制字符串数据和Unicode码之间进行转换，从而达到打开文件的目的。可打开任意大小文件。
再给一个简单例子： Private Sub Command1_Click() Open "f:\d.txt " For Input As #1 RichTextBox1.Text = StrConv(InputB$(LOF(1), 1), vbUnicode) Close #1 End Sub；-excel代码关闭文件
四、用Shell语句直接调出Windows的记事本，给个文件名即可轻而易举地打开文本文件。此法适合于打开程序的Readme文件(注意：在可执行文件和要打开的文本文件之间要有空格)： Shell "NotePad.EXE f:\d.txt ",vbNormalFucus；-excel代码关闭文件
五、用RichTextBox控件自身的LoadFile属性打开文件： RichTextBox1.LoadFile "f:\d.txt ", rtfText。
EXCEL代码实现打开指定文件更改后保存并关闭
当前Excel中加入如下的工作簿代码即可。
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Workbooks.Open "D:\1234.xls"
End Sub
如何用vba代码终止excel的关闭？
代码中，只是关闭了一个Excel文件。
事实上，应该关闭整个Excel软件。
VBA代码可以修改为：
Sub 完成工作()
ActiveWorkbook.Save
ThisWorkbook.Application.Quit
'或者Application.Quit
End Sub
即可。
在vba中怎样用代码关闭excel应用程序,我用excel.application.quit怎么会关不了?
Sub 关闭方法1()
Application.DisplayAlerts = False
ThisWorkbook.Save
Application.Quit
ThisWorkbook.Close
Application.DisplayAlerts = True
End Sub
'---------------------------------------------
Sub 关闭方法2()
Application.DisplayAlerts = False
ThisWorkbook.Save
'Application.Quit
Application.DisplayAlerts = True
Shell "taskkill /f /im EXCEL.EXE"
End Sub
是这样的,Close和Quit方法，是可以退出工作簿，和直接彻底关掉Excel的Application的背景界面的，但是必须有先后顺序，你得先用Quit再接Close语句（比如上面方法1），原因是：用了Close之后，再接Quit，你的VBA工程就没有对象支持了，剩下任何代码都无法继续依托Excel对象运行。也可以用另一种方法（比如上面方法2），你用代码保存文档，然后用Bat（批处理）里面的方法，也就是用taskkill /F /IM “程序名称”方法在保存文档之后强制关闭Excel应用界面，这种方法比较彻底，无残留。-excel代码关闭文件
