[修改]批量导出数据库中除系统表以外的所有的表

Sooloom

根据某人源码加以修改，谢谢，并分享给大家

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

谢谢分享

ynjxw

DoCmd.OutputTo acOutputTable, stemp acFormatXLS, stOutputFile, False '输出格式
系统提示语法错误，是否要引用什么呀？