OpenOffice.info

Das Makro soll immer auf eine .xls-Datei angewandt werden und sowohl in OOo, als auch in Excel laufen.

Hallo
Wenn die Extension sowohl auf .xls als auch auf .ods anpassbar ist, benötigst du eine VBA-lösung aus Excel heraus doch nicht unbedingt ?

Gruß Karo

Vielen Dank.

Mit der verlinkten Extension kann ich mir etwas zusammen basteln. Mit VBA muss ich mich dann später mal beschäftigen, gibt hier womöglich auch schon fertige Makros, die ich anpassen kann.

Gruß.

 This Open Office macro will 
' - read all the .xls files located in the cFolder defined some line below

If LCase( Right( cFile, 4 ) ) = ".xls" Then

If LCase( Right( cFile, 4 ) ) = ".xls" OR LCase( Right( cFile, 4 ) ) = ".ods" Then

[quote]geht aber nur mit ~.ods[/quote]

eigentlich nicht, denn das Makro funktioniert im Gegenteil nur mit *.xls. Zum Einen steht das als Kommentar im Code:

[code] This Open Office macro will
' - read all the .xls files located in the cFolder defined some line below[/code]

aber auch im eigentlichen Code ist es so implementiert:

[code]If LCase( Right( cFile, 4 ) ) = ".xls" Then[/code]


wobei das Ganze nur eine Lapalie ist denn man könnte das ja schnell um *.ods ergänzen

[code]If LCase( Right( cFile, 4 ) ) = ".xls" OR LCase( Right( cFile, 4 ) ) = ".ods" Then[/code]



Gruß
Stephan

Hallo
Evtl. ist [url=http://extensions.services.openoffice.org/de/project/OOcalc_multi_sheets_export]das[/url] etwas für dich - geht aber nur mit ~.ods

Gruß Karo

Sub test()
On Error Goto xls
x = ThisComponent.URL
'weiterer Code für Calc

xls:
'Code für Excel
End Sub

[quote]Jetzt hab ich noch das Problem, dass ich bei jedem Export durch das Makro einen Dialog geöffnet bekomme[/quote]

Tja, die Frage ist dann nur was "das Makro" ist, ich sehe hier nämlich keinen Code ...

[quote]Gibt es hier Alternativen?[/quote]

Du könntest VBA verwenden, ggf. mußt Du in den Code eine Weiche einbauen damit für Calc und Excel auf einen anderen Code verzweigt wird, prinzipiell also:

[code]Sub test()
On Error Goto xls
x = ThisComponent.URL
'weiterer Code für Calc

xls:
'Code für Excel
End Sub[/code]

Klar sollte natürlich sein das VBA nur in Excel in der entsprechenden Datei speicherbar ist, die Datei also in Excel erzeugt werden muß.



Gruß
Stephan

Hallo Karo.

Vielen Dank!

[quote="Karolus"]
1. Ich nehme mal an du möchtest die Makros "mit einem Dokument" transportieren ? Das Dokument hat "seinen Pfad" in der Variablen 'thisComponent.url' → Damit kannst du arbeiten.
[/quote]

Die exportierten CSV-Dateien sollen einfach in ein Unterverzeichnis gespeichert werden, im selben Ordner liegt (oder angelegt wird, falls das geht…), in dem das Dokument selbst liegt. Jetzt hab ich noch das Problem, dass ich bei jedem Export durch das Makro einen Dialog geöffnet bekomme, mit der Info, dass nur das aktuelle Blatt gespeichert wird. Lässt sich dieser unterdrücken oder per Makro triggern?

[quote]2. Nein[/quote]

Gibt es hier Alternativen? Ich sehe, dass es anscheinend auch Python- und JavaScript-Makros gibt. Lässt sich mit denen ein solcher Export MS-Kompatibel basteln? Nochmal konkret: Eine XLS-Tabelle enthält mehrere Blätter und ich will einfach nur jedes dieser Blätter je in eine eigene CSV-Datei exportieren.

Gruß.

Hallo
1. Ich nehme mal an du möchtest die Makros "mit einem Dokument" transportieren ? Das Dokument hat "seinen Pfad" in der Variablen 'thisComponent.url' → Damit kannst du arbeiten.
2. Nein
3. Ja

Gruß Karo

Hallo.

Ich habe drei Fragen zu OOo-Makros:

1. Wie gebe ich relative Pfadangaben an? (geht um einen CSV-Export aller Blätter; das Makro muss sowohl unter UNIX, als auch unter Windows laufen)
2. Ist ein OOo-Makro in einer XLS-Datei auch unter Excel lauffähig?
3. Gibt es einen einfachen Weg, ein Makro zu aktivieren, also z.B. ein Button?

Gruß.