title image


Smiley Re: ganze db nach excel exportieren
Du hättest es natürlich auch ausprobieren können ;)



Hab den Code nun erweitert...







Function TableExport()

  Dim rs As DAO.Recordset

  'Die Tabelle MSysObjects enthält sämtliche in der Datenbank enthaltene Objekte

  Set rs = CurrentDb.OpenRecordset("MSysObjects", dbOpenSnapshot)

  rs.MoveFirst

  'Schleife durch die geöffnete Tabelle MSysObjects

  Do While Not rs.EOF

    'Typ 1 = Tabelle

    If rs![Type] = 1 And rs![Flags] = 0 Then

      'wenn Tabelle dann exportieren mit dem Namen der Tabelle und Ort c:\Name der Tabelle.xls

      DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, rs![Name], "C:\Temp\" & rs![Name] & ".xls"

    End If

    'und so weiter

    rs.MoveNext

  Loop

  Set rs = Nothing

End Function







Code eingefügt mit Syntaxhighlighter 4.0





Hoffe das reicht als Erläuterung



Gruß aus Wuppertal

Gruß aus Wuppertal
Stefan

-------------------------------------------------------------------------------
Soweit nicht anders angegeben, beziehen sich meine
Antworten auf WinXP SP2 und Access2003.
-------------------------------------------------------------------------------

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: