EXPORTAR DADOS PARA O EXCEL

USUARIO.EXCLUIDOS 02/05/2005 10:57:24
#81270
Bom dia a todos,

Tenho uma dúvida, fiz um programa que exporta dados do BD acess para o EXCEL , utilizando o programa criado noVB.

Utilizei as seguintes linhas.

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

A duvida é !

Como faço para inserir novas planilhas na mesma PASTA do EXCEL ?

Se alguem souber, por favor me ajude !

Agredeço desde já !
LCSD 02/05/2005 11:11:29
#81274 Resposta escolhida
No seu caso, seria assim:


Plan.Workbooks.add


Assim VC adiciona uma nova planilha para o seu arquivo em Excel.
USUARIO.EXCLUIDOS 03/05/2005 11:02:03
#81409
Muito obrigado pela dica !

A linha adiciona outra PASTA do EXCEL e não uma planilha !!!!

Mas a partir da sua dica consegui resolver o problema....

A linha ficou Plan.Worksheets.add

Muito OBRIGADO MESMO !!!
Tópico encerrado , respostas não são mais permitidas
Voltar