- Código:
Option Compare Database
Option Explicit
Public Sub ExportDatabaseObjects()
On Error GoTo Err_ExportDatabaseObjects
Dim db As Database
Dim td As TableDef
Dim d As Document
Dim c As Container
Dim i As Integer
Dim sExportLocation As String
Set db = CurrentDb()
sExportLocation = "C:\Temp\" 'Pasta de Destino de Todos os Objetos do BD Ex: C:\Temp\
For Each td In db.TableDefs 'Tables
If Left(td.Name, 4) <> "MSys" Then
DoCmd.TransferText acExportDelim, , td.Name, sExportLocation & "Table_" & td.Name & ".txt", True
End If
Next td
Set c = db.Containers("Forms")
For Each d In c.Documents
Application.SaveAsText acForm, d.Name, sExportLocation & "Form_" & d.Name & ".txt"
Next d
Set c = db.Containers("Reports")
For Each d In c.Documents
Application.SaveAsText acReport, d.Name, sExportLocation & "Report_" & d.Name & ".txt"
Next d
Set c = db.Containers("Scripts")
For Each d In c.Documents
Application.SaveAsText acMacro, d.Name, sExportLocation & "Macro_" & d.Name & ".txt"
Next d
Set c = db.Containers("Modules")
For Each d In c.Documents
Application.SaveAsText acModule, d.Name, sExportLocation & "Module_" & d.Name & ".txt"
Next d
For i = 0 To db.QueryDefs.Count - 1
Application.SaveAsText acQuery, db.QueryDefs(i).Name, sExportLocation & "Query_" & db.QueryDefs(i).Name & ".txt"
Next i
Set db = Nothing
Set c = Nothing
MsgBox "Todos os Objetos do Banco de Dados forma exportados para o Local: " & sExportLocation, vbInformation
Exit_ExportDatabaseObjects:
Exit Sub
Err_ExportDatabaseObjects:
MsgBox Err.Number & " - " & Err.Description
Resume Exit_ExportDatabaseObjects
End Sub
Exportar Todos os Objetos do Banco para TXT
chsestrem- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 463
Registrado : 01/03/2010
- Mensagem nº1
Exportar Todos os Objetos do Banco para TXT
.................................................................................
Charles Sestrem
http://www.vbabit.com.br
» [Resolvido]Como faço para quando abrir meu bd nao aparecer todos os objetos do access!!!
» [Resolvido]Como faço para ocultar e também mostrar todos os objetos do access?
» VBA Access - Documentando todos os objetos
» [Resolvido]Exportar dados de um formulário (TODOS OS REGISTROS) PARA O EXCEL
» [Resolvido]Exportar dados (todos) de um subformulário para uma determinada tabela.
» [Resolvido]Como faço para ocultar e também mostrar todos os objetos do access?
» VBA Access - Documentando todos os objetos
» [Resolvido]Exportar dados de um formulário (TODOS OS REGISTROS) PARA O EXCEL
» [Resolvido]Exportar dados (todos) de um subformulário para uma determinada tabela.