von brunopaula » Sa, 18.11.2017 19:46
So sieht nun mein Makro aus:
Es wird über Shell aus excelmacro gestartet, öffnet die dbf Datei und speichert sie als xls wieder ab und schließt auch openoffice bis zum nächsten Aufruf. Damit kann ich alles andere im excelmakro (VBA) das ziemlich umfangreich ist weiter verarbeiten. Ich habe zur Zeit MS Office 2000.
- Excel Fehlermeld.gif (35.25 KiB) 5617 mal betrachtet
.xls ist .dbf zu ersetzen (sonst laden nicht möglich)
Gruß und Dank Bruno
openoffice macro:
Code: Alles auswählen
REM ***** BASIC *****
Sub Main
Dim args(1) As New com.sun.star.beans.PropertyValue
args(0).Name = "FilterName"
args(0).Value = "dBase"
args(1).Name = "FilterOptions"
args(1).Value = 0
datei = ConvertToURL("D:\eigene dateien\daten\skv\test\W2495_end.dbf")
StarDesktop.loadComponentFromUrl(datei, "_blank", 0, args())
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:///D:/Eigene%20Dateien/Daten/SKV/Test/xls1.xls"
args1(1).Name = "FilterName"
args1(1).Value = "MS Excel 97"
dispatcher.executeDispatch(document, ".uno:SaveAs", "", 0, args1())
oDoc = thisComponent
odoc.store
odoc.close(true)
end sub
_________________
Moderation:
Zur übersichtlichen Darstellung des Textes und vom Programmcode im Text [code][/code] Tags gesetzt. — lorbass, Moderator
So sieht nun mein Makro aus:
Es wird über Shell aus excelmacro gestartet, öffnet die dbf Datei und speichert sie als xls wieder ab und schließt auch openoffice bis zum nächsten Aufruf. Damit kann ich alles andere im excelmakro (VBA) das ziemlich umfangreich ist weiter verarbeiten. Ich habe zur Zeit MS Office 2000.
[attachment=1]Excel Fehlermeld.gif[/attachment]
[attachment=0]W2495_end - Kopie.xls[/attachment] .xls ist .dbf zu ersetzen (sonst laden nicht möglich)
Gruß und Dank Bruno
openoffice macro:
[code]REM ***** BASIC *****
Sub Main
Dim args(1) As New com.sun.star.beans.PropertyValue
args(0).Name = "FilterName"
args(0).Value = "dBase"
args(1).Name = "FilterOptions"
args(1).Value = 0
datei = ConvertToURL("D:\eigene dateien\daten\skv\test\W2495_end.dbf")
StarDesktop.loadComponentFromUrl(datei, "_blank", 0, args())
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:///D:/Eigene%20Dateien/Daten/SKV/Test/xls1.xls"
args1(1).Name = "FilterName"
args1(1).Value = "MS Excel 97"
dispatcher.executeDispatch(document, ".uno:SaveAs", "", 0, args1())
oDoc = thisComponent
odoc.store
odoc.close(true)
end sub[/code]
[color=#00AA00]_________________[/color]
[size=85][color=#00AA00][b]Moderation:[/b]
Zur übersichtlichen Darstellung des Textes und vom Programmcode im Text [code][/code] Tags gesetzt. — lorbass, Moderator
[/color][/size]