Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Frage Microsoft Microsoft Office

Wie kann ich alle Excel-Dateien eines bestimmten Unterverzeichnisses in einem Tabellenblatt auflisten?

Mitglied: alze1970

alze1970 (Level 1) - Jetzt verbinden

19.06.2008, aktualisiert 11:14 Uhr, 3364 Aufrufe, 3 Kommentare

Hallo zusammen,

wie kann ich mit hilfe eines Makros die Dateinamen aller Excel-Dateien eines bestimmten Unterverzeichnisses in einem Tabellenblatt in Spalte A auflisten? Anschließend soll aus der Datei der Inhalt einer Zelle (welcher zwar immer in der gleichen Spalte aber in unterschiedlichen Zeilen sein kann). In der Spalte vor der zu importierenden Zelle steht immer der gleiche Inhalt ("Gesamt").

Danke im voraus

alze1970
Mitglied: KHP
19.06.2008 um 10:04 Uhr
Hallo,

versuch's mal mit dem Öffnen der Dateien, folgendermaßen:

01.
    f = (FileSystem.Dir(VBAProject.DieseArbeitsmappe.Path & "\*.xls", vbNormal)) 
02.
   If f = "" Then Exit Sub  
03.
   Do While f <> "" 
04.
     fp = VBAProject.DieseArbeitsmappe.Path & "\" & f 
05.
     Workbooks.Open Filename:=fp  
06.
     '### hier die Anweisungen... 
07.
 
08.
     f = FileSystem.Dir 
09.
   Loop
Das dürfte für den Einstieg reichen, Gruß - Tobias
Bitte warten ..
Mitglied: alze1970
19.06.2008 um 10:36 Uhr
Hallo,

das mit dem Filenamen eintragen hab ich mittlerweile folgendermaßen gelöst:

Private Sub Worksheet_Activate()

Dim dat As String
Dim Zeile As Integer
Zeile = 5
dat = Dir("*.xls")
Do While dat > ""
Zeile = Zeile + 1
Cells(Zeile, "A") = dat
dat = Dir
Loop
End Sub

Hierbei werden die Namen der vorhandenen Excel-Files im Verzeichnis beim aktivieren des Worksheets in die Spalte A eingetragen. Wo ich noch Probleme hab ist das eintragen des Zellinhaltes (In der in Spalte A eingetragenen Datei, Spalte B, Zeile wechselnd; jedoch ist immer in der Spalte A, gleiche Zeile der Text "Gesamt" eingetragen). Kannst du mir hierbei noch nen Tip geben?

Danke

Alex
Bitte warten ..
Mitglied: KHP
19.06.2008 um 11:14 Uhr
Du müßtest wohl die einzelnen Workbooks im Verzeichnis öffnen (s. oben) und dann mit einer Schleife z.B.
01.
for i=1 to workbooks.count 
02.
 if workbook(i).name <> activeworkbook.name then 
03.
  '###Anweisungen z.B.  gesuchteDaten = workbook(i).worksheet(1).cells(1,2).value 
04.
  
05.
 
06.
 workbook(i).close 
07.
 endif 
08.
next i
die gewünschten Daten heraussuchen, ggf. noch eine Schleife einbauen um das Dokument zu durchsuchen.
Bitte warten ..
Ähnliche Inhalte
Batch & Shell
Dateien in Unterverzeichnissen auflisten mit Attributen
gelöst Frage von goodbytesBatch & Shell4 Kommentare

Hallo, ich habe sehr viele Dateien in einem Ordner mit vielen Unterordnern. Per Batch oder vbs oder vba aus ...

Microsoft Office
Innerhalb bestehender Excel Datei bestimmte Tabellenblätter per VBA zusammenfügen
Frage von thomas1972Microsoft Office1 Kommentar

Hallo, irgendwie komme ich hier nicht weiter, ich habe eine Excel Datei mit x Tabellenblättern , hiervon möchte ich ...

Microsoft Office
Excel 2010: Tabellenblatt verknüpfen
gelöst Frage von honeybeeMicrosoft Office3 Kommentare

Hallo, kann ich in Mappe A eine Verknüpfung von einem Tabellenblatt aus Mappe B erstellen? Ich möchte keine Formelverknüpfung, ...

Microsoft Office
Excel Formatierung über gesamtes Tabellenblatt
gelöst Frage von Florian86Microsoft Office3 Kommentare

Hallo, ich habe das Problem das unsere Mitarbeiterin mit haufen Aufwand eine Tabelle erstellt hat und die gesamte Tabelle ...

Neue Wissensbeiträge
Linux

Meltdown und Spectre: Linux Update

Information von Frank vor 1 TagLinux

Meltdown (Variante 3 des Prozessorfehlers) Der Kernel 4.14.13 mit den Page-Table-Isolation-Code (PTI) ist nun für Fedora freigegeben worden. Er ...

Tipps & Tricks

Solutio Charly Updater Fehlermeldung: Das Abgleichen der Dateien in -Pfad- mit dem Datenobject ist fehlgeschlagen

Tipp von StefanKittel vor 2 TagenTipps & Tricks

Hallo, hier einmal als Tipp für alle unter Euch die mit der Zahnarztabrechnungssoftware Charly von Solutio zu tun haben. ...

Sicherheit

Meltdown und Spectre: Wir brauchen eine "Abwrackprämie", die die CPU-Hersteller bezahlen

Information von Frank vor 2 TagenSicherheit12 Kommentare

Zum aktuellen Thema Meltdown und Spectre: Ich wünsche mir von den CPU-Herstellern wie Intel, AMD oder ARM eine Art ...

Sicherheit

Meltdown und Spectre: Realitätscheck

Information von Frank vor 2 TagenSicherheit10 Kommentare

Die unangenehme Realität Der Prozessorfehler mit seinen Varianten Meltdown und Spectre ist seit Juni 2017 bekannt. Trotzdem sind immer ...

Heiß diskutierte Inhalte
Batch & Shell
Meltdown Microsoft Prüf Script - .zip Datei leider leer
gelöst Frage von MasterBlaster88Batch & Shell13 Kommentare

Hallo zusammen, ich patche gerade unsere Windows Server bzgl. der Meltdown Lücke. Patch vorhanden, Reg Keys gesetzt Um das ...

Batch & Shell
Shell-Skript - Syntax error: Unterminated quoted string
Frage von newit1Batch & Shell13 Kommentare

Hallo Ich schreibe ein Skript das eine CSV-Datei in eine mySQL Datenbank schieben soll. Bekomme nach start des Skrips ...

E-Mail
Erfahrungen mit hMailServer gesucht
Frage von it-fraggleE-Mail10 Kommentare

Hallo, meine neue Stelle möchte einen eigenen Mailserver. Ich als Linuxkind war direkt geistig mit Postfix dabei. Leider wollen ...

Entwicklung
VBS: alle PDF-Dateien in einem Ordner gleichzeitig öffnen
gelöst Frage von JuweeeEntwicklung9 Kommentare

Hallo, ich habe in deiner Ordnerstruktur (.\Tagesberichte\xx.18\) mehrere dynamische PDF-Formulare (mit LCD erstellt). Die Berichtsformulare sind im Layout alle ...