(Resolvido) Pegar todo conteúdo de um FlexGrid

[Danleonhart]

Seguinte,

Tou tentando pegar todo conteudo de um FlexGrid e jogar em uma ListBox... e depois gravar em um arquivo ".txt".

Até o momento só consigo pegar a primeira Coluna...as colunas restantes não consigo...quanto a gravar em .txt isso não tenho problema :)

Segue código:

Sub FT()

Dim Cl As Integer
Dim Ln As Integer

Set Fil = FSO.OpenTextFile(App.Path & "\Log.txt", ForAppending, True)

Cl = 1
Ln = 0

Do While Ln < Grid1.Rows
Lst1.AddItem Grid1.TextMatrix(Ln, Cl)
Fil.WriteLine Lst1.List(Ln)
Ln = Ln + 1
Loop

Fil.Close
End Sub

Sei que falta configurar a variavel "Cl" para dar loop também, porém não conseguí <_<

Editado Março 8, 2011 por Danleonhart

[kuroi]

você quer usar varias colunas num listbox?? se for isso:

as colunas do listbox não podem ser preenchidas assim, o q elas fazem é simplesmente mostrar o proximo item quando a listagem passar do tamanho vertical do listbox.

pra fazer o q você quer você poderia usar o listview (adicione o componente Microsoft Windows Common Controls 5.0) ou a listbox do vba (adicione o componente Microsoft Forms 2.0 Object Library).

copiei esse texto q já escrevi antes porque seria mais rapido do q procurar os nomes dos componentes pra postar aqui de novo.

[Danleonhart]

Kuroi,

Minha duvida é como pegar o que tá no FlexGrid, e não no ListBox :rolleyes:

Estou neste momento verificando o ListView para ver se atende as minhas necessidades...

O que estou desenvolvendo agora, necessita de um Grid...mas com edição...pois estou criando um "elaborador de tabela", e através dele, irei configurar as variáveis para lançar nas funções do ADOX ;)

Estou aberto a sugestões... :rolleyes:

[kuroi]

hum, mas tipo, você ta querendo pegar tudo q ta no flexgrid e por um embaxo do outro no listbox?? tipo, vai pegar o conteudo da primeira linha e por uma coluna embaixo da outra, e logo embaixo, o conteudo da segunda linha, um embaixo do outro e assim por diante??

eu entendi q você queria copiar o flexgrid dentro da listbox, ficando igualzinho, todas as linhas e colunas la tudo bunitinho. se for esse o caso, não da pra fazer com o listbox, como falei antes. use o listview ou o listbox do vba.

agora, se for o primeiro caso, é só você adicionar tb um while para as colunas:

Do While Ln < Grid1.Rows
    Do While Cl < Grid.Cols
        Lst1.AddItem Grid1.TextMatrix(Ln, Cl)
        Fil.WriteLine Lst1.List(Lst1.ListCount - 1) 'Assim já pega o ultimo
        Cl = Cl + 1
    Loop
    Ln = Ln + 1
    Cl = 1
Loop[/code]

Editado Março 7, 2011 por kuroi

[Danleonhart]

Valeu Kuroi !

Não necessita ser tudo arrumadinho não :D,

Só para listar mesmo o que foi inserido no FlexGrid.

Eu até acertei no loop das colunas, mas coloquei o valor do "Cl = 1" no lugar errado <_<.