Tüm tabloları Access veritabanından Excel'e aktarma - Her tablo için bir sayfa

Question

~ 30 tablo içeren bir Access veritabanım var.

Tüm Excel tablolarını Excel çalışma kitabında ayrı sayfalara nasıl verebilirim?

Bu görevi gerçekleştirmek için Access içinden çalıştırabileceğim bazı VBA/VBS kodunu bulmayı umuyorum.

Herhangi bir fikrin var mı?

Answer 1

Böyle bir şey yapmak mümkün olmalıdır:

Dim tbl as Tabledef 
For Each tbl in Currentdb.TableDefs 
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, tbl.name, "PathName.xls", True, tbl.name 
Next 

ikinci tbl.name çalışma sayfası adıdır.

Answer 2

Kullandığım tüm modül.

Sub expotT() 
Dim td As DAO.TableDef, db As DAO.Database 
Set db = CurrentDb() 
For Each td In db.TableDefs 
    If Left(td.Name, 4) <> "msys" Then 
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, _ 
    td.Name, "C:\xExcelTables.xls", True, td.Name 
    End If 
Next 
End Sub 

Answer 3

Yukarıdaki kodun biçimlendirilmiş ve düzeltilmiş sürümü. Excel dosyalarında excel dosyası ve dbo öneki MSys tablolarına ihtiyacımız yok. Dışa aktarma, MS Access db'ye göre veya sabit olarak da yapılabilir.

Sub exportTables2XLS() 
Dim td As DAO.TableDef, db As DAO.Database 
Dim out_file As String 

out_file = CurrentProject.path & "\excel_out.xls" 

Set db = CurrentDb() 
    For Each td In db.TableDefs 
    If Left(td.Name, 4) = "MSys" Then 
    '// do nothing -- skip 
    Else 
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, _ 
    td.Name, out_file, True, Replace(td.Name, "dbo_", "") 
    End If 
    Next 
End Sub