MESCLAR WORD COM LISTVIIEW
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!
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!
Oi Abreu
Ve se este isso te ajuda http://www.linhadecodigo.com.br/artigo/727/vbnet--preenchendo-documentos-word-com-dados-de-um-dataset.aspx
Elmo
Ve se este isso te ajuda http://www.linhadecodigo.com.br/artigo/727/vbnet--preenchendo-documentos-word-com-dados-de-um-dataset.aspx
Elmo
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 exito, 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.
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 exito, 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.
Faça seu login para responder