Inserir dados no Excel

[hhenry 0]

Pessoal,

 

Pesquisei antes de postar, mas não achei nada que me ajudasse.

 

Tenho uma aplicação que a medida que vão sendo cadastrados processos cria diretório e copia alguns arquivos para esse diretório.

 

Um dos arquivos é um arquivo Excel. Algumas planilhas nesse arquivo seriam preenchidos com dados constantes em alguma tabelas do Excel.

 

Como fazer isso via código?

[hhenry 0]

Bom consegui a solução na net. Ai vai pra quem um dia tiver a mesma dúvida:

 

Sub GetExcel()

Dim xlApp As Object

Dim xlBook As Object

Dim xlSheet As Object

 

On Error Resume Next

 

strNomeArq = "Teste.xls"

Set xlApp = New Excel.Application

Set xlBook = xlApp.Workbooks.Open("CAMINHO_DO_ARQUIVO\ARQUIVO.XLS", , False)

 

xlApp.Application.Visible = False

xlApp.Parent.Windows(1).Visible = True

xlApp.DisplayAlerts = False

xlApp.Interactive = False

xlApp.ScreenUpdating = False

 

Set xlSheet = xlBook.ActiveSheet

xlSheet.Cells(1, 1) = "USAR ISSO PRA ESCREVER"

 

 

'Save Changes

xlBook.SaveAs Filename:="CAMINHO_DO_ARQUIVO\ARQUIVO.XLS"

 

'xlBook.Close

xlApp.DisplayAlerts = True

xlApp.Interactive = True

xlApp.ScreenUpdating = True

Set xlSheet = Nothing

Set xlBook = Nothing

Set xlApp = Nothing

 

End Sub