title image


Smiley so gut?
in Anlehnung an Reinhards Beitrag:



Dim tPath as String, tFileName as String, I as Long

Dim tQry as DO.QueryDef



tPath = CurrentProject.Path

tPath = Left(tPath,Instrrev(tPath,"\"))



For Each tQry in CurrentDb.QueryDefs

if instr(tQry.Name)="_irgendwas" then

tFileName= tPath & "Jahr " & year(now()) & "\Jahr " & year(now()) & tqry.name

docmd.TransferSpreadsheet acExport,acSpreadsheetTypeExcel9,tQry.Name, tFileName,True

endif

next
Grüße CSF Meine Beiträge beziehen sich grundsätzlich auf A00, so nicht anders angegeben. ============================================================= Schlaue Sprüche sind leicht gemacht, wirkliche Hilfe zu geben ist deutlich schwerer! =============================================================

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: