Borsti Geschrieben 17. Juli 2006 Geschrieben 17. Juli 2006 Hi, ich soll ein Makro erstellen und muss dabei alle Exceldateien eines Ordners öffnen, allerdings weiß ich nicht, wie ich diese öffnen kann, denn diese Dateien habe unterschiedliche Namen. ich hoffe ihr könnt mir helfen. mfg Borsti Zitieren
russkij Geschrieben 17. Juli 2006 Geschrieben 17. Juli 2006 versuchs mal damit: Sub DateiOpen() Dim Datei As Variant With Application.FileSearch .NewSearch .LookIn = "C:\XXX\" .SearchSubFolders = True .FileName = "*.dot" If .Execute > 0 Then For Each Datei In .FoundFiles 'hier die datei öffnen Next End If End With End Sub gruss Zitieren
k4fu Geschrieben 17. Juli 2006 Geschrieben 17. Juli 2006 versuchs mal damit: .FileName = "*.dot" gruss würde ich in .FileName = "*.xls" ändern Zitieren
russkij Geschrieben 17. Juli 2006 Geschrieben 17. Juli 2006 ja klar, war ein auszug aus nem quelltext Zitieren
Borsti Geschrieben 17. Juli 2006 Autor Geschrieben 17. Juli 2006 Hi, danke für eure Hilfe! @k4fu da ich den Quelltext ja haben möchte, und ihn versuche zu verstehen, fiel mir das auch auf Aber trotzdem danke für den Hinweis! Und nun zum aktuellen Code! Sub DateiOpen() Dim Datei As Variant With Application.FileSearch .NewSearch .LookIn = "C:\XXX" .SearchSubFolders = False .Filename = "*.xls" If .Execute > 0 Then For Each Datei In .FoundFiles 'hier die datei öffnen Workbooks.Open (Datei) Sheets("bestSheet").Select Rows("12:18").Select Selection.Copy 'Workbooks(Datei).Close Workbooks("DateiDieMakroEnthält").Activate Sheets("ANSheet").Select Cells(2, 3).Select.Paste Next End If End With End Sub Er meckert mir beim Paste rum, dass ich ein Object angeben soll! Ist meine Zelle die ich angegeben habe kein Object? Daran scheiterts im Moment noch. mfg Borsti Zitieren
Borsti Geschrieben 17. Juli 2006 Autor Geschrieben 17. Juli 2006 Habe es selber mit: Cells(Zelle, 1).PasteSpecial Paste:=xlValues gelöst. Vielen Danke für euer bemühen! Borsti Zitieren
Empfohlene Beiträge
Dein Kommentar
Du kannst jetzt schreiben und Dich später registrieren. Wenn Du ein Konto hast, melde Dich jetzt an, um unter Deinem Benutzernamen zu schreiben.