1. Liebe Forumsgemeinde,

    aufgrund der Bestimmungen, die sich aus der DSGVO ergeben, müssten umfangreiche Anpassungen am Forum vorgenommen werden, die sich für uns nicht wirtschaftlich abbilden lassen. Daher haben wir uns entschlossen, das Forum in seiner aktuellen Form zu archivieren und online bereit zu stellen, jedoch keine Neuanmeldungen oder neuen Kommentare mehr zuzulassen. So ist sichergestellt, dass das gesammelte Wissen nicht verloren geht, und wir die Seite dennoch DSGVO-konform zur Verfügung stellen können.
    Dies wird in den nächsten Tagen umgesetzt.

    Ich danke allen, die sich in den letzten Jahren für Hilfesuchende und auch für das Forum selbst engagiert haben. Ich bin weiterhin für euch erreichbar unter tti(bei)pcwelt.de.
    Dismiss Notice

Excelmakro, um alle Dateien im Ordner zu öffnen

Discussion in 'Office-Programme' started by tomica, Aug 18, 2006.

Thread Status:
Not open for further replies.
  1. tomica

    tomica Kbyte

    Ich möchte einen Makrobaustein, um alle xls.Dateien in einem Ornder zu öffnen. Folgendes Makro läuft ohne Fehlermeldung durch, aber es öffnet sich keine Datei. Jemand eine Ahnung?

    Ich vermute es liegt bei ".FoundFiles(i).Open", aber ich finde keine Alternative.

    Sub openfiles()
    Set X = Application.FileSearch
    With X
    .LookIn = "C:\Eigene Dateien\Model"
    .Filename = "*.xls"
    If .Execute = 1 Then
    For i = 1 To .FoundFiles.Count
    .FoundFiles(i).Open
    Next
    End If
    End With
    End Sub
     
    tomica, Aug 18, 2006
    #1
  2. Sailor Bill

    Sailor Bill Halbes Megabyte

    Hi,

    probier mal den:
    Code:
    Sub OpenFiles()
  Dim MyFile As String
  
  MyFile = Dir$("C:\Eigene Dateien\Model\*.xls")
  
  Do
    Workbooks.Open FileName:=MyFile
    MyFile = Dir
  Loop Until MyFile = ""
End Sub
     
    Sailor Bill, Aug 18, 2006
    #2
  3. tomica

    tomica Kbyte

    herzlichen Dank - hat prima geklappt
     
    tomica, Aug 18, 2006
    #3
Thread Status:
Not open for further replies.

Share This Page