简单实例:Access VBA打开Excel表格然后关闭
2017-06-06 22:03
387 查看
Public Function getTblExcel(strExcel As String) On Error GoTo Create '-----------定义Excel的对象-------------- Dim xlApp As Excel.Application '引用了 Microsoft Excel 14.0就会出现这个对象 Dim xlWbk As Excel.Workbook Dim xlWsh As Excel.Worksheet Dim Rng As Excel.Range Dim rsNum As Integer '-----------定义DAO的对象用于创建DAO记录集-------------- '------开始创建进行数据引出操作------- Set xlApp = GetObject(, "Excel.Application") xlApp.Visible = True Set xlWbk = xlApp.Workbooks.Add Set xlWsh = xlWbk.Worksheets(1) xlWsh.Activate xlWbk.Close Set xlWsh = Nothing Set xlWbk = Nothing '-----这个用来检查关闭此工作簿之后,是否还存在工作簿 '------如果没有的话就直接关闭Excel程序 '------如果没有的话就直接关闭Excel程序 If xlApp.Workbooks.Count = 0 Then xlApp.Quit'之前以为是Set xlApp= Nothing,其实不是的 End If Create: If Err = 429 Then Set xlApp = CreateObject("Excel.Application") Resume Next End If End Function
相关文章推荐
- 超简单的 BlueTooth 蓝牙开发实例,打开蓝牙,关闭蓝牙,配对,解除,功能齐全
- js实例入门一(打开关闭门效果)
- js实例入门(简单展开或关闭)
- office2003 word 打开报对话框打开时命令无法执行。单击“确定”,然后关闭对话框以继续
- 打开注解是对的,关闭是错的使用ThreadLocal实例
- jQuery点击自身以外地方关闭弹出层的简单实例
- PHP在后台启动Microsoft Word、打开一个新文件、键入一些文本、保存该文件然后关闭应用程序
- access vba打开另一个数据库并关闭当前数据库的代码
- 简单动态打开关闭层超酷特效源代码
- JS打开层/关闭层/移动层动画效果的实例代码
- 闪光灯的打开与关闭的简单控制
- js实例入门(简单展开或关闭)
- 小实验:用创建进程()打开计算器,然后关闭进程句柄。再用打开进程(进程ID),使用两次,得到两个进程句柄。实验目的:这两个进程句柄都能控制这个进程吗?通过该试验加深对句柄的理解!!
- 生成的DLL中没有导出函数,导致LoadLibraryW 错误;用DEPENDS查看dll函数时,若dll已经更改,需要关闭此dll然后重新打开
- ASP.NET打开新页面而不关闭原来的页面 实例代码
- 实例入门(简单展开或关闭)
- vbs实现打开记事本,写入一些文字,复制然后关闭
- VC 6.0 打开文件显示引用内存错误然后自动关闭
- jQuery点击自身以外地方关闭弹出层的简单实例
- android学习:Activity简单操作---打开、关闭一个新的Activity