none
Abrir arquivo excel a capturar informação de determinada celula RRS feed

  • Pergunta

  •  

    Boa noite,  gostaria de saber se há uma maneira de um script abrir determinados arquivo no formato excel, ler o conteudo de uma celula e gravar esta informação capturada em outra planilha.

     

    Obrigado

    quinta-feira, 15 de janeiro de 2009 21:53

Respostas

  • Bom dia,

    Não testei, mas veja se dá certo.

    'Para pegar o valor da planilha
    Set objExcel = CreateObject("Excel.Application")
    Valor = objExcel.Cells(1, 1).Value



    'Para colocar o valor em outra planilha
    Set objExcel = CreateObject("Excel.Application")

    objExcel.Visible = True
    objExcel.Workbooks.add
    objExcel.Cells(1, 1).Value = "valor"

    Veja se a dica esclarece um pouco.
    Boa sorte brother!

    segunda-feira, 19 de janeiro de 2009 12:43
  • Veja este exemplo, pego um valor na planilha A e depois escrevo na planila B.

    .VBS

    Set objExcel = CreateObject("Excel.Application")
    
    Set objWorkbook = objExcel.Workbooks.Open("C:\PROFILES\Desktop\Planilha_A.xlsx")
    'Guarda informação na variavel strValor
    strValor = objExcel.cells(1,1).value
    objWorkbook.close
    
    'Gravar informação em outra planilha
    Set objWorkbook = objExcel.Workbooks.Open("C:\PROFILES\Desktop\Planilha_B.xlsx")
    objExcel.cells(1,1).value = strValor
    objWorkbook.save
    objWorkbook.close
    
    objExcel.Application.Quit


    Fábio de Paula Junior

    segunda-feira, 17 de dezembro de 2012 18:00
    Moderador

Todas as Respostas

  • Bom dia,

    Não testei, mas veja se dá certo.

    'Para pegar o valor da planilha
    Set objExcel = CreateObject("Excel.Application")
    Valor = objExcel.Cells(1, 1).Value



    'Para colocar o valor em outra planilha
    Set objExcel = CreateObject("Excel.Application")

    objExcel.Visible = True
    objExcel.Workbooks.add
    objExcel.Cells(1, 1).Value = "valor"

    Veja se a dica esclarece um pouco.
    Boa sorte brother!

    segunda-feira, 19 de janeiro de 2009 12:43
  • Amigão...

    Faltou um detalhe...
    Escolher o arquivo a ser aberto...
    Use este comando:

    Set objWorkbook = objExcel.Workbooks.Open("C:\Scripts\New_users.xls")
    segunda-feira, 19 de janeiro de 2009 13:31
  • Na verdade eu gostaria de pegar uma linha de uma outra planilha e poder utilizala dentro de outra planilha...

    ou seja..

    tenho 2 arquivos .xls e preciso fazer uma leitura de um para outra.. so sei fazer isso via sub_planilhas dentro do mesmo arquivo.

    vlw
    quinta-feira, 14 de janeiro de 2010 17:10
  • Veja este exemplo, pego um valor na planilha A e depois escrevo na planila B.

    .VBS

    Set objExcel = CreateObject("Excel.Application")
    
    Set objWorkbook = objExcel.Workbooks.Open("C:\PROFILES\Desktop\Planilha_A.xlsx")
    'Guarda informação na variavel strValor
    strValor = objExcel.cells(1,1).value
    objWorkbook.close
    
    'Gravar informação em outra planilha
    Set objWorkbook = objExcel.Workbooks.Open("C:\PROFILES\Desktop\Planilha_B.xlsx")
    objExcel.cells(1,1).value = strValor
    objWorkbook.save
    objWorkbook.close
    
    objExcel.Application.Quit


    Fábio de Paula Junior

    segunda-feira, 17 de dezembro de 2012 18:00
    Moderador