OpenOffice.info

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

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]

[quote]Leider ist das dbf das ich ca alle 2 Minuten bekomme und daher automatisch in Excel verarbeiten will, für Excel ein unbekanntes Format![/quote]

Welche Excel-Version? Welche Fehlermeldung erscheint?

Kannst Du eine Beispiel-dbf zur Verfügung stellen?


Gruß
Stephan

Leider ist das dbf das ich ca alle 2 Minuten bekomme und daher automatisch in Excel verarbeiten will, für Excel ein unbekanntes Format! In openoffice kein Prolem.
mfg Bruno

'Achtung VBA
Sub oeffnen()
  Workbooks.Open "D:\biblio.dbf"
End Sub

[quote]
und das geht zB mit Excel ganz phantastisch (bis auf dbf lesen)
[/quote]

Also bei mir geht das problemlos mit:

[code]'Achtung VBA
Sub oeffnen()
Workbooks.Open "D:\biblio.dbf"
End Sub
[/code]
(getestet in MS Excel 2003)


Gruß
Stephan

Danke Stephan. Diese Antwort war bereits extrem hilfreich.
komma4: Ich habe auch gegoogelt, aber meine Vision ist, dass das alles automatisch
läuft, und das geht zB mit Excel ganz phantastisch (bis auf dbf lesen)

mfg Bruno

Mein google ergab gleich auf der ersten Seite mehrere Treffer bzgl. eines DBF>XLS Konverters... [i]no macro needed[/i]

ist aber wohl einfacher, mal einfach so eine pauschale Frage in ein Forum zu werfen :shock:

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:\biblio.dbf")
	StarDesktop.loadComponentFromUrl(datei, "_blank", 0, args())
End Sub

die biblio-.dbf die mit OpenOffice als Literaturdatenbank mitgeliefert wird lässt sich ganz normal mit dBase-Filter öffnen, ob das zu Foxpro kompatibel ist weiß ich nicht:

[code]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:\biblio.dbf")
StarDesktop.loadComponentFromUrl(datei, "_blank", 0, args())
End Sub
[/code]

Gruß
Stephan

Nicht unbedingt ein komplettes Makro, aber eine Idee wie ich eine Datei öffnen kann, um dann weiterarbeiten zu können.
Bruno

[quote=brunopaula post_id=272313 time=1510904728 user_id=59876]Wie sieht so ein makro in openoffice aus?[/quote]
Kompliziert.


Mal im Ernst: was erwartest Du nun? Dass Dir jemand das Makro schreibt... mit diesen wenigen Angaben... für lau?

Willkommen im Forum!

Hallo !

Ich möchte eine .dbf Datei von Foxpro (Excel erkennt diese leider nicht) autom. mit einem makro öffnen und als .xls wieder abspeichern, um sie dann in Excel mittels VBA makro
automatisch zu verarbeiten.
Wie sieht so ein makro in openoffice aus?

mfg Bruno


[color=#800000]Moderation,4[/color]: verschoben in BASIC-Unterbereich, wo alle Makro-Fragen hin gehören; Betreff angepasst