ENVIAR DADOS PARA O EXCEL

USUARIO.EXCLUIDOS 10/01/2005 16:08:15
#59822
Olá amigos, eu tenho o seguinte código pra enviar os dados de uma tabela para o excel. Mas esse código cria um arquivo novo e eu preciso q os dados sejam enviados para um arquivo que já existe.
Alguém pode me ajudar?

Dim ExcelS As Excel.Application
Set ExcelS = New Excel.Application
ExcelS.Visible = True
ExcelS.Workbooks.Add
With ExcelS.ActiveSheet
    x = 1
    Do While RS.EOF = False
        x = x + 1
        DoEvents
        .Cells(x, 1) = RS!PRIMEIRO_NOME
        .Cells(x, 2) = RS!SOBRENOME
        .Cells(x, 3) = RS!CODIGO
        .Cells(x, 4) = RS!EMPRESA
	RS.MoveNext
    Loop
End With
Set ExcelS = Nothing
USUARIO.EXCLUIDOS 10/01/2005 16:18:38
#59828 Resposta escolhida
Dim ExcelS As Excel.Application
Set ExcelS = New Excel.Application
ExcelS.Visible = True
ExcelS.Workbooks.Open ("C:\NomeArquivo.xls")
With ExcelS.ActiveSheet
x = 1
Do While RS.EOF = False
x = x + 1
DoEvents
.Cells(x, 1) = RS!PRIMEIRO_NOME
.Cells(x, 2) = RS!SOBRENOME
.Cells(x, 3) = RS!CODIGO
.Cells(x, 4) = RS!EMPRESA
RS.MoveNext
Loop
End With
Set ExcelS = Nothing
USUARIO.EXCLUIDOS 10/01/2005 16:35:20
#59834
Obrigado Rafael!!!

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