本文目录一览：

vb 关闭excel

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

excel里要怎么把函数关掉

1、打开一个带有函数公式的表格。

2、按“ctrl+A”全选数据，全选完成后，按“ctlr+C”进行复制。

3、复制完成后，鼠标右键点击表格中央。

4、在展开的菜单中，点击“选择性粘贴”。

5、在弹出的窗口中选中“数值”，选中数值之后，点击“确定”按钮。

6、确定完成后，表格中的函数公式就被关掉了。

另外需要注意的是去除函数通常包括两种，除了以上的清除函数但保留数据的情况，还有另一种情况，则是指去除函数且删除数据，如果要清除函数公式的同时，也想清除公式计算结果的话，直接选择要清除的单元格，按DELETE就可以了，可以按ctrl+g调出定位对话框，选择公式，则所有含有函数公式的单元格全部选中，点击delete键即可。

VB excel 关闭

close是关闭工作簿的方法，Quit是退出程序的方法，你这里xlApp是EXCEL程序对象，所以只能用 xlApp.Quit ，如果用xlApp.close 则会出错。

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；

二、先声明一字符串变量，然后用空格填充字符串，使变量大小与文件大小一致，再通过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。