Tabellenblatt aus anderer Tabelle kopieren

Bild

Betrifft: Tabellenblatt aus anderer Tabelle kopieren
von: Gabor
Geschrieben am: 06.04.2005 23:48:05
Hallo liebe Experten,
Ich versuche schon eine ganze Weile komm aber nicht weiter. Ich habe eine Tabelle mit 21 Blättern. Im Blatt "import" stehen von Zelle A2 bis Zelle A22 die Pfade der zu importierenden Tabellen (haben nur ein Blatt). Nun sollen ins Tabellenblatt "1" die Tabelle aus Pfad A2, ins Tabellenblatt "2" die Tabelle aus Pfad A3, ... usw importiert werden.
Ich habe aber schon beim schließen der ersten Tabelle Probleme.
Könnt ihr mir bitte schreiben wie die zeile
"Workbooks(i).Close savechanges:=False"richtig ist.
Hier der ganze CODE
Option Explicit


Sub datenimport_modul1()
Dim i As String
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.DisplayAlerts = False
    '
    ThisWorkbook.Activate
    Sheets("1").Select
    Cells.Select
    Selection.Delete Shift:=xlUp
    Range("A1").Select
    Sheets("import").Select
    i = Range("A2")
Workbooks.Open i
Columns("A:G").Select
    Selection.Copy
    ThisWorkbook.Activate
    Sheets("1").Select
    ActiveSheet.Paste
    Sheets("import").Select
    Range("D5").Select
    '... funktioniert nicht
    Workbooks(i).Close savechanges:=False
    
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    Application.DisplayAlerts = False
End Sub


Danke für jede Antwort.
Bild

Betrifft: AW: Tabellenblatt aus anderer Tabelle kopieren
von: Gabor
Geschrieben am: 07.04.2005 01:02:29
Ich habe das Problem mit dem schließen der datei gelöst, in E2 steht jetzt der richtige dateiname. Kann mir bitte eine/r helfen aus dem makro eine schleife zu bauen? In Spalte A2 bis A22 steht der Pfad der zu importierenden Dateien und in E2 bis E22 steht der Dateiname (extrahiert aus dem Pfad) und jetzt soll wie schon mit Blatt"1" mit den restlichen 19 Blättern verfahren werden.
Hier der ganze CODE
Option Explicit

Sub datenimport_modul1()
Dim i As String
Dim k As String
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.DisplayAlerts = False
    '
    ThisWorkbook.Activate
    Sheets("1").Select
    Cells.Select
    Selection.Delete Shift:=xlUp
    Range("A1").Select
    Sheets("import").Select
    i = Range("A2")
    k = Range("E2")
Workbooks.Open i
Columns("A:G").Select
    Selection.Copy
    ThisWorkbook.Activate
    Sheets("1").Select
    ActiveSheet.Paste
    Sheets("import").Select
    Range("D5").Select
    Workbooks(k).Close savechanges:=False
    
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    Application.DisplayAlerts = False
End Sub

Danke für jede Antwort.
Gabor
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Tabellenblatt aus anderer Tabelle kopieren"