1. vba关闭excel文件
方法如下：
1. VBA的程序一般保存在模块中，所以在编写程序之前，需要先添加一个模块。
2. 添加模块的第一种方法：点击菜单栏的“插入”，选择模块。
3. 添加模块的第二种方法：鼠标置于“工程资源管理器”窗口，右击选择“插入”，然后“模块”。
4. 如果有多余的模块，可以删除它。删除模块的第一种方法：在“工程资源管理器”窗口选中要删除的模块，点击菜单栏的“文件”，选择“移除模块”。
5. 删除模块的第二种方法：右击单击需要删除的模块，选择“移除模块”。
6. 删除模块后，同时也将删除保存在该模块的所有程序
2. vba关闭excel文件不弹出提示
一定要使用VBA吗？我的方法也是使用表单控件，但是不是命令按钮，而是微调按钮（spin button）。不使用VBA。
插入spin button（第一行第四个）
鼠标右键打开控件（format control）窗口，设置当前值，最大值，最小值和连接的单元格等几个参数。
点击“ok”关闭窗口，即可以通过按钮上调或者下调D4单元格的值。每次增加或者减少1.
这个方法的问题是，那个单元格是事先选定的（比如上面例子里的D4单元格）。那个单元格不能随意改变。
3. vba保存文件并关闭
方法/步骤如下
1
我们在D盘下的test文件夹新建了一个test.xlsx文件，并在文件中的工作表中A1单元格输入一些信息。
2
保存并关闭上面新建的文件，在另外一个Excel文件中打开Visual Basic，添加模块和过程。
3
在过程中输入打开文件的代码：
Workbooks.Open：在Workbooks表示文件，Open是打开的动作。
如果仅执行以上代码，会报错。
4
因此，打开文件夹的动作后面需要加上必要的参数：
Filename:="D:\test\test.xlsx"：找到D盘test文件夹下的文件。
5
执行以上代码后，就可以打开文件test.xlsx。
6
打开文件后，我们对文件做一些数据操作，如在A2单元格输入Hi World!
代码ActiveWorkbook.Sheets(1).Range("A2") = "Hi World!"：当前活跃的文件下的第一张工作表下的A2单元格输入信息。
7
再次执行以上代码后，可以看到文件内容已更新
4. vba关闭excel文件不保存
直接保存或者另存为或者复制保存
5. vba不保存excel 并关闭
1、首先，如果文件格式是Excel 2010版（.xslm），需要先打开Excel文件，另存为2003版格式（.xls）。
2、然后用普通的文本编辑器（这里用的是NotePad++）打开这个文件，注意文件类型选“所有文件”。
3、然后在文件里查找“DPB"，把它改成“DPx”。注意大小写。
4、保存修改。然后用Excel重新打开这个文件。你会遇到一些错误，忽略它们。
5、然后进入Excel的“开发工具”面板，选择“Visual Basic”。又会有一系列错误，忽略它们，知道VBA项目打开。
6、这时候已经可以查看VBA代码了。如果想改变甚至去除原来的密码，继续看。从VBA编辑器的“工具”菜单，选择“VBA工程属性...“，然后转到”保护“面板。
7、在密码框中输入新密码。保存VBA文件和Excel文件，关闭Excel。重新启动Excel并重新打开这个文件，然后进入"开发工具"->"Visual Basic"，会提示输入密码。输入新设置的密码。
8、然后回到VBA编辑器的“工具”->"VBA工程属性"->“保护”，去掉密码以及保护选项前面的标记。最后保存文件即可
6. vba关闭excel文件时弹出副本
如果每次都这样，很可能是中了宏病毒！你可以这样确定一下：“工具”“选项”“安全性”“宏安全性”“高”或“非常高”，确定。
然后关闭excel，再打开平时使用的任一个excel文件，如果状况消失就肯定是中了宏病毒！具体清理的话你搜一下xstart这个目录，看里面有没文件（注意可能设成了隐藏属性）！
有的话把它移走或删除，再看看VBA里有没可疑代码，有的话删除!!
7. vba关闭excel文件禁用beforeclose事件
在办公室中管理中权限管理是非常重要的一部分，对于一部分员工可以开放打印功能，而对于另一部分员工而言，由于考虑到经济成本，则不能开放打印机功能。那么如何才能禁止一部分人使用打印功能呢？这就是我们今天所要探讨的话题。 2 在当今时代，越来越倾向于无纸化办公了，很多公司、个人都在频繁使用Excel 2007。但是在Excel 2007的操作过程中我们可能会无意中碰到了打印按钮，或者一些人不太注重节约，随意打印Excel 2007文件，甚至是直接打印一般人禁止打印的Excel 2007文件。在不影响Excel 2007文件的编辑保存等重要操作情况下，我们该如何拒绝文件打印呢？ 3 其实这是比较简单的，大家我们只需要利用一段宏指令即可解决，具体操作如下：按下Alt+F11打开VBA编辑器，如果VBA Project窗格没有显示的话就按下组合键Ctrl+R将其调出；右键单击“This Workbook”，选择“查看代码”，然后再代码窗口内输入： Private SubWorkbook_BeforePrint(Cancel As Boolean) Cancel = True MsgBox “节约用纸 拒绝打印”, vbInformation End Sub 4 然后我们按下组合键Alt+F11返回Excel2007。这样以后不管你是直接点击打印按钮，还是从“Office按钮”中选择“打印”，或者是使用快捷键Ctrl+P，都不能直接打印，只会显示你在宏指令中输入的提示语“节约用纸 拒绝打印”。这也让大家知道打印机不能打印的原因是有意为之，而不是硬件或软件有什么问题。
8. vba打开指定excel文件并关闭保存
1.用Shell函数打开指定的文件夹
代码如下：
Sub exceloffice()
'*****************
'上面一连串代码
'最后打开文件夹看下效果
Dim sPath As String
sPath = "c:\test"
Shell "explorer.exe " & sPath, vbMaximizedFocus
End Sub
Shell函数是vba内置的函数，使用起来非常方便。它可以直接运行各种exe程序，同时附带参数运行。
使用Shell函数还可以直接运行Python打包后的exe程序，从而借助Python的强大功能助推VBA。
在本例中，Shell函数通过调用文件资源管理器explorer.exe直接打开指定的文件夹，其中 vbMaximizedFocus表示打开的时候最大化显示。
方法二：用Shell对象打开指定的文件夹
代码如下：
Sub exceloffice()
'*****************
'上面一连串代码
'最后打开文件夹看下效果
Dim sPath As String
sPath = "c:\test"
Dim oShell As Object
Set oShell = VBA.CreateObject("shell.application")
With oShell
.Open (sPath)
End With
End Sub
其实这个原理和Shell是一样的，但是Shell对象提供了自动化接口，功能更全，不仅可以打开文件夹，还可以做很多操作电脑的事情。
比如切换到桌面、打开运行对话框、关闭电脑等等，如下所示
Sub exceloffice()
Set oShell = CreateObject("shell.application")
With oShell
'切换到桌面
.ToggleDesktop
'打开运行对话框
.FileRun
'关闭电脑，记得保存文件
.ShutdownWindows
End With
End Sub
9. vba关闭excel文件并保存
1.首先选择自己需要取消兼容模式的文件，用Excel打开该文件，打开之后文件上方的文件名后面显示的是兼容模式。
2.接下来点击Excel面板最左侧的菜单键，点击打开菜单，找到菜单下侧的另存为 选项，鼠标单击另存为选项。
3.然后选择弹窗下侧的保存类型，鼠标单击保存类型后面的方框，点击方框之后，选择第一个Excel文档，点击保存。
4.最后关闭Excel软件，找到之前保存的文档的位置，再次用Excel打开该文件，就会看到该文件名后面的兼容模式消失了。
10. vba 关闭文件
答方法/步骤
1
教程以新建的Excel2013为例来介绍如何运用VBA来实现隐藏Excel窗口。
2
鼠标左键双击Excel图标即可打开该电子文档。
3
在Excel窗口按下Alt+F11键即可快速跳转到VBA窗口。
4
在VBA窗口菜单栏中找到插入命令下面的模块。
5
在模块中复制粘贴以下代码：
Sub 隐藏Excel窗口()
Application.Visible = False
End Sub
6
将鼠标光标停留在代码之间，然后按下F5键即可运行该段代码实现隐藏Excel窗口功能。
11. vba打开word文档并关闭
你说的这个教程可以参考使用。
（1）在这部分代码首尾加循环，遍历WORD中的所有表格。这部分只是把第WORD的第1个表格的数据写入EXCEL的代码。
（2）修改相应代码。比如WORD中TABLES的序号，读取和赋值的单元格行列号，采用变量表示，在每次循环时增加几。
- 相关评论
- 我要评论
-