BITTE helfen Sie uns HEUTE mit einer SPENDE
Helfen Sie das OpenOffice Forum zu erhalten!

DANKE >><< DANKE

> KEINE WERBUNG FÜR REGISTRIERTE BENUTZER!<
Ihre Spende wird für die Deckung der laufenden Kosten sowie den Erhalt und Ausbau 🌱 des OpenOffice Forums verwendet.
🤗 Als Dankeschön werden Sie im Forum als OO-SUPPORTER gekennzeichnet. 🤗

Makros von Excel in Calc verwenden

CALC ist die Tabellenkalkulation, die Sie immer wollten.
Antworten
Thomas87
Beiträge: 1
Registriert: Sa 17. Apr 2021, 15:13

Makros von Excel in Calc verwenden

Beitrag von Thomas87 » Sa 17. Apr 2021, 15:30

Hallo,

ich bin auf der Suche nach einer Möglichkeit, eine in Excel erstellte Arbeitsmappe mit Makros in Calc zu übernehmen.
Jetzt kann ich sie zwar öffnen und auch bearbeiten, jedoch Funktionieren die Makros hier nicht mehr.
Leider habe ich bis dato noch nicht mit Open Office gearbeitet.

Das "Programm" war wie folgt hinterlegt:
In einer Datei "schreiben", werden alle relevanten Daten eingetragen und berechnet.
In der 2. Datei "speichern" befindet sich die Tabelle erneuert, jedoch komplett ohne Formeln und Makros.

Das Makro in der Datei "schreiben" ist so angelegt, das es die 2. Datei öffnet, die Daten werden übernommen, die Datei wird unter einem Namen aus einer Zelle an einem bestimmten Ort gespeichert und schließt sich am Ende wieder.

Das Makro in Excel sah wie folgt aus:

Sub Speichern()
'
' Speichern Makro
'

'
Workbooks.Open Filename:="C:\Users\Thomas\Desktop\a3 speichern.xlsx"
ActiveWorkbook.SaveAs Filename:="C:\Users\Thomas\Desktop\test\" & Range("G5") & ".xlsx" _
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
End Sub

Das Makro in Calc sieht derzeit noch wie folgt aus:


sub speichern
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(1) as new com.sun.star.beans.PropertyValue
args1(0).Name = "URL"
args1(0).Value = "file:///C:/Users/Thomas/Desktop/test/XXX.ods"
args1(1).Name = "FilterName"
args1(1).Value = "calc8"

dispatcher.executeDispatch(document, ".uno:SaveAs", "", 0, args1())


Leider komme ich hier auch nicht wirklich weiter, da wenn ich über die Funktion "Makro aufzeichnen" erfolg bekomme, das wenn ich den Button "Speichern" drücke, er mir die 2. Datei öffnet und speichert.
Auch der Speichername der Datei in Bezug auf einen Zelle will nicht so richtig.

Ich hoffe mir kann hierbei jemand helfen.

Danke im voraus

Thomas

mikele
Beiträge: 771
Registriert: Sa 23. Jul 2011, 22:09

Re: Makros von Excel in Calc verwenden

Beitrag von mikele » So 18. Apr 2021, 11:48

Hallo,
ich bin etwas verwirrt:
Soweit ich es erkenne, öffnet das Excel-Makro eine Datei und speichert sie unter einem anderen Namen.
Der Teil, in dem die Daten aus der Datei "schreiben" in die Datei "speichern" übertragen werden fehlt. Also wird einfach nur eine Datei unter einem anderen Namen gespeichert.
In welcher Datei (und welcher Tabelle) befindet sich in G5 der gewünschte Dateiname?
Gruß,
mikele

Antworten