von Reick » Fr, 07.10.2005 10:43
Hallo,
da es kürzlich so gut geklappt hat:
1. Ich möchte eine dBase-Datei im Hintergrund in OO (1.1.4) einlesen. Bei der Abarbeitung der untenstehenden Befehle in einem VB-Programm wird mir in der letzten (entscheidenden) Zeile Fehler 13 „Typen unverträglich“ gemeldet. Manuell klappt das Einlesen natürlich. Wenn ich ein Makro aufzeichne, bekomme ich aber auch keine Informationen zu den Aufruf-Parametern.
2. Wo finde ich Informationen zum Auslesen der Eigenschaften einer „unbekannten“ Tabelle? Bevor ich die Zellen auslese, möchte ich z.B. die Dimensionen (max. Spalte, max. Zeile) und die Zell-Eigenschaften herausfinden.
Könnt Ihr mir auch diesmal helfen?
Vielen Dank
Reick
Set oSM = CreateObject("com.sun.star.ServiceManager")
Set oDesk = oSM.createInstance("com.sun.star.frame.Desktop")
myURL = "file:///c:/arbeitsbereich/umsatz.dbf"
Dim aSaveArgs(0)
Set aSaveArgs(0) = oSM.Bridge_GetStruct("com.sun.star.beans.PropertyValue")
aSaveArgs(0).Name = "FilterName"
aSaveArgs(0).Value = "dBase"
Set oCalc = oDesk.loadComponentFromURL(myURL, "_blank", 0, aSaveArgs())
Hallo,
da es kürzlich so gut geklappt hat:
1. Ich möchte eine dBase-Datei im Hintergrund in OO (1.1.4) einlesen. Bei der Abarbeitung der untenstehenden Befehle in einem VB-Programm wird mir in der letzten (entscheidenden) Zeile Fehler 13 „Typen unverträglich“ gemeldet. Manuell klappt das Einlesen natürlich. Wenn ich ein Makro aufzeichne, bekomme ich aber auch keine Informationen zu den Aufruf-Parametern.
2. Wo finde ich Informationen zum Auslesen der Eigenschaften einer „unbekannten“ Tabelle? Bevor ich die Zellen auslese, möchte ich z.B. die Dimensionen (max. Spalte, max. Zeile) und die Zell-Eigenschaften herausfinden.
Könnt Ihr mir auch diesmal helfen?
Vielen Dank
Reick
Set oSM = CreateObject("com.sun.star.ServiceManager")
Set oDesk = oSM.createInstance("com.sun.star.frame.Desktop")
myURL = "file:///c:/arbeitsbereich/umsatz.dbf"
Dim aSaveArgs(0)
Set aSaveArgs(0) = oSM.Bridge_GetStruct("com.sun.star.beans.PropertyValue")
aSaveArgs(0).Name = "FilterName"
aSaveArgs(0).Value = "dBase"
Set oCalc = oDesk.loadComponentFromURL(myURL, "_blank", 0, aSaveArgs())