title image


Smiley Re: VB: automatisches Öffnen von beliebig vielen dateien??????
Hi,versuch es doch mal damit :Sub text()Dim dateiname As FileSearchDim k, iSet dateiname = Application.FileSearchpfad = "C:\Eigene Dateien\"With dateiname .LookIn = pfad .FileName = "*.txt" .Execute i = .FoundFiles.Count For k = 1 To i Neudatei = .FoundFiles(k) Workbooks.Open FileName:=Neudatei, Origin:=xlWindows NextEnd WithIch hoffe, dass es dir hilftcu Andy

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: