Hallo,
ich stehe vor der Aufgabe eine VB6 Anwendung die Exceltabellen erstellt auf
OOo Calc umzustellen.
Dabei bin ich auf ein paar Probleme gestoßen, an denen ich hängen bleibe.
1. Autom. Updaten von Verknüpfungen:
unter VB mit Excel sieht das so aus
alinks = oExl.ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(alinks) Then
For i = 1 To UBound(alinks)
oExl.ActiveWorkbook.ChangeLink alinks(i), _
cNewLinkSource, xlExcelLinks
Next i
endif
2. Zugriff auf ein Textfeld, Button in einer Tabelle
vb code:
With oExl.ActiveWorkbook.Sheets("Daten importieren").OLEObjects("TextBox1")
.object.Activate
.object.Text = cPfad
End With
'AnzeigeButton klicken
With oExl.ActiveWorkbook.Sheets("Daten
importieren").OLEObjects("CommandButton5")
.object.Value = True
End With
Es währe ganztoll wenn mir jemand mit ein paar Codebeispielen für OOo
weiterhelfen könnte.
Herzlichen Dank schon jetzt.
MfG
drogon
