none
Problema macro vba excel office 2011 Macintosh RRS feed

  • Pergunta

  • Hey pessoal.

    Estou com um pequeno problema numa macro. Então é assim, quero abrir e descarregar de uma página da net o valor de uma taxa de cambio para o ir escrevendo por minuto numa folha. A descarga da página é bem feita tanto que consigo ver o código html da mesma mas a linha logo depois do Workbooks.Open dá subscript out of range. Alguem pode ajudar ? Obrigado! 

    Descarrega a página:
        Application.DisplayAlerts = False
        Application.Workbooks.Open ("http://www.forex.tradingcharts.com/")
        Workbooks("www.forex.tradingcharts.com").Worksheets("www.forex.tradingcharts").Copy After:=ThisWorkbook.Worksheets("Sheet1")
        Workbooks("www.forex.tradingcharts.com").Close SaveChanges:=False
        Application.DisplayAlerts = True
    
        'Regista o novo dado:
        Guarda_dado
    
        'Apaga a página provisória:
        Application.DisplayAlerts = False
        ThisWorkbook.Worksheets("www.forex.tradingcharts").Delete
        Application.DisplayAlerts = True



    • Editado _PJ_ quinta-feira, 11 de outubro de 2012 19:21
    quinta-feira, 11 de outubro de 2012 19:20

Respostas

  • Experimente o código abaixo:

    Sub Exemplo()
        Application.DisplayAlerts = False
        Application.Workbooks.Open "http://www.forex.tradingcharts.com/"
        Workbooks("www.forex.tradingcharts.com").Sheets("www.forex.tradingcharts").Copy After:=ThisWorkbook.Sheets("Sheet1")
        Workbooks("www.forex.tradingcharts.com").Close SaveChanges:=False
        Application.DisplayAlerts = True
    
        'Regista o novo dado:
        Guarda_dado
    
        'Apaga a página provisória:
        Application.DisplayAlerts = False
        ThisWorkbook.Sheets("www.forex.tradingcharts").Delete
        Application.DisplayAlerts = True
    End Sub


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    segunda-feira, 15 de outubro de 2012 21:34
    Moderador