title image


Smiley Re: Abfragen Export in Excel
Private Sub Saveetc



'Variable Dateiname

Dim FileName as String



'InputBox Dateiname

FileName = InputBox("Enter Excelfilename (saved to your desktop)", "Filename")



'Dateiname wird bei aktuellem Windows user auf das Desktop gespeichert mit Datum.

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, FileName, "C:\Documents and Settings\" & Environ("UserName") & "\Desktop\" & FileName & " " & Date & ".xls", True



Wenn du jetzt noch den Pfad angeben willst, dann richte noch eine Variable ein z.B.





Dim Path as String



Path = Inputbox("Enter Path", "Path")



und setze Path anstelle von



"C:\Documents and Settings\" & Environ("UserName") & "\Desktop\" & FileName & " " & Date & ".xls"





Grüsse




Fragen mag einen Moment Scham bedeuten, nicht Fragen und unwissend bleiben bedeutet ein Leben lang Scham.

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: