Excel Planilhas

[resopi]

Pessoal é o seguinte. estou com um problema. é o seguinte:

Existe 3 arquivos de Excel

Arquivo_01.xls

Arquivo_02.xls

Arquivo_03.xls

e um quarto arquivo chamado geral.xls

Perciso fazer um programa em VB que leia o Arquivo_01.xls e coloque ele dentro de uma Planilha do arquivo Geral.XLS, e esse procedimento para os outros 02 arquivos.

Algum tem alguma ideia de como fazer isso???

t+

[Graymalkin]

Quando for assim, crie uma macro no Excel e ele mesmo fará o código para você. Daí é só fazer uns ajustes e utilizá-lo no VB. O exemplo abaixo copia a planilha Plan1 de um arquivo para outro (de Teste1.xls para Geral.xls) e salva o segundo (Geral.xls):

    Set excel = CreateObject("Excel.Application")
    With excel
        .Workbooks.Open "Geral.xls"
        .Workbooks.Open "Teste1.xls"
        .Sheets("Plan1").Select
        .Sheets("Plan1").Copy .Workbooks("Geral.xls").Sheets(1)
        .ActiveWorkbook.Save
    End With
    excel.Visible = True

E, esse código é facilmente adaptável para trabalhar com vários arquivos (como você necessita), bastando usar a função Dir() para obter os nomes dos arquivos e um loop.

Abraços,

Graymalkin

[resopi]

não esotu conseguin tranformar esse codigo para pegar os outrso 2 arquivos tb.... pois não ocnheço muito sobre o componnete de Excel...

você pode me ajudar????

T+

[resopi]

consegui!!!!

vlw