Thema Datum  Von Nutzer Rating
Antwort
Rot Alle Arbeitsmappen eines Ordners öffnen
 17.11.2011 14:59:25 Alexander
NotSolved
21.11.2011 14:01:21 Holger
NotSolved

Ansicht des Beitrags:
Von:
Alexander		 Datum:
17.11.2011 14:59:25		 Views:
2694		 Rating:
     
Antwort:
  Ja
Thema:
Alle Arbeitsmappen eines Ordners öffnen

Hallo,

 

ich habe folgendes Problem. Ich möchte gerne alle Arbeitsmappen eines Ordner öffnen ein neues Arbeitsblatt einfügen mit dem neuem Monat und wieder schliessen.

 

Den Code habe ich hier.

 

 



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
  Do While Datei <> ""
    Application.Workbooks.Open Datei
    Worksheets.Add After:=Worksheets(Worksheets.Count)
    With Worksheets(Worksheets.Count)
            .Name = Format(Date, "mmmm" & " " & "yyyy")
    End With
    ActiveWorkbook.Close True
    Datei = Dir()
  Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub




	Mein Problem er erkennt zwar was im Ordner ist aber er schafft sie nicht zu öffnen. Er sagt mir ständig das er die Datei nicht findet und er sie nicht öffnen kann.



	Danke euch schon einmal.

    		
									

								

							

					
		   


                    
     
 

                        

                                

                                    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

                          		
                      

                      


Rot Alle Arbeitsmappen eines Ordners öffnen

17.11.2011 14:59:25
Alexander



NotSolved




21.11.2011 14:01:21
Holger



NotSolved