MESCLAR WORD COM LISTVIIEW

 Tópico anterior Próximo tópico Novo tópico

MESCLAR WORD COM LISTVIIEW

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#500083 - 19/06/2022 09:52:55

ABREU
CONCEICAO DE MACABU
Cadast. em:Agosto/2013


Bom dia para todos.

Estou tentando mesclar um documento Word com os dados da uma ListView utilizando do seguinte código:

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim UsuarioAtual As String = Environment.UserName
        ObjWord = New Word.Application
        ObjWord.Documents.Open('C:\Documents and Settings\' & UsuarioAtual & '\Documents\Modelo.docx')
        Call SubstituiVariavel('@Titulo', TxtTitulo.Text)
        For Each item As ListViewItem In lstDados.Items
            Call SubstituiVariavel('@Coluna1', item.SubItems(1).Text)
            Call SubstituiVariavel('@Coluna2', item.SubItems(2).Text)
            Call SubstituiVariavel('@Coluna3', item.SubItems(3).Text)
        Next
        ObjWord.ActiveDocument.SaveAs('C:\Documents and Settings\' & UsuarioAtual & '\Documents\Lista.docx')
        MsgBox('Documento gerado com sucesso!')
        ObjWord = Nothing
    End Sub

Problema: O código mescla apenas o título e o primeiro registro da ListView.

Que posso fazer para passar todos os registros da ListView para o documento Word?

Agradeço qualquer ajuda!


Wenceslu


#500085 - 20/06/2022 10:27:00

ELMO01
BELO HORIZONTE
Cadast. em:Agosto/2004


Oi Abreu

Vê se este isso te ajuda http://www.linhadecodigo.com.br/artigo/727/vbnet--preenchendo-documentos-word-com-dados-de-um-dataset.aspx

Elmo

elmo

#500086 - 20/06/2022 11:51:58

ABREU
CONCEICAO DE MACABU
Cadast. em:Agosto/2013


Bom dia ELMO e muito grato por sua colaboração.
Todavia, o projeto do Macoratti executa a mesclagem de somente um registro do DataSet, no caso: o registro selecionado.
O meu objetivo é mesclar todos os registros.
Já fiz um teste passando os dados da ListView para um DataSet, mas não obtive êxito, pois sempre mescla somente o registro selecionado.
Em 2015, um tópico do KURTGU abordou esse tema aqui no Fórum, mas eu não consegui chegar aos finalmente.
De qualquer forma fico-lhe muito agradecido.

Wenceslu


 Tópico anterior Próximo tópico Novo tópico


Para responder este tópico o login é requerido
Se você já possui uma conta de usuário por favor faça seu login
Se você não possui uma conta de usuário use a opção Criar usuário