ACCESS VBA导出数据库表到XLS文件 |
您所在的位置:网站首页 › 数据库导出数据到excel表格 › ACCESS VBA导出数据库表到XLS文件 |
目录 1. 前言 2. 相关知识 2.1 导出数据到表格查询代码 2.2 ADOX.Catalog 2.3 系统表 3. 源码解析 1. 前言本例简析通过ACCESS VBA查询语句导出所有数据库表到XLS文件。 2. 相关知识 2.1 导出数据到表格查询代码 有四种方法,可选其中一种。其中D:\test.xls表示导出到D盘,命名为test.xls; Sheet1是工作表的名字;表名,是数据库对应的表。 DoCmd.RunSQL "Select * INTO [Excel 8.0;DATABASE=D:\test.xls].[Sheet1] FROM 表名" DoCmd.RunSQL "Select * INTO [Sheet1] IN 'D:\test.xls'[EXCEL 8.0;] FROM 表名" DoCmd.RunSQL "Select * INTO [Sheet1] IN 'D:\test.xls' 'EXCEL 8.0;' FROM 表名" DoCmd.RunSQL "Select * INTO [Sheet1] IN 'D:\test.xls' 'excel 8.0;' FROM 表名" 2.2 ADOX.CatalogADOX属于ADO扩展库,所以引用时,需在VBA菜单栏的【工具】->【引用】里勾选Microsoft ADO类库; Catalog是ADOX的一个对象,用来描述数据源模式目录的。 2.3 系统表系统表由系统自动创建,包含了数据库对象的相关信息,都是以MSys开头。 3. 源码解析 Private Sub transXLSSchema() databaseName = "D:\test.mdb" '要操作的数据库 exportPath = "D:\test.xls" '输出的表格名称 DoCmd.SetWarnings False '去除所有的系统提示 Dim mycat As New ADOX.Catalog '创新新对象 mycat.ActiveConnection = "Provider=MicroSoft.Jet.OLEDB.4.0;Data Source=" & databaseName '连接数据库 For i = 0 To mycat.Tables.Count - 1 '遍历表 itemName = mycat.Tables.Item(i).Name If InStr(itemName, "MSys") = 0 Then '这里的目的,是去除所有自动创建的系统表的干扰 Debug.Print "[DB TABLE]:" & itemName DoCmd.RunSQL "Select * INTO [" & itemName & "] IN '" & exportPath & "'[EXCEL 8.0;] FROM " & itemName '查询代码执行 Else Debug.Print "[SYSREM TABLE]:" & itemName End If Next mycat.ActiveConnection = Nothing '断开连接 MsgBox "程序执行完毕!" End Sub |
今日新闻 |
推荐新闻 |
CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3 |