title image


Smiley Re: ganze db nach excel exportieren
zum Beispiel so...







Function TableExport()

  Dim rs As DAO.Recordset

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

  rs.MoveFirst

  Do While Not rs.EOF

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

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

    End If

    rs.MoveNext

  Loop

  Set rs = Nothing

End Function







Code eingefügt mit Syntaxhighlighter 4.0



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: