title image


Smiley Ähhh, wooo genau? ;-)
Hatte ich erwähnt das ich so viel wieder vergessen habe?



Also ich nehme folgenden Code:

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



Aber wo packe ich den Code hin?

Wenn ich alle Dateien in einem Formular abarbeiten kann - packe ich den Kodex dann direkt in das Formular (also so beforeUpdate oder so?)



Vielen Dank!



Schöne Grüße

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: