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)
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 68875
Url: https://administrator.de/contentid/68875
Printed on: April 20, 2024 at 00:04 o'clock
2 Comments
Latest comment
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
