2
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 xls“Statistik.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)
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 xls“Statistik.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)
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 68875
Url: https://administrator.de/contentid/68875
Ausgedruckt am: 15.11.2024 um 01:11 Uhr
2 Kommentare
Neuester Kommentar
Hallo Bacaaardi!
Fangen wir vielleicht bei "zu guter letzt" an: Wie wird "aus der Anwendung gezogen", wo kann ich mit einem Script/Batch ansetzen?
Grüße
bastla
Fangen wir vielleicht bei "zu guter letzt" an: Wie wird "aus der Anwendung gezogen", wo kann ich mit einem Script/Batch ansetzen?
Grüße
bastla
Wir haben hier ein Auftragstool. In diesem ist ein Link hinterlegt (dieser generiert ein xls File)
Hab versucht ein Makro zu schreiben (mit Webabfrage). Daten sollen aus bestimmter URL geholt werden und als jira.xls abgespeichert werden
Klappt alles super, sobald ich aber das xls schließe und neu öffne um wieder das Makro auszuführen importiert er nix.
Hier mal mein Makro:
Sub Makro1()
'
' Makro1 Makro
' Makro am 18.09.2007 von mir aufgezeichnet
'
'
Workbooks.Add
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://jira.de/jira/secure/views/bulkedit/BulkEdit1!default.jspa?tempMax=452&reset=true" _
, Destination:=Range("A1"))
.Name = "BulkEdit1!default.jspa?tempMax=452&reset=true"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = """issuetable"""
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Columns("A:A").Select
Selection.Delete Shift:=xlToLeft
Range("A1").Select
ChDir "C:\Dokumente und Einstellungen\ich\Desktop\test2"
ActiveWorkbook.SaveAs Filename:= _
"C:\Dokumente und Einstellungen\ich\Desktop\test2\jira.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
End Sub
Hab versucht ein Makro zu schreiben (mit Webabfrage). Daten sollen aus bestimmter URL geholt werden und als jira.xls abgespeichert werden
Klappt alles super, sobald ich aber das xls schließe und neu öffne um wieder das Makro auszuführen importiert er nix.
Hier mal mein Makro:
Sub Makro1()
'
' Makro1 Makro
' Makro am 18.09.2007 von mir aufgezeichnet
'
'
Workbooks.Add
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://jira.de/jira/secure/views/bulkedit/BulkEdit1!default.jspa?tempMax=452&reset=true" _
, Destination:=Range("A1"))
.Name = "BulkEdit1!default.jspa?tempMax=452&reset=true"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = """issuetable"""
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Columns("A:A").Select
Selection.Delete Shift:=xlToLeft
Range("A1").Select
ChDir "C:\Dokumente und Einstellungen\ich\Desktop\test2"
ActiveWorkbook.SaveAs Filename:= _
"C:\Dokumente und Einstellungen\ich\Desktop\test2\jira.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
End Sub
