Excel Datei mit VBA erzeugt Fehler in Libreoffice

[trex450]

Hallo zusammen

Ich habe heute das erste Mal Libreoffice installiert und bin somit neu in der Gemeinde

Gerne möchte ich eine Excel2003 Datei mit VBA (siehe Anhang) in Libreoffice verwenden.
Die Datei im Anhnag (xls) lässt sich zwar starten, jedoch erfolgt ein Fehler nach dem Drücken des Import-Knopfes und anschließender Datei Auswahl (BASIC-Laufzeitfehler. '423' GetOpenFilename).

Gibt es eine Möglichkeit, diese Excel-Datei mit VBA unter LibreOffice zu betreiben.

Vielen Dank für Eure Hilfe.

Liebe Grüsse Fritz

P.S.
Das VBA hat mir ein Kollege geschrieben. Ich selber kann kein VBA.

Die Funktion ist folgende:
Das Excel dient zum Berechnen von Kosten für einziele Kollegen bei Sammelbestellungen aus China.
Die Hauptaufgabe des VBA-Programmes ist es, die Auftragsbestätigung (im Textformat) in eine Tabelle zu Importieren und Stückzahl, Beschreibung und Preis zu trennen.
Die restlichen Berechnungen laufen außerhalb VBA.
Das Dokument im Anhang bebildert die korrekte Funktionsweise in EXCEL 2003

[karolus]

Hallo

Mit Dateiauswahldialog und ~30 Zeilen Python:

Code: Alles auswählen

import uno
from os.path import dirname


ctx = uno.getComponentContext()
servicemanager = ctx.ServiceManager
createUnoService = servicemanager.createInstance




def csv_import(*dummy):
    doc = XSCRIPTCONTEXT.getDocument()
    url  = dirname(doc.URL)
    inputpath = FilePicker(url, 0)
    if inputpath:
        out=[]
        with open(inputpath) as sourcefile:
            for line in sourcefile:
                anzahl, rest = line.split('x #', 1 )
                bezeichnung, preis = rest.rsplit(' = $',1)
                out.append((int(anzahl), bezeichnung, float(preis)))
        sheet = doc.Sheets.getByIndex(0)
        outrange = sheet.getCellRangeByPosition(0, 17, 2, 16 + len(out))
        outrange.setDataArray(tuple(out))



def FilePicker(prechoose, write):
    filepicker = createUnoService( "com.sun.star.ui.dialogs.OfficeFilePicker" )
    filepicker.setDisplayDirectory( prechoose )
    filepicker.initialize( ( write,) )
    if filepicker.execute():
        return uno.fileUrlToSystemPath( filepicker.getFiles()[0] )
 

OrderCalc_mit_python.ods

(40.51 KiB) 119-mal heruntergeladen

Karolus

[trex450]

hallo karolus

vielen dank für die superschnelle lösung. ist der hammer. supi!!
vor lauter freude habe ich doch gleich eine spende an libreoffice entrichtet.

lebe wohl EXCEL

gruss fritz

p.s.
in der beilage ist die leicht angepasste version, falls jemand das noch so brauchen möchte.