Automatisierung

Hallo,
ich bräuchte eine Automatisierung welche eindeutig meine Fähigkeiten übersteigt ;)
wir haben eine Datei Statistik.xls. Diese bezieht Daten aus 2 anderen xls Dokumenten.
Diese xls Dokumente werden per Hand aus einer eigenen Anwendung erstellt.
Ich soll nun folgendes automatisieren.
Die Dateien daten1.xls und daten2.xls werden weiterhin händisch aus der Anwendung gezogen und in einen Ordner gespeichert.
In diesen beiden Dateien sollen automatisch immer die ersten 3 und die letzte Zeile gelöscht werden.
Die xlsStatistik.xls (ist bereits vorhanden und liegt im gleichen Ordner wie die daten1 und daten2 xls) erstellt Statistiken zu diesen beiden Dateien.
In der Statistik.xls sind viele Pivottabellen und Graphiken. Um mir verschieden Ansichten zu generieren, müssen immer die anderen beiden Dateien (aus denen die Daten bezogen werden) geöffnet sein
Ist es möglich Parameter zu ändern ohne dabei die Daten.xls zu öffnen?
Und jetzt noch zu guter letzt: :-)
Da wir täglich neue Daten.xls aus unserer Anwendung ziehen wäre es klasse wenn wir die neue Datei mit dem selben Namen in den Ordner speichern, und die vorhandene Datei in ein Ordner Archiv verschieben (mit Präfix, z.B. v.1 oder Datum)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Makro1() ' Makro am 30.08.2007 von xxx aufgezeichnet ' Refresh data Sheets("Pivot charts test execution").Select ChDir "J:\Projekte" Workbooks.Open Filename:= _ "J:\Projekte\daten1.xls" Windows("Statistik.xls").Activate Range("A3").Select ActiveSheet.PivotTables("PivotTable4").PivotCache.Refresh Windows("daten1.xls").Activate ActiveWindow.Close Sheets("Pivot chart test preparation").Select ChDir "J:\Projekte" Workbooks.Open Filename:= _ "J:\Projekte\daten2.xls" Windows("Statistik.xls").Activate Range("A3").Select ActiveSheet.PivotTables("PivotTable2").PivotCache.Refresh Windows("daten2.xls").Activate ActiveWindow.Close Sheets("Pivot chart test preparation").Select End Sub

*g*
Der Code hier ist ungetestet, sollte aber denk ich das gleiche machen wie deiner:

Code aus Modul Modul1:

Option Explicit

Sub Makro1()

    Dim wkb As Workbook

    Set wkb = Workbooks.Open(Filename:="J:\Projekte\daten1.xls")

    ThisWorkbook.Sheets("Pivot charts test execution").PivotTables("PivotTable4").PivotCache.Refresh

    wkb.Close

    Set wkb = Workbooks.Open(Filename:="J:\Projekte\daten2.xls")

    ThisWorkbook.Sheets("Pivot charts test preparation").PivotTables("PivotTable2").PivotCache.Refresh

    Windows("daten2.xls").Activate

    wkb.Close

End Sub

Rückmeldung nicht vergessen...

c0bRa
Perl ist die einzige Sprache, die vor und nach einer RSA-Verschlüsselung gleich aussieht.

Beliebteste Forumthreads (12 Monate)

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread