Ich fürchte Dein Problem noch nicht erfasst zu haben...

> eine Tabellendatei, die ich aber mit der
> Serienbrieffunktion von Writer auslese

Dann hast Du eine Writer-Vorlage, in welche Du die Felder aus dem
DB-Browser reingezogen hast (Calc als Datenquelle registriert?)?

> schreibe ich mir ein Makro
das verstehe ich :-)

Achtung:
im Code des folgenden Beispiels werden Unterstriche als
Zeilenende-Zeichen verwendet!

"base_CalcDB" ist der Name der registrierten Datenquelle, hier eine
Calc.ods
"Tabelle1" ist der Name der Tabelle, deren Spaltennamen (1. Zeile)
ausgegeben werden können

=======
Sub base_zeigeSpaltenNamen

oDBContext = _
 CreateUnoService( "com.sun.star.sdb.DatabaseContext" )
oConnection = _
 oDBContext.GetByName( "base_CalcDB" ).GetConnection( "","" )

oTabelle = _
 oConnection.getTables().getByName( "Tabelle1" )

oSpaltenNamen() = _
 oTabelle.getColumns().getElementNames()

for i = LBound( oSpaltenNamen ) to UBound( oSpaltenNamen )
 print oSpaltenNamen( i ) 
next i

End Sub

=======

Kommst Du damit zurecht?


Cheers
Winfried
-- 

re-Solutions.de Software Test Engineering  Mainz Germany Europe
meine OOo Seiten: http://www.re-solutions.de/ooo/

---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Antwort per Email an