none
Salvar uma planilha já existente RRS feed

  • Pergunta

  • Bom dia para todos ....

    Seguindo a Saga de aprender scripts, estou com um problema com um script que estou montando. Gostaria de adicionar dados a uma planilha e salvar com o mesmo nome, mas o sistema sempre informa que a planilha já existe.  Como pretendo executar como tarefa agendada, acho que vai cancelar o script.

    Aguem sabe alguma maneira ? O código da SUB que atualiza a planilha segue em anexo.

    Sub SUB_Atualiza_Planilha(V_Date,V_VolNam, V_VolSiz, V_VolFde, V_VolPerFde)

        Wscript.Echo V_date & vbtab & V_VolNam & vbtab & V_VolSiz & vbtab & V_VolFde & vbtab & V_VolPerFde

        Const xlDown = -4121

        Set objExcel = CreateObject("Excel.Application")
        Set objWorkbook = objExcel.Workbooks.Open(objFSO.GetAbsolutePathName("") & "\" & C_Excell)
        objExcel.Visible = True
        Set objRange = objExcel.Range("A1")
        objRange.End(xlDown).Activate
        Set objWorksheet = objWorkbook.Worksheets(1)
        intNewRow = objExcel.ActiveCell.Row + 1
        strNewCell = "A" &  intNewRow
        objExcel.Range(strNewCell).Activate
        objWorksheet.Cells(IntNewRow,1) = V_Date
        objWorksheet.Cells(IntNewRow,2) = V_VolNam
        objWorksheet.Cells(IntNewRow,3) = V_VolSiz
        objWorksheet.Cells(IntNewRow,4) = V_VolFde
        objWorksheet.Cells(IntNewRow,5) = V_VolPerFde
        objExcel.Save    
        ObjExcel.Quit

     End Sub

     

    Obrigado

    quarta-feira, 29 de novembro de 2006 10:16

Respostas