Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Unbekannte Dateien öffnen
zurück: Übersetzung ? weiter: slideshow aus excel erstellen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Bitte Status wählen ! Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Fliegenpiltz
Gast


Verfasst am:
19. Aug 2007, 11:58
Rufname:

Unbekannte Dateien öffnen - Unbekannte Dateien öffnen

Nach oben
       Version: Office 2003

Hallo, eine Frage.. wie kann ich nacheinander alle Excel Dateien in einem Verzeichniss öffnen? Die Dateinamen sind völlig verschiedene Ziffern. Gruß
r.mueller
Gast


Verfasst am:
19. Aug 2007, 12:12
Rufname:

AW: Unbekannte Dateien öffnen - AW: Unbekannte Dateien öffnen

Nach oben
       Version: Office 2003

Hallo
damit gehts:
Code:

Sub DialogGetOpenFileArray_2()
 'Dialog: auch zur mehrfach Auswahl von Dateien
 'es wird der Filename mit dem Path zurückgegeben
 'Zur Mehrfachauswahl einzeln: Strg Taste gedrückt halten und Files anclicken
 'oder Shift Taste gedrückt halten und erste + letztes File anclicken
 'Wird Multiselect verwendet gibt die GetOpenFileName ein Array zurück
 Dim PathAndFileNames As Variant 'kein String !
 Dim strPathAndFile$
 Dim xi&
 Dim wbkX As Workbook

PathAndFileNames = Application.GetOpenFileName( _
    FileFilter:="Excel Files (*.xls), *.xls", _
    Title:="Meine Dateien", _
    MultiSelect:=True)
   
    'FileFilter  Beispiele:
    'FileFilter:="Textdateien (*.txt), *.txt, Add-In-Dateien (*.xla), *.xla".
    'FileFilter:="Text Files (*.txt), *.txt"
    'FileFilter:="Excel Files (*.xls), *.xls"
    'FileFilter:="Alle Files (*.*), *.*"
    'FileFilter:=Visual Basic-Dateien (*.bas; *.txt),*.bas;*.txt")"
    'FileFilter:="MP3 Files (*.mp3), *.mp3, All Files (*.*), *.*"
If VarType(PathAndFileNames) = vbBoolean Then
  MsgBox "Abgebrochen!"
Else
 'Demo: alle ausgewählen File bearbeiten
 For xi = LBound(PathAndFileNames) To UBound(PathAndFileNames)
  strPathAndFile = PathAndFileNames(xi)
  Set wbkX = Workbooks.Open(strPathAndFile)
 
  'Dein Code
  '...
  wbkX.Close False
 Next
End If

End Sub

 


Gruß
r.mueller
<c0bRa> Emailadresse entfernt, Siehe Punkt 12 Forenregeln
Fliegenpilz
Gast


Verfasst am:
20. Aug 2007, 11:00
Rufname:


AW: Unbekannte Dateien öffnen - AW: Unbekannte Dateien öffnen

Nach oben
       Version: Office 2003

Hallo, hmm wie kann ich hier das Verzeichniss angeben? Gruß
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Datei soll immer mit Tabellenblatt xy öffnen 16 pinmoney 1895 09. Jun 2008, 12:22
pinmoney Datei soll immer mit Tabellenblatt xy öffnen
Keine neuen Beiträge Excel Formeln: Verweis auf unbekannte Datei, nur Pfad bekannt... 0 Grinsepaule 478 29. Mai 2008, 14:26
Grinsepaule Verweis auf unbekannte Datei, nur Pfad bekannt...
Keine neuen Beiträge Excel Formeln: ZÄHLENWENNS aktualisieren ohne die Quelldatei zu öffnen 6 -Sim- 1512 21. Mai 2008, 08:41
-Sim- ZÄHLENWENNS aktualisieren ohne die Quelldatei zu öffnen
Keine neuen Beiträge Excel Formeln: Tabellenblatt öffnen 1 johannesz86 508 10. Jan 2008, 13:07
Dudo Tabellenblatt öffnen
Keine neuen Beiträge Excel Formeln: Zelle ausfüllen beim öffnen??? 2 Der Hilfesuchende :-) 392 15. Nov 2007, 22:39
Gast Zelle ausfüllen beim öffnen???
Keine neuen Beiträge Excel Formeln: autom. öffnen verknüpfter Dateien 4 newschoola 792 06. Nov 2007, 10:00
newschoola autom. öffnen verknüpfter Dateien
Keine neuen Beiträge Excel Formeln: Formel zu geschlossenen Dateien 3 Kieni 405 26. Okt 2007, 11:04
Kieni Formel zu geschlossenen Dateien
Keine neuen Beiträge Excel Formeln: Automatische Abfrage in 2 Dateien 6 Vatanile 800 23. Okt 2007, 08:16
Gast Automatische Abfrage in 2 Dateien
Keine neuen Beiträge Excel Formeln: Excel-Dateien automatisch öffnen und verarbeiten 0 GermanGigaDepp 1587 27. Aug 2007, 09:45
GermanGigaDepp Excel-Dateien automatisch öffnen und verarbeiten
Keine neuen Beiträge Excel Formeln: letzte benutzte Dateien unter "Datei" anzeigen 4 Reichmann 1294 16. Jul 2007, 11:08
Gast letzte benutzte Dateien unter "Datei" anzeigen
Keine neuen Beiträge Excel Formeln: csv Dateien 1 Lui 725 15. Jan 2007, 01:06
Hübi csv Dateien
Keine neuen Beiträge Excel Formeln: Tabellenblatt öffnen 3 MichaNDH 610 06. Jul 2006, 07:39
Gast Tabellenblatt öffnen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Project