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

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, 3373 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
Windows 7

Windows 7 - Server 2008 R2: Exploit für Total Meltdown verfügbar

Information von kgborn vor 1 TagWindows 7

Kleine Information für Administratoren, die für die Updates von Windows 7 SP1 und Windows Server 2008 R2 SP1 verantwortlich ...

Sicherheit

Zero Day-Schwachstelle im Internet Explorer - wird von APT bereits ausgenutzt

Information von kgborn vor 1 TagSicherheit

Im Kernel des Internet Explorer scheint es eine Zero Day-Lücke zu geben, die von staatlichen Akteuren (APT) im Rahmen ...

Microsoft
Folder Security Viewer-Lizenzen zu gewinnen
Information von kgborn vor 1 TagMicrosoft

Ich nehme das Thema mal in Absprache mit Frank hier auf, da es für den einen oder anderen Administrator ...

Hardware

Feueralarm killt Festplatten in Rechenzentrum - führt zu größerem Ausfall

Information von kgborn vor 1 TagHardware12 Kommentare

Noch ein kleiner Beitrag für Administratoren, die in Rechenzentren aktiv sind - so als Fingerzeig. Denn es gibt Szenarien, ...

Heiß diskutierte Inhalte
C und C++
Frage1 C Programmierung-Makefile Frage2 PHP-Programmierung HTTP-Fehler 404
Frage von KatalinaC und C++27 Kommentare

Hallo, ich habe 2 Fragen, die nichts miteinander zu tun haben aber mit denen ich mich gerade beschäftige: 1. ...

Linux
Linux Server oder Windows Server - lohnt eine Umstellung auf Linux und ebenso basierende SW bei einer langfristigen Planung?
Frage von motus5Linux27 Kommentare

Wir brauchen bei uns einen neuen Server. Dieser wird als Fileserver, Domäne Controller sowie Exchange Server verwendet. Wir versuchen ...

LAN, WAN, Wireless
Watchguard T15 VPN Einrichtung
gelöst Frage von thomasjayLAN, WAN, Wireless22 Kommentare

Hallo zusammen, wir möchten gerne über unsere Watchguard T15 einen VPN-Tunnel (Mobile VPN with IPSec) einrichten! Als Client nutzen ...

DSL, VDSL
ISP Wechsel auf Vodefone Koax, Gebäudeverkabelung nur per Cat 7
gelöst Frage von wusa88DSL, VDSL19 Kommentare

Hallo Zusammen, ich bin momentan bei Mnet als Glasfaser Kunde und möchte Preis/Leistungs-Technisch zu Kabel Deutschland / Vodafone wechseln. ...