Hallo,
aus einer SQL-Select Anweisung hole ich Datensätze und möchte diese in Word darstellen. Das funktioniert auch ganz gut, außer daß nur zwei Spalten angezeigt werden, statt ca 15.
Die Funktion lautet:
Set objTable = WdApp.ActiveDocument.Tables.Add (objRange, Ubound(arrData,2), 2,1,1)
For i = 0 To Ubound(arrData,2)
objTable.Cell(i,1).Range.InsertAfter(arrData(0,i))
objTable.Cell(i,2).Range.InsertAfter(arrData(1,i))
Next
Kann mir bitte jemand helfen ?
Vielen Dank und Gruß,
Nici
aus einer SQL-Select Anweisung hole ich Datensätze und möchte diese in Word darstellen. Das funktioniert auch ganz gut, außer daß nur zwei Spalten angezeigt werden, statt ca 15.
Die Funktion lautet:
Set objTable = WdApp.ActiveDocument.Tables.Add (objRange, Ubound(arrData,2), 2,1,1)
For i = 0 To Ubound(arrData,2)
objTable.Cell(i,1).Range.InsertAfter(arrData(0,i))
objTable.Cell(i,2).Range.InsertAfter(arrData(1,i))
Next
Kann mir bitte jemand helfen ?
Vielen Dank und Gruß,
Nici