none
Ajuda com script excel e pastas RRS feed

  • Pergunta

  • Boa tarde,

    Preciso criar uma planilha no excel que importe automaticamente os logs de uma máquina, e que mova esse log já importado para uma outra pasta.

    É possivel fazer isso? alguem pode ajudar?

    Obrigado.

    sexta-feira, 18 de fevereiro de 2011 16:27

Respostas

  • Adriano,

    Vc pode fazer em VBScript um script que importa os logs e sai populando a planilha em excel, mas adianto que é trabalhoso.

    Segue exemplo :

    Set objExcel = CreateObject("Excel.Application")

    objExcel.Visible = True

    objExcel.Workbooks.Add

    objExcel.Cells(1, 1).Value = "Texto da celula"
    objExcel.Cells(1, 1).Font.ColorIndex = 51
    objExcel.Cells(1, 1).Font.Bold = TRUE
    objExcel.Cells(1, 1).Interior.ColorIndex = 50
    objExcel.Cells(1, 2).Interior.ColorIndex = 50
    objExcel.Cells(1, 3).Interior.ColorIndex = 50
    objExcel.Cells(1, 4).Interior.ColorIndex = 50
    objExcel.Cells(1, 5).Interior.ColorIndex = 50

    Em paralelo pode mandar abrir o arquivo de logs e fazer a leitura dele...

    CONST ForReading = 1
    strTextFile = "arquivodelog.log"
    Set objFSO1 = CreateObject("Scripting.FileSystemObject")
    strData = objFSO1.OpenTextFile(strTextFile,ForReading).ReadAll
    arrLines = Split(strData,vbCrLf) 

    Para leitura dos valores do arquivo, é preciso saber o que vc quer ler, qual formato, etc...

    Também é possível fazer isso como macro do excel no editor de scripts..

    Tem um editor de scripts chamado VBSEdit, ele é shareware, e vc pode usar free com mensagem de compra. Nele, as APIs e Rotinas são facilitadas para o VBScript, facilitando por exemplo, os objetos de excel e suas edições.  Lembrando que vc precisará popular célula a célula, mudando sua coordenada.. Um For / While resolve quanto a leitura e inserção dos dados no excel.

     

    Att.

     

    JR Wilde

    segunda-feira, 3 de outubro de 2011 14:29