RELATORIOS EXCEL

USUARIO.EXCLUIDOS 12/01/2005 12:16:59
#60240
Alguém poderia mandar um exemplo detalhado de como se usa esse código

Private Sub Excel()
Dim Plan As Object 'Aplicação Excel

'INSTANCIA OBJETO EXCEL NA MEMÓ“RIA
'**********************************************************************
Set Plan = CreateObject("excel.application")

'CHAMA EXCEL / IMPRIME
'**********************************************************************
Plan.Workbooks.Open App.Path & "\Teste.xlt"
Plan.Visible = True
Plan.UserControl = False

'PREENCHE CéLULAS DESEJADAS
'**********************************************************************
With Plan
.Range("A1").Value = txtCampo1.Text
.Range("A2").Value = txtCampo2.Text
.Range("A3").Value = txtCampo3.Text
End With

'FECHA REFERÃÅ NCIA AOS OBJETOS
'**********************************************************************
Set Plan = Nothing

End Sub
USUARIO.EXCLUIDOS 12/01/2005 13:05:03
#60255 Resposta escolhida
1º - Referencie no VB, "Microsoft Excel xx Object Library.
2º - Crie um modelo no excel (como no crystal) e salve o tipo da planilha como modelo.
3º - Crie um form com quantos campos desejar e coloque esse código no clique de um botão.

Qualquer dúvida dá um toque.

Valew...
Tópico encerrado , respostas não são mais permitidas
Voltar