vb.net关闭工作簿 vba关闭窗口代码

vb.net如何触发excel内的一个按钮的单击事件

一定要先在VB中添加excel引用。

在工程中引用Microsoft Excel类型库vb.net关闭工作簿： 从"工程"菜单中选择"引用"栏；选择Microsoft Excel 11.0 Object Library（EXCEL2003）vb.net关闭工作簿，然后选择"确定"。表示在工程中要引用EXCEL类型库。

调用excelvb.net关闭工作簿的工作表中vb.net关闭工作簿的命令按钮，代码如下vb.net关闭工作簿：

Private Sub Command1_Click()

Dim xlApp As Excel.Application

Dim xlBook As Excel.WorkBook

Dim xlSheet As Excel.Worksheet

Dim FileName, SheetName As String

FileName = "e:\data.xls" '打开的工作簿路径名称

SheetName = "sheet1" '命令按钮所在的工作表名

Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象

Set xlBook = xlApp.Workbooks.Open(FileName) '打开已经存在的EXCEL工件簿文件

……

xlBook.Close (True) '保存并关闭工作簿

xlApp.Quit '结束EXCEL对象

Set xlApp = Nothing '释放xlApp对象

end sub

相关问答

Q1: vb.net怎么访问excel表格

我的是2007版本，其它类似

1.在工程中引用Microsoft Excel 12.0 Object Library

2、在通用对象的声明过程中定义EXCEL对象：

Dim xlApp As Excel.Application

Dim xlBook As Excel.WorkBook

Dim xlSheet As Excel.Worksheet

3、在程序中操作VB.NET EXCEL常用命令：

Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象

Set xlBook = xlApp.Workbooks.Open("文件名") '打开已经存在的EXCEL工件簿文件

xlApp.Visible = True '设置EXCEL对象可见（或不可见）

Set xlSheet = xlBook.Worksheets("表名") '设置活动工作表

xlSheet.Cells(row, col) =值 '给单元格（row,col）赋值

xlSheet.PrintOut '打印工作表

xlBook.Close (True) '关闭工作簿

xlApp.Quit '结束EXCEL对象

Set xlApp = Nothing '释放xlApp对象

xlBook.RunAutoMacros (xlAutoOpen) '运行EXCEL启动宏 xlBook.RunAutoMacros (xlAutoClose) '运行EXCEL关闭宏

还有很多，这个要自己慢慢摸索

Q2: vb.net2010关闭excel问题

使用 ADO 连接到 Excel

ADO 使用 MDAC 中以下两个 OLE DB 提供程序中的任何一个都可以连接到 Excel 数据文件。

Microsoft Jet OLE DB Provider — 或 —Microsoft OLE DB Provider for ODBC Drivers

使用 Microsoft Jet OLE DB Provider

Jet 提供程序只需要两条信息就可以连接到 Excel 数据源：路径（包括文件名）vb.net关闭工作簿，和 Excel 文件版本。

Jet 提供程序使用连接字符串

Dim cn as ADODB.Connection

Set cn = New ADODB.Connection

With cn

.Provider = "Microsoft.Jet.OLEDB.4.0"

.ConnectionString = "Data Source=C:\MyFolder\MyWorkbook.xls;" _

"Extended Properties=Excel 8.0;"

.Open

End With

提供程序版本：必须使用 Jet 4.0 提供程序vb.net关闭工作簿；Jet 3.51 提供程序不支持 Jet ISAM 驱动程序。如果指定了 Jet 3.51 提供程序，在运行时会出现以下错误信息：

Couldn't find installable ISAM.

Excel 版本：对于 Excel 95 工作簿（Excel 版本 7.0），应指定 Excel 5.0；对于 Excel 97、Excel 2000 或 Excel 2002 (XP) 工作簿（Excel 版本 8.0、9.0 和 10.0），应指定 Excel 8.0 版本。

使用“数据链接属性”对话框的 Jet 提供程序

如果在应用程序中使用“ADO 数据控件”或“数据环境”，就会出现数据链接属性对话框来收集必要的连接设置。

在提供程序选项卡上，选择 Jet 4.0 提供程序；Jet 3.51 提供程序不支持 Jet ISAM 驱动程序。如果指定了 Jet 3.51 提供程序，在运行时会出现以下错误信息：

Couldn't find installable ISAM.

在连接选项卡上，浏览到工作簿文件。忽略“用户 ID”和“密码”项，因为这些不适用于 Excel 连接。（无法打开受密码保护的 Excel 文件作为数据源。）

在所有选项卡上，从列表中选择扩展属性，然后单击编辑值。输入 Excel 8.0;，用分号 (;) 将其与任何其vb.net关闭工作簿他已有的项分隔。如果忽略此步骤，测试连接时将出现一条错误信息。这是因为如果不另行指定，Jet 提供程序期望 Microsoft Access 数据库。返回到连接选项卡，并单击测试连接。将出现一个消息框，通知测试已成功完成即可。

Q3: VBA怎样关闭工作簿和退出Excel?

要用VBA来关闭工作簿，用Workbook.Close 方法即可，而要退出Excel，则用Application.Quit 方法：\x0d\x0a\x0d\x0a关闭活动工作簿，如果工作簿有更改，提示是否保存：\x0d\x0aSub CloseWorkbook()\x0d\x0aActiveWorkbook.Close\x0d\x0aEnd Sub\x0d\x0a\x0d\x0a如果要避免出现提示，可添加“SaveChanges”参数，如直接保存并关闭工作簿：\x0d\x0aSub ClostAndSaveWorkbook()\x0d\x0aActiveWorkbook.Close Savechanges:=True\x0d\x0aEnd Sub\x0d\x0a将上述代码中的“True”改为“False”，则直接关闭工作簿而不保存。\x0d\x0a关闭所有打开的工作簿，并提示是否保存：\x0d\x0aSub CloseAllWorkbooks()\x0d\x0aOn Error Resume Next\x0d\x0aWorkbooks.Close\x0d\x0aEnd Sub\x0d\x0a退出Excel，并提示对有更改的工作簿进行保存：\x0d\x0aSub QuitExcel()\x0d\x0aApplication.Quit\x0d\x0aEnd Sub\x0d\x0a保存活动工作簿并退出Excel：\x0d\x0aSub SaveActiveWorkAndQuit()\x0d\x0aActiveWorkbook.Save\x0d\x0aApplication.Quit\x0d\x0aEnd Sub\x0d\x0a\x0d\x0a下面的代码在退出Excel时都不会提示是否保存工作簿。\x0d\x0a保存所有打开的工作簿并退出Excel：\x0d\x0aSub SaveAllAndQuit()\x0d\x0aFor Each wbk In Workbooks\x0d\x0awbk.Save\x0d\x0aNext\x0d\x0aApplication.Quit\x0d\x0aEnd Sub\x0d\x0a退出Excel，所有的改动都不保存：\x0d\x0aSub QutiAndNoAlerts()\x0d\x0aApplication.DisplayAlerts = False\x0d\x0aApplication.Quit\x0d\x0aEnd Sub

Q4: Vb.net 操作Excel如何选择sheet

具体操作如下：

首先,须在项目里引用: 添加引用-Com-Microsoft Excel 9.0 Object Library （这是EXCEL2000）

1 打开Excel： dim myexcel as new Excel.Application() myexcel.visible=true

2 添加新的工作簿： myexcel.Workbooks.add()

3 设定第二个工作表为活动工作表： myexcel.worksheets(2).Acivate()

4 打开指定的Excel文件： myexcel.workbooks.open("c:\my.xls")

5 显示Excel窗口： myexcel.visible=true

6 更改Excel的标题栏： myexcel.caption="欢迎,欢迎!"

7 为Excel的单元格赋值： myexcel.cells(1,4).value=100 此语句使Excel当前工作表的第一行第四列,即D1单元格等于100, 也可以这样写: myexcel.Range("D1").value=100

8 设置指定列的宽度(单位:字符个数)： myexcel.ActiveSheet.colums(1).columnwidth=20 设定当前工作表第1列的宽度为20

9 设置指定行的高度(单位:磅)： myexcel.ActiveSheet.rows(1).rowHeight=1/0.035 1磅 =0.035厘米 设置第1行的高度为1CM

10 插入分页符： myexcel.Activesheet.rows(20).pagebreak=1 在第20行前插入分页符

11 删除分页符： myexcel.Activesheet.columns(20).pagebreak=0 在第20列前删除分页符

12 指定边框线的宽度： myexcel.Activesheet.range("B3:D3").borders(1).weight=3 其中borders参数指定单元格边框的位置: 1:左 2:右 3:顶 4:底 5:斜\ 6:斜/

13 指定边框线条的类型： myexcel.Activesheet.range("B1:D3").borders(2).linestyle=1 此语句将当前工作表的B1:D3单元格的右边框设置为实线 linestyle参数: 1:细实线 2:细虚线 3:点虚线 4:双细实线

14 设置页脚： myexcel.activesheet.pagesetup.centerfooter="第p页" 注意:设置页眉页脚时要保证计算机上装有打印机,否则出错!

15 设置页眉： myexcel.activesheet.pagesetup.centerfooter="第p页"

16 设置页眉到顶断距离为2cm： myexcel.Activesheet.pagesetup.Headermargin=2/0.035

17 设置页脚到底端距离为2cm： myexcel.Activesheet.pagesetup.Footermargin=2/0.035

18 设置顶边边距为2cm： myexcel.Activesheet.pagesetup.topmargin=2/0.035

19 设置底边边距为2cm： myexcel.Activesheet.pagesetup.Bottommargin=2/0.035

20 设置左边边距为2cm： myexcel.Activesheet.pagesetup.Leftmargin=2/0.035

21 设置右边边距为2cm： myexcel.Activesheet.pagesetup.Rightmargin=2/0.035

22 设置页面水平居中： myexcel.activesheet.pagesetup.CenterHorizontally=true

23 设置页面垂直居中： myexcel.activesheet.pagesetup.Centervertically=true

24 设置页面纸张大小 (1,窄行 8.5*11 ;39 ,宽行 14*11)： myexcel.activesheet.pagesetup.papersize=1

25 打印单元格网格线： myexcel.activesheet.pagesetup.PrintGridlines=true

26 复制整个工作表 ： myexcel.activesheet.Usedrange.Copy

27 复制指定区域 ： myexcel.activesheet.range("a1:b5").Copy

28 粘贴： myexcel.worksheets("sheet2").range("A1").PasteSpecial

29 在第2行前插入一行 ： myexcel.activesheet.rows(2).Insert

30 在第2列前插入一列 ： myexcel.Activesheet.Columns(2).Insert

31 合并 C4:D4 单元格： myexcel.Activesheet.Range("C4:D4").Merge()

32 自动调整第2列列宽： myexcel.activesheet.Columns(2).AutoFit

33 设置字体： myexcel.Activesheet.cells(2,1).font.name="黑体"

34 设置字体大小： myexcel.Activesheet.cells(2,1).font.size=25

35 设置字体为斜体： myexcel.Activesheet.cells(2,1).font.Italic=true

36 设置字体为粗体： myexcel.Activesheet.cells(2,1).font.Bold=true

37 清除单元格内容： myexcel.activesheet.cells(2,1).ClearContents

38 打印预览工作表： myexcel.Activesheet.PrintPreview

39 打印工作表： myexcel.Activesheet.Printout

40 工作表另存为： myexcel.ActiveWorkbook.saveas("C:\book2.xls")

41 放弃存盘： myexcel.ActiveWorkbook.saved=false

42 关闭工作簿： myexcel.Workbooks.close

43 退出 Excel： myexcel.quit

清楚了这些命令，操作excel不就变的很轻松了。

Q5: VB excel 关闭

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

vb.net关闭工作簿的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vba关闭窗口代码、vb.net关闭工作簿的信息别忘了在本站进行查找喔。