Thema Datum  Von Nutzer Rating
Antwort
17.11.2011 14:59:26 Alexander
NotSolved
Blau Alle Arbeitsmappen eines Ordners öffnen
 17.11.2011 21:39:03 Till
NotSolved

Ansicht des Beitrags:
Von:
Till		 Datum:
17.11.2011 21:39:03		 Views:
1323		 Rating:
     
Antwort:
  Ja
Thema:
Alle Arbeitsmappen eines Ordners öffnen		 
Private Sub CommandButton8_Click()
 
Dim WB As Workbook
Dim strFName As String
  
Dim Datei As String
Dim Arbeitsmappe As String
Dim PFAD As String
PFAD = "C:\Users\sde\Desktop\TelefonService Test\"
Datei = Dir(PFAD & "*.xlsx")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.Workbooks.Open PFAD  & Datei
    Worksheets.Add After:=Worksheets(Worksheets.Count)
    With Worksheets(Worksheets.Count)
        .Name = Format(Date, "mmmm" & " " & "yyyy")
    End With
ActiveWorkbook.Close True
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

So sollte es gehen, Dir() gibt dir nur den Dateiennamen, du brauchst aber zum öffnen Pfad + Dateiennamen bzw. den ganzen Dateinamen. Damit kannst du aber nicht alle Arbeitsmappen im Ordner öffnen, jedenfalls nicht so.

Versuch mal:
 

Private Sub fielsauslisten()
Dim FSO As Object
Dim Folder As Object
Dim X

Set FSO = CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder(ThisWorkbook.Path)
    
    For Each X In Folder.Files
        p = X.Path
        Workbooks.Open (p)
        Debug.Print p
    Next
    
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
17.11.2011 14:59:26 Alexander
NotSolved
Blau Alle Arbeitsmappen eines Ordners öffnen
 17.11.2011 21:39:03 Till
NotSolved