Workbook mit Variable öffnen

Forumthread: Workbook mit Variable öffnen

15.03.2004 15:35:20

peter

Hallo,
ich will die Formate von 5 Tabellen einer Vorlage kopieren.
VBA Code funktioniert so, scheint mir aber nicht optimal.
dName = Pfad mit Filenamen (K:\..\..\..\Noten Kern.xls)
...
Workbooks("Notenblatt Systemtechniker.xls").Worksheets("Zus").Activate
Range("A1:N40").Copy
'
Workbooks.Open FileName:=dName
ActiveWorkbook.Worksheets("Zus").Activate
Range("A1:N40").PasteSpecial xlPasteFormats
ActiveWorkbook.Save
ActiveWorkbook.Close
'
'
Workbooks("Notenblatt Systemtechniker.xls").Worksheets("TBZ ZLI").Activate
Range("A1:O90").Copy
'
Workbooks.Open FileName:=dName
... (Code wie oben)
Wie kann ich ein Workbook mittels Variable öffnen, etwa wie
Workbooks(dName).Worksheets("TBZ ZLI").Activate
oder wie wechsle ich zwischen Vorlage und Ziel ohne speichern/schliessen zu müssen.
vielen Dank für Tips
Peter

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Workbook mit Variable öffnen

15.03.2004 16:38:54

Thorsten
AW: Workbook mit Variable öffnen

15.03.2004 18:07:40

Peter

AW: Workbook mit Variable öffnen

15.03.2004 16:38:54

Thorsten

Hallo Peter
Notenblatt Systemtechniker.xls ist die Vorlage, in die auch dieser Code soll, und in Noten Kern.xls willst Du die Formate kopieren?
Dann versuch es mal so:


Sub FormatKopieren()
Dim dName As String
dName = "DeinPfad\Noten Kern.xls"
Workbooks.Open FileName:= dName
'Workbooks(1) ist Notenblatt Systemtechniker.xls und Workbooks(2) ist Noten Kern.xls
Workbooks(1).Sheets("Zus").Range("A1:N40").Copy
Workbooks(2).Sheets("Zus").Range("A1:N40").PasteSpecial xlPasteFormats
Workbooks(1).Sheets("TBZ ZLI").Range("A1:O90").Copy
Workbooks(2).Sheets("TBZ ZLI").Range("A1:O90").PasteSpecial xlPasteFormats
Workbooks(1).Sheets(Deine 3. Tabelle).Range(Dein 3. Bereich).Copy
Workbooks(2).Sheets(Deine 3. Tabelle).Range(Dein 3. Bereich).PasteSpecial xlPasteFormats
Workbooks(1).Sheets(Deine 4. Tabelle).Range(Dein 4. Bereich).Copy
Workbooks(2).Sheets(Deine 4. Tabelle).Range(Dein 4. Bereich).PasteSpecial xlPasteFormats
Workbooks(1).Sheets(Deine 5. Tabelle).Range(Dein 5. Bereich).Copy
Workbooks(2).Sheets(Deine 5. Tabelle).Range(Dein 5. Bereich).PasteSpecial xlPasteFormats
Application.CutCopyMode = False
Workbooks(2).Range("A1").Select
Workbooks(2).Save
Workbooks(2).Close
End Sub

Konnte ich Dir damit helfen?
Ciao
Thorsten

AW: Workbook mit Variable öffnen

15.03.2004 18:07:40

Peter

Hallo Thorsten,
ich glaube ich verstehe die Struktur.
Werde es morgen gerne ausprobieren.
Das Workbook mit dem Code ist demzufolge immer Workbooks(1)
Der Wechsel ist so einfach zwischen (1) und (2)
Dieser Wechsel war mein Problem.
Wird sicher viel schneller ablaufen.
Vielen Dank, Peter

Beliebteste Forumthreads (12 Monate)

Forumthread: Workbook mit Variable öffnen

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread