Office中国论坛/Access中国论坛

标题: [修改]批量导出数据库中除系统表以外的所有的表 [打印本页]

作者: Sooloom 时间: 2007-4-10 20:18
标题: [修改]批量导出数据库中除系统表以外的所有的表
根据某人源码加以修改，谢谢，并分享给大家

Private Sub ExportAllTable_Click()
  If MsgBox("您确定备份所有数据吗？注意:它将覆盖上次备份所有数据注意", vbYesNo + vbInformation, "数据备份") = vbYes Then
Dim obj As AccessObject, dbs As Object  创建数据库对象
Dim stemp As String
   Set dbs = Application.CurrentData '建立数据库对象记录集
   stemp= ""
For Each obj In dbs.AllTables '遍历数据库中的所有表
   If Left(obj.Name, 4) <> "MSys" Then '剔除系统数据表
      stemp= obj.Name
      stOutputFile = CurrentProject.Path & "\data\" & obj.Name & ".xls"  '输出到当前数据库同级data目录下
      DoCmd.OutputTo acOutputTable, stemp acFormatXLS, stOutputFile, False '输出格式
   End If
Next obj  '循环
   MsgBox "数据备份完成！", vbOKOnly + vbInformation, "数据备份"
  End If
End Sub

导出格式为Excel，请在数据库同级目录下新建data文件夹

作者: hi-wzj 时间: 2007-4-10 22:18
谢谢分享

作者: ynjxw 时间: 2010-3-4 08:18
DoCmd.OutputTo acOutputTable, stemp acFormatXLS, stOutputFile, False '输出格式
系统提示语法错误，是否要引用什么呀？

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)