CALC: speichern und löschen
Verfasst: So, 19.02.2017 18:38
Hallo
dies ist mein zweiter Beitrag hier, war aber schon eine Weile lesend hier unterwegs, wobei mir viele Hinweise hier schon weiterhelfen konnten. Ich fange gerade erst damit an, mich in die Makro-Programmierung einzuarbeiten und habe auch sonst noch keine Programmiererfahrung.
Folgendes Problem: Ich habe ein Makro Wochenspeicher dieses speichert meine Datei mit neuem namen in einen neuen Ordner mit Namen Wochenenspeicher.
Bis dahin ist alles in Ordnung.
Nun mein Problem:
Ich möchte gerne das wenn ich dieses Makro starte speichert und in meiner orginal Datei Statistik bestimmte Zellenbereiche gelöscht werden.
Kann mir hier bei jemand helfen wie ich dieses Problem lösen kann.
Ich bedanke mich schon Mal für eure Hilfe bei meinem Problem,
viele Grüße,
Ralf
Moderation,4: Tippfehler in Betreff (für Suchfunktionen) korrigiert
dies ist mein zweiter Beitrag hier, war aber schon eine Weile lesend hier unterwegs, wobei mir viele Hinweise hier schon weiterhelfen konnten. Ich fange gerade erst damit an, mich in die Makro-Programmierung einzuarbeiten und habe auch sonst noch keine Programmiererfahrung.
Folgendes Problem: Ich habe ein Makro Wochenspeicher dieses speichert meine Datei mit neuem namen in einen neuen Ordner mit Namen Wochenenspeicher.
Bis dahin ist alles in Ordnung.
Nun mein Problem:
Ich möchte gerne das wenn ich dieses Makro starte speichert und in meiner orginal Datei Statistik bestimmte Zellenbereiche gelöscht werden.
Code: Alles auswählen
sub save
oDoc=thisComponent
Sheet = oDoc.Sheets(0)
Cell1 = Sheet.getCellByPosition(0, 00) '<= Das ist der erste Teil Bezug
Cell2 = Sheet.getCellByPosition(1, 00) '<= Das ist der zweite Teil Bezug
Cell3 = Sheet.getCellByPosition(3, 00) '<= Das ist der erste Teil Bezug
Cell4 = Sheet.getCellByPosition(7, 00) '<= Das ist der erste Teil Bezug
Filename = Cell1.String & " " & Cell2.String & " " & Cell3.String & " - " & Cell4.String & ""
Path = "file:///C:/Statistik - Kopie/Wochenspeicher/"
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "FilterName"
oDoc.storeasurl(Path & Filename & ".ods",args1())
oSer = createUNOService("com.sun.star.system.SystemShellExecute")
oSer.execute("C:\Statistik - Kopie\Statistik.ods",,0)
With ThisComponent
.store
.close( FALSE )
End With
end sub
Ich bedanke mich schon Mal für eure Hilfe bei meinem Problem,
viele Grüße,
Ralf
Moderation,4: Tippfehler in Betreff (für Suchfunktionen) korrigiert