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

gelöst per VBA Makro mehrere Excel Dateien auf einmal öffnen - importieren - konsolidieren

Mitglied: Shaggy84

Shaggy84 (Level 1) - Jetzt verbinden

16.04.2008, aktualisiert 23.04.2008, 20900 Aufrufe, 1 Kommentar

Hallo Forum Team,

habe eine direkt Frage für meinen Programmstart.

Ich möchte direkt aus einem bestimmten Ordner mehrere dort verlinkte Excel Dateien öffnen und meiner Excel Datei hin zu fügen.

Normalerweise geschieht dies ja mit dem Code (Auszug):
01.
Application.Dialogs(xlDialogOpen).Show 'öffne Quelldatei 
02.
Worksheets(1).Range("1:65535").Copy 'kopiere alles 
03.
Ziel.Worksheets(2).Activate 
04.
Ziel.Worksheets(2).Range("1:65535").PasteSpecial _ 
05.
Paste:=xlPasteValues 'fügt Daten in Zieltabelle ein
Nun sind es aber zig Excel Dateien die alle gleich aufgebaut sind. Ich kann die nicht alle über den Datei öffnen Dialog einzeln öffnen...
Gibt es eine Möglichkeit (nach dem *.* Prinzip) alle Dateien nach und nach automatisch laden zu können?

Grüße
Mitglied: Shaggy84
23.04.2008 um 14:41 Uhr
Hallo Administrator Forum,

habe mein Problem jetzt anders gelöst, nämlich mit einer Liste.

Grundvoraussetzung, die Dateinamen sollten möglich einfach sein und sich nicht ständig ändern.

- eine Zelle für den Pfad angelegt
- mehrere Zellen untereinander für den Dateinamen
[- mehrere Zellen daneben untereinander für den Dateityp, in meinem Fall nötig, da sowohl Links *.lnk als auch Dateien *.xls existieren. Hier mit einer Listenfunktion]

Hier der Programmauszug:
01.
'Definitionen 
02.
Pfad = Worksheets(1).Cells(6, 3) 
03.
Zaehler = 6 'Anfang der Dateiliste 
04.
Listenende = IIf(IsEmpty(Range("I65536")), Range("I65536").End(xlUp).Row, 65536) 'Ende der Dateiliste 
05.
 
06.
'Lade aus Liste Datei für Datei ein 
07.
Do Until Zaehler = Listenende + 1 
08.
    Worksheets(2).Cells.Clear 
09.
    Datei = Worksheets(1).Cells(Zaehler, 9) 'Einlesen des Dateinamens aus Liste 
10.
 
11.
    'Lese Dateiendung aus Liste 
12.
    If Worksheets(1).Cells(Zaehler, 10) = Worksheets(1).Cells(4, 12) Then  'variables Einlesen der Endung 
13.
        Endung = ".lnk" 
14.
    End If 
15.
    If Worksheets(1).Cells(Zaehler, 10) = Worksheets(1).Cells(5, 12) Then 
16.
        Endung = ".xls" 
17.
    End If 
18.
     
19.
   'erstelle Dateipfad 
20.
    On Error Resume Next 
21.
    Dateipfad = Pfad + Datei + Endung 
22.
    s = Dir(Dateipfad) 
23.
    If s <> "" Then 
24.
     
25.
        Workbooks.Open Pfad + Datei + Endung 'Dateipfadzusammenstellung 
26.
     
27.
       'kopieren 
28.
        Worksheets(3).Activate 
29.
        Letzte = IIf(IsEmpty(Range("F65536")), Range("F65536").End(xlUp).Row, 65536) 
30.
        Worksheets(3).Range(Cells(6, 1), Cells(Letzte, 35)).Copy 'Importbereich 
31.
 
32.
       'einfügen 
33.
        Ziel.Worksheets(2).Activate 
34.
        Ziel.Worksheets(2).Range("1:65536").PasteSpecial _ 
35.
        Paste:=xlPasteValues 'fügt Daten in Zwischenablage ein 
36.
     
37.
    'Abfangen von Fehlern 
38.
    Else: MsgBox "Datei " & Dateipfad & " existiert nicht! Schreibfehler oder falsche Dateiart?", vbExclamation 
39.
    i = i + 1 
40.
End If 
41.
 
42.
    Application.Run "CheckLines" 
43.
    Zaehler = Zaehler + 1 
44.
    Workbooks(Datei + Endung).Close SaveChanges:=False 'schließe offene Dateien 
45.
Loop
Achten, dass der Pfad mit einem "\" enden muss. Mit "CheckLines" werden die Dateien in einem weiterem Tabellenblatt untereinander kopiert. Hier werden Sie ja immer wieder überschrieben.

Grüße
Bitte warten ..
Ähnliche Inhalte
Microsoft Office

Passwortgeschützte Excel Dateien bearbeiten VBA Makro

Frage von schwalbepilotMicrosoft Office2 Kommentare

Ich möchte Fußzeilen in alle Excel Dateien eines Ordners einfügen. Das klappt alles soweit, leider sind alle Dateien passwortgeschützt. ...

Microsoft Office

Excel Makro VBA Sortierung nach Spaltennamen

gelöst Frage von easy4breezyMicrosoft Office3 Kommentare

Hi Leute, ich habe mich hier schon eingelesen und auch im Internet, aber irgendwie komme ich zu keiner Lösung ...

Microsoft Office

VBA Excel Mehrere Dateien auslesen

Frage von abuelitoMicrosoft Office7 Kommentare

Hallo an Alle, ich habe folgendes Problem: Ich habe einen Ordner, in diesem befinden sich mehrere xls-Dateien (ca. 2.000) ...

Microsoft Office

Mit VBA mehrere Excel Dateien in eine Access 2003 Datenbank importieren

gelöst Frage von abuelitoMicrosoft Office2 Kommentare

Hallo an Alle, ich habe folgendes Problem: In einem Ordner sind ca. 500 xls Dateien vorhanden. Diese gilt es ...

Neue Wissensbeiträge
Humor (lol)
(Part num your Hacked phone. +XX XXXXXX5200)
Erfahrungsbericht von Henere vor 1 TagHumor (lol)4 Kommentare

Mein Handy hat aber ne ganz andere Endnummer. Muss ich mir jetzt Sorgen machen ? :-) Vielleicht betrifft es ...

Exchange Server

Letztes Update für Exchange 2016 CU9 war in gewisser Weise destruktiv

Erfahrungsbericht von DerWoWusste vor 1 TagExchange Server6 Kommentare

Kurzer Erfahrungsbericht zu Exchange2016-KB4340731-x64 Der Exchangeserver hat wie gewöhnlich versucht, es in der Nacht automatisch zu installieren - abgesehen ...

Erkennung und -Abwehr

Neue Sicherheitslücke Foreshadow (L1TF) gefährdet fast alle Intel-Prozessoren

Information von Frank vor 2 TagenErkennung und -Abwehr3 Kommentare

Eine neue Sicherheitslücke, genannt Foreshadow (alias L1TF) wurde auf der Usenix Security 18 von einem Team internationaler Experten veröffentlicht. ...

Vmware
VMware Updates gegen L1 Lücke
Information von sabines vor 3 TagenVmware

Für die Vmware Produkte vCenter Server, ESXi, Workstation und Fusion stehe Updates bereit um die L1 Lücke zu schließen. ...

Heiß diskutierte Inhalte
Netzwerke
Netzwerk-Architektur mit VLANs
Frage von niLuxxNetzwerke21 Kommentare

Liebe Community, Ich hätte eine kurze Frage an euch. Ich werde in Kürze das Netzwerk unserer (sehr) kleinen Firma ...

Webbrowser
Neuer Tab Firefox
gelöst Frage von BleifussWebbrowser12 Kommentare

Hallo, via Strg + T öffnet man ja einen neuen Tab. Gibt es die Möglichkeit, dass der Tab sich ...

Windows Server
WSUS nach Upgrade - kein Start mehr
gelöst Frage von Ghost108Windows Server9 Kommentare

Hallo zusammen, habe einen Windows Server 2012 welcher als WSUS dienst. Jetzt wurde ein Upgrade auf Server 2016 durchgeführt ...

Microsoft
Ist es möglich ein reines Volume C Datenbackup in eine Hyper-V VM zu konvertieren?
Frage von Frank84Microsoft8 Kommentare

Hallo zusammen, ich habe hier ein Backup vorliegen, das ausschließlich das komplette C:\ Volume eines physischen Server 2012 enthält. ...