1. vba打开指定excel文件并关闭
1、在工作表中，点击菜单栏【开发工具】，在其工具栏内，点击【visual basic】。
2、会进入VBA编辑界面！点击工具栏内【插入用户窗体】按钮，在其下拉菜单中，选择【模块】。
3、会弹出模块编辑窗口。
4、在代码编辑窗口输入以下代码：sub 关闭文件(),Workbooks("963.xls").Close ture,Workbooks("258.xls").Close,End Sub。
5、在VBA窗口，点击【运行】按钮！即可关闭【963.xls】和【258.xls】两个文件。
6、VBA工程窗口中，这两个文件被关闭不见了。
2. vba关闭指定excel文件
用Alt+F11进入VBA编辑器，用Ctrl+R打开工程资源管理器，双击“ThisWorkbook”,在编辑器上方有两个下拉列表框，一个选择对象，一个选择事件，分别选“Workbook”和“Open”就可对工作簿打开事件进行编程了。
若在事件下拉列表框选择“BeforeClose”,就可对工作簿将要关闭的事件编程。
类似地，在工程资源管理器，双击“Sheet1”,在编辑器上方有两个下拉列表框，一个选择对象，一个选择事件，分别选“Worksheet”和“SelectionChange”就可对Sheet1的SelectionChange事件进行编程了。如此等等......。
3. excel vba 关闭文件
操作步骤：
1、在excel工作表里按alt+f11,打开vba编程界面
2、在vba编程界面的工具栏，第二个按钮拉下来选模块
3、在左边栏的你需要计时器的那个工作表名字上双击，打开右边的程序书写区域
4、把下面的程序代码粘贴进去
privatesubworksheet_beforedoubleclick(byvaltargetasrange,cancelasboolean)
iftarget.cells.count=1and(notintersect(target.cells(1),range("b1"))isnothing)then
[b1]="开始时间"
[c1]=format(now(),"hh:mm:ss")
[d1]=timer
[d1].font.colorindex=2
[b2:d3].clearcontents
endif
iftarget.cells.count=1and(notintersect(target.cells(1),range("b2"))isnothing)then
[b2]="结束时间"
[c2]=format(now(),"hh:mm:ss")
[d2]=timer
[d2].font.colorindex=2
[b3]="总共用时"
[c3]=format([d2]-[d1],"#0.00")
[d3]="秒"
endif
target.offset(1,0).select
endsub
5、关闭vba编程界面回到工作表
6、双击b1开始计时，双击b2终止计时，用时结果在c3单元格
（特别提醒：要在exce中通过菜单“工具－宏－安全性”把宏的安全级别设为中或低以允许宏的运行，否则宏不能运行也得不到你要的结果）
4. vba关闭指定excel文件不保存
在宏里面设置一个全局变量，在函数里面对全局变量设置有效跟无效，并判定执行 dim mysave BooleanPrivate Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)call mysavesub '调用函数确认保存密码if mysave = false then '如果布尔类型mysave=false 则不能保存 msgbox "本工作薄禁用保存及另存。" Cancel = Trueend ifEnd Sub public sub mysavesub()psw = "123456" '保存密码if inputbox("请输入保存密码:) = psw then mysave = true '临时设置 为可以保存end if end sub
5. vba打开关闭excel文件
代码中，只是关闭了一个Excel文件。事实上，应该关闭整个Excel软件。VBA代码可以修改为：Sub 完成工作() ActiveWorkbook.Save ThisWorkbook.Application.Quit '或者Application.QuitEnd Sub即可。
6. vba如何关闭excel
如果知道密码的话，按快捷键ALT+F11.进入VBA界面去删除。如果不知道密码的话，可以用一些工具或者用宏程序去暴力破解。工具我知道的现在EXCEL必备工具箱比较好用
7. vba打开指定excel文件并关闭保存
excel中使用vba关闭excel的两种方法，有需要的朋友可以参考本文，来看看吧!
步骤
1、首先我们打开一个工作样表作为例子。
2、使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：
Sub SendKeysSample()
Application.SendKeys ("%fx")
End Sub
3、这个代码很简单，sendkeys是应用程序中的一个方法，作用是依次顺序发送几个按键值。对应的键值可以看出%号是alt键，fx则是键盘上对应的fx键。我们可以在excel中手动运行一下按下这三个键的作用。
4、按下alt+f键后会进入excel文件菜单，再次按下x，则会提示是否保存excel工作薄，选择相应属性后，关闭excel工作薄，完成退出操作。
5、这种是借用excel的快捷键组合操作完成的退出命令。还有一种是使用vba函数完成的操作。同样是输入对象application，并使用quit方法完成退出excel的目的。
Sub 关闭Excel()
MsgBox "Excel将会关闭"
Application.Quit
End Sub
6、直接运行这个过程，弹出一个msgbox提示信息，excel将会关闭。同样会在退出前提示是否保存工作薄。大家按需要选择即可。
以上就是excel使用vba关闭表格的两种方法介绍，操作很简单的，大家学会了吗?希望这篇文章能对大家有所帮助!
- 相关评论
- 我要评论
-