返回目录：excel表格制作
close是关闭工作簿的方法，Quit是退出程序的方法，你这里xlApp是EXCEL程序对象，所以只能用 xlApp.Quit ，如果用xlApp.close 则会出错。
下面所举的例子均假设F盘下有一个名为d.txt的文本文件，若需要尝试这些例子请作相应的改动。
一、用定长的String变量获取文e79fa5e98193e59b9ee7ad94339本内容。由于定长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；
二、先声明一字符串变量，然后用空格填充字符串，使变量大小与文件大小一致，再通过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；
三、用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；
四、用Shell语句直接调出Windows的记事本，给个文件名即可轻而易举地打开文本文件。此法适合于打开程序的Readme文件(注意：在可执行文件和要打开的文本文件之间要有空格)： Shell "NotePad.EXE f:\d.txt ",vbNormalFucus；
五、用RichTextBox控件自身的LoadFile属性打开文件： RichTextBox1.LoadFile "f:\d.txt ", rtfText。
sub aa()
workdir = ActiveWorkbook.Path '获取当前路百劲（C:\dcam\pmill2\程序单）
Workbooks.Open Filename:=workdir + "\Temp1.xls" '打开Temp1.xls
Windows("Temp1.xls").Activate
Application.DisplayAlerts = False ‘避度免弹出对话框
'ActiveWorkbook.Save '保存表格内，此处不保存
ActiveWorkbook.Close '关闭容Temp1.xls
Application.DisplayAlerts = True
end sub
Dim EApp As Object‘定百义一个度全知局变道量
Private Sub CommandButton1_Click()'打开回
Set EApp = CreateObject("Excel.Application")
EApp.Visible = True
End Sub
Private Sub CommandButton2_Click()'关闭答
If Not EApp Is Nothing Then
EApp.Quit
End If
End Sub