none
Problema macro vba excel office 2011 Macintosh RRS feed

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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