DBF, Export als XLS
Moderator: Moderatoren
-
- Beiträge: 5
- Registriert: Fr, 17.11.2017 08:28
DBF, Export als XLS
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
Moderation,4: verschoben in BASIC-Unterbereich, wo alle Makro-Fragen hin gehören; Betreff angepasst
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
Moderation,4: verschoben in BASIC-Unterbereich, wo alle Makro-Fragen hin gehören; Betreff angepasst
- komma4
- ********
- Beiträge: 5332
- Registriert: Mi, 03.05.2006 23:29
- Wohnort: Chon Buri Thailand Asia
- Kontaktdaten:
Re: DBF, Export als XLS
Kompliziert.
Mal im Ernst: was erwartest Du nun? Dass Dir jemand das Makro schreibt... mit diesen wenigen Angaben... für lau?
Willkommen im Forum!
Cheers
Winfried
aktuell: LO 5.3.5.2 30m0(Build:2) SUSE rpm, unter Linux openSuSE Leap 42.3 x86_64/KDE5
DateTime2 Einfügen von Datum/Zeit/Zeitstempel (als OOo Extension)
Winfried
aktuell: LO 5.3.5.2 30m0(Build:2) SUSE rpm, unter Linux openSuSE Leap 42.3 x86_64/KDE5
DateTime2 Einfügen von Datum/Zeit/Zeitstempel (als OOo Extension)
-
- Beiträge: 5
- Registriert: Fr, 17.11.2017 08:28
Re: DBF, Export als XLS
Nicht unbedingt ein komplettes Makro, aber eine Idee wie ich eine Datei öffnen kann, um dann weiterarbeiten zu können.
Bruno
Bruno
Re: DBF, Export als XLS
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:
Gruß
Stephan
Code: Alles auswählen
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
Stephan
- komma4
- ********
- Beiträge: 5332
- Registriert: Mi, 03.05.2006 23:29
- Wohnort: Chon Buri Thailand Asia
- Kontaktdaten:
Re: DBF, Export als XLS
Mein google ergab gleich auf der ersten Seite mehrere Treffer bzgl. eines DBF>XLS Konverters... no macro needed
ist aber wohl einfacher, mal einfach so eine pauschale Frage in ein Forum zu werfen
ist aber wohl einfacher, mal einfach so eine pauschale Frage in ein Forum zu werfen
Cheers
Winfried
aktuell: LO 5.3.5.2 30m0(Build:2) SUSE rpm, unter Linux openSuSE Leap 42.3 x86_64/KDE5
DateTime2 Einfügen von Datum/Zeit/Zeitstempel (als OOo Extension)
Winfried
aktuell: LO 5.3.5.2 30m0(Build:2) SUSE rpm, unter Linux openSuSE Leap 42.3 x86_64/KDE5
DateTime2 Einfügen von Datum/Zeit/Zeitstempel (als OOo Extension)
-
- Beiträge: 5
- Registriert: Fr, 17.11.2017 08:28
Re: DBF, Export als XLS
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
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
Re: DBF, Export als XLS
Also bei mir geht das problemlos mit:und das geht zB mit Excel ganz phantastisch (bis auf dbf lesen)
Code: Alles auswählen
'Achtung VBA
Sub oeffnen()
Workbooks.Open "D:\biblio.dbf"
End Sub
Gruß
Stephan
-
- Beiträge: 5
- Registriert: Fr, 17.11.2017 08:28
Re: DBF, Export als XLS
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
mfg Bruno
Re: DBF, Export als XLS
Welche Excel-Version? Welche Fehlermeldung erscheint?Leider ist das dbf das ich ca alle 2 Minuten bekomme und daher automatisch in Excel verarbeiten will, für Excel ein unbekanntes Format!
Kannst Du eine Beispiel-dbf zur Verfügung stellen?
Gruß
Stephan
-
- Beiträge: 5
- Registriert: Fr, 17.11.2017 08:28
Re: DBF, Export als XLS
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. .xls ist .dbf zu ersetzen (sonst laden nicht möglich)
Gruß und Dank Bruno
openoffice macro:
_________________
Moderation:
Zur übersichtlichen Darstellung des Textes und vom Programmcode im Text [code][/code] Tags gesetzt. — lorbass, Moderator
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. .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