Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon Stefan84 vom 31.01.2019, 11:39 Options
Datenimport aus im Hintergrund geöffneten Excel Dateien
Hallo,
ich möchte bestimmte Wertebereiche aus mehreren Tabellen die in verschiedenen Verzeichnissen liegen in bestimmte Wertebereiche einer einzigen Tabelle einfügen. Bis jetzt habe ich dies nur geschafft wenn alle "Quelldateien" im gleichen Verzeichnis lagen und alle geöffnet waren. Hier mein Code dafür soweit:
Meine Frage : Gibt es eine Möglichkeit die entsprechenden Quelldateien versteckt im Hintergrund aus dem jeweiligen Verzeichnis heraus zu öffnen und dann wie gehabt die Daten zu markieren und zu kopieren ?
Schonmal vielen Dank für eure Hilfe!
Mfg Stefan
ich möchte bestimmte Wertebereiche aus mehreren Tabellen die in verschiedenen Verzeichnissen liegen in bestimmte Wertebereiche einer einzigen Tabelle einfügen. Bis jetzt habe ich dies nur geschafft wenn alle "Quelldateien" im gleichen Verzeichnis lagen und alle geöffnet waren. Hier mein Code dafür soweit:
Workbooks("2 Februar 2007 Tagesteam.xls").Worksheets("Frühschicht 1").Range("I3:N36").Copy _
Workbooks("Blub.xls").Worksheets("Tabelle4").Range("C10:H43")
Application.CutCopyMode = False
Workbooks("2 Februar 2007 Tagesteam.xls").Worksheets("Frühschicht 2").Range("I5:N14").Copy _
Workbooks("Blub.xls").Worksheets("Tabelle4").Range("C48:H57")
Application.CutCopyMode = False
Workbooks("2 Februar 2007 Team 1.xls").Worksheets("Team 1").Range("I3:N13").Copy _
Workbooks("Blub.xls").Worksheets("Tabelle4").Range("M10:R20")
Application.CutCopyMode = False
Workbooks("2 Februar 2007 Team 2.xls").Worksheets("Team 2").Range("I5:N13").Copy _
Workbooks("Blub.xls").Worksheets("Tabelle4").Range("M22:R30")
Application.CutCopyMode = False
Workbooks("2 Februar 2007 Team 3.xls").Worksheets("Team 3").Range("I5:N13").Copy _
Workbooks("Blub.xls").Worksheets("Tabelle4").Range("M32:R40")
Application.CutCopyMode = False
Workbooks("2 Februar 2007 Team 4.xls").Worksheets("Team 4").Range("I5:N12").Copy _
Workbooks("Blub.xls").Worksheets("Tabelle4").Range("M42:R49")
Application.CutCopyMode = False
Workbooks("2 Februar 2007 Team 5.xls").Worksheets("Team 5").Range("I5:N13").Copy _
Workbooks("Blub.xls").Worksheets("Tabelle4").Range("M51:R59")
Application.CutCopyMode = False
Meine Frage : Gibt es eine Möglichkeit die entsprechenden Quelldateien versteckt im Hintergrund aus dem jeweiligen Verzeichnis heraus zu öffnen und dann wie gehabt die Daten zu markieren und zu kopieren ?
Schonmal vielen Dank für eure Hilfe!
Mfg Stefan
Antwort 1 von Beverly vom 31.01.2019, 15:10 Options
Hi Stefan,
schau mal in der Hilfe unter dem Stichwort Open (Methode) nach. Dort wird gezeigt, wie du eine Arbeitsmappe öffnen kannst. Am Ende jedes deiner Teil-Codes (nach erfolgter Kopie) fügst du dann noch hinzu ActiveWorkbook.Close, damit die gerade geöffnete Mappe wieder geschlossen wird.
Bis später,
Karin
schau mal in der Hilfe unter dem Stichwort Open (Methode) nach. Dort wird gezeigt, wie du eine Arbeitsmappe öffnen kannst. Am Ende jedes deiner Teil-Codes (nach erfolgter Kopie) fügst du dann noch hinzu ActiveWorkbook.Close, damit die gerade geöffnete Mappe wieder geschlossen wird.
Bis später,
Karin
Ähnliche Themen
Ich möchte in Excel den Inhalte aller TXT-Dateien eines Verzeichnisses in ein Excel Blatt kopieren.
eexil44 07.02.2007 - 157 Hits - 6 Antworten
MS-Access97 SR2b, Betriebssystem MS-Windows XP sp2 prof. dt.
buersti1-4 15.03.2007 - 64 Hits -
mehrere Excel dateien zu einer
Excel2003 03.05.2007 - 403 Hits - 3 Antworten
excel
gustl 03.05.2007 - 86 Hits - 2 Antworten
Getopenfilename Dialogbox im Hintergrund!
Kelimm 12.06.2007 - 86 Hits - 1 Antwort
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
