Boa noite,
Segue um exemplo de como fica carregar os dados na listbox emulando colunas:
.
ListBoxColunas.ods
.
Dim oDialogo As Object
Sub abrir
DialogLibraries.LoadLibrary("Standard")
'Usando a variável declarada no começo do módulo'
oDialogo = CreateUnoDialog( DialogLibraries.Standard.getByName("Dialog1") )
'Carregar'
oDialogo.Execute()
oDialogo.Dispose()
End Sub
Sub CarregarDados
oDoc = ThisComponent
oPlan = oDoc.Sheets.getByName("Planilha1")
oListBox = oDialogo.getControl("ListBox1")
oListBox.Model.removeAllItems
For i = 1 to UltimaLinha(oPlan)
sCol1 = oPlan.getCellByPosition(0,i).String
sCol2 = oPlan.getCellByPosition(1,i).String
sCol3 = oPlan.getCellByPosition(2,i).String
oListBox.AddItem( EspacarColuna(sCol1,30) &_
EspacarColuna(sCol2,10) &_
EspacarColuna(sCol3,20), i )
Next i
End Sub
Function EspacarColuna( sCol, nTam )
EspacarColuna = Left(sCol & String(nTam," "),nTam) & " "
End Function
Function UltimaLinha( oPlan )
oCursor = oPlan.createCursor
oCursor.gotoEndOfUsedArea(True)
UltimaLinha = oCursor.Rows.Count-1
End Function
Atte,