title image


Smiley TIPP: ... alle xyz-Dateien in einem Verzeichnis ...


Dim FN as String, P as string, TblName as String

P = "C:\woauchimmer\"

FN = Dir(P & "*.xls")

Do until FN = ""

TblName = Left(FN, InStrRev(FN,".")-1)

DoCmd.TransferSpreadsheet acImport, , TblName, P & FN, True

FN = Dir()

Loop



oder auch einfach mal in die Hilfe zur Dir-Funktion schauen!


Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: