Question

我尝试导入数据对于此处的大量日期：https://demanda.ree.es/movil/peninsula/demanda/tablas/2014-11-03/2

一旦/如果可能我想自动化它，以便检索给定日期集的数据。说，整个2013年。

我无法在网页来源中找到任何可以提示从中检索数据的提示。我尝试使用以下方法导入数据：

Data / From Web：获取javascript错误

打开/其他网站位置：只需检索一个填充了灰色单元格但没有数据的工作表。

感谢您的帮助！

Answer 1

使用以下链接：

https://demanda.ree.es/WSvisionaMovilesPeninsulaRest/resources/maxMinPeninsula?callback=angular.callbacks._0&curva=DEMANDA&fecha=2013-01-01

https://demanda.ree.es/WSvisionaMovilesPeninsulaRest/resources/prevProgPeninsula?callback=angular.callbacks._1&curva=DEMANDA&fecha=2013-01-01

https://demanda.ree.es/WSvisionaMovilesPeninsulaRest/resources/demandaGeneracionPeninsula?callback=angular.callbacks._2&curva=DEMANDA&fecha=2013-01-01

https://demanda.ree.es/WSvisionaMovilesPeninsulaRest/resources/coeficientesCO2?callback=angular.callbacks._3&curva=DEMANDA&fecha=2013-01-01

使用＆＃34; fecha＆＃34;参数设置日期。似乎不可能一次获得整年，所以你应该重复调用该链接并改变＆＃34; fecha＆＃34;每个月至2013-01-02,2013-01-03等。

Answer 2

Muchas gracias @ miguel-febres！它现在或多或少*。你在哪里找到的链接？：）

它会运行大约10-20个循环并返回一个地址错误，然后我再次启动宏并且它可以工作......很奇怪。

Sub Macro1（） Application.DisplayAlerts = False

Do
    Workbooks.OpenText Filename:="https://demanda.ree.es/WSvisionaMovilesPeninsulaRest/resources/demandaGeneracionPeninsula?callback=angular.callbacks._2&curva=DEMANDA&fecha=" & ActiveCell.Value & ""
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    Windows("Spain").Activate
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=True

    'close table
    Windows("demandaGeneracionPeninsula").Activate
    ActiveWindow.Close
    ActiveCell.Offset(-1, 1).Activate
Loop Until ActiveCell.Value = ""

End Sub

现在我只需要解析结果.. :)

将数据从javascript表（？）导入excel

2 个答案: