Re: [de-users] Mit Macro *.DBF öffnen

[Manzenberger Max]

Hi J�rg,
Danke f�r deine Antwort.
J�rg Schmidt schrieb:
Hallo,
Manzenberger Max schrieb:
Weder kommt ne Fehlermeldung, noch wird die Datei ge�ffnet.
Hoffe jemand weis woran das liegt.

Manche Ex-/Importfilter erwarten Optionen als Parameter. Wenn das der
Fall ist (wie bei dBase) wird aber eine *Mindest*zahl an Parametern auch
zwingend erwartet, das gilt auch wenn ein Parameter "leer" ist.
Das hab ich mir schon gedacht und hatte eben folgendes angegeben.
FileProporties(1).Name = "CharacterSet"
FileProporties(1).Value = "850"
Hat eben nichts gebracht. Aber ich war auf dem richtigen Weg. :-)

In Unkenntnis der notwendigen Filteroptionen leiten sich diese im
Zweifel von den Mindestangaben beim manuellen �ffnen der Datei ab. Bei
dBase ist offensichtlich das beim manuellen �ffnen ein Zeichensatz
erwartet wird.
Daraus resultiert folgender "Mindest"code:
Sub Main
DIM FileProporties(1) as New com.sun.star.beans.PropertyValue
DIM document as Object
FileProporties(0).Name = "Filtername"
FileProporties(0).Value = "dBase"
FileProporties(1).Name = "FilterOptions"
FileProporties(1).Value = ""
document =
StarDesktop.loadComponentFromURL("file:///C:/winword/steuerda.dbf",
"_blank", 0, FileProporties())
End Sub
Danke, seitdem funktioniert es schonmal.

(als Zeichensatz gilt hier der Systemzeichensatz, wegen "")
Nein, ich kenne keine Auflistung der Zeichens�tze. Wenn man ein Dokument
manuell �ffnet, l��t sich der Zeichensatz jedoch anschlie�end abfragen:
Sub DocumentArgs()
vArgs = ThisComponent.getArgs()
For i = 0 To UBound(vArgs)
        if  vArgs(i).Name = "FilterOptions" Then
                MsgBox (vArgs(i).Value,64,"Zeichensatz des Dokuments")
                Exit Sub
        End if
Next i
End Sub
(Hinweis: dieser letzte Code funktioniert nicht nach �ffnen der Datei
mit erstem Makro, da kein Parameter f�r MacroExecutionMode �bergeben
wurde und die Makroausf�hrung als default blockiert wird)
Gru�
J�rg
Ich denke mal im Moment ist der Zeichensatz nachrangig. Da es jetzt 
erstmal prinzipiell funktionieren muss. Danach kann ich dann die Details 
behandeln.

Nochmal herzlichen Dank
Gru�
Max
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]