Cómo utilizar Excel para obtener automáticamente datos del sitio web de Shuangseqiu y actualizarlos automáticamente
Puedes usar Application.OnTime para ejecutar macros en un bucle.
El siguiente VBA obtiene datos de Internet y los actualiza en esta hoja de trabajo cada minuto.
Para el sitio web que desea obtener, simplemente copie la URL y el nombre del gráfico, y luego reemplace el código.
Sub?DataColl()
Application.OnTime?Now?+?TimeValue("00:01:00"),?" DataColl"
Con ?ActiveSheet.QueryTables.Add(Conexión:="URL;", ? _
Destino:=Rango("$A$1"))
.Nombre?=?" ip .zdaye"
.FieldNames?=?True
.RowNumbers?=?False
.FillAdjacentFormulas?=?False
. PreserveFormatting?=?True
.RefreshOnFileOpen?=?False
.BackgroundQuery?=?True
.RefreshStyle?=?xlInsertDeleteCells p>
.SavePassword?=?False
.SaveData?=?True
.AdjustColumnWidth?=?True
.RefreshPeriod?=?0
.WebSelectionType?=?xlEntirePage
.WebFormatting?=?xlWebFormattingNone
.WebPreFormatedTextToColumns?=?True
.WebConsecutiveDelimitersAsOne?= ?True
.WebSingleBlockTextImport?=?False
.WebDisableDateRecognition?=?False
.WebDisableRedirections?=?False
.Refresh ?BackgroundQuery:=?False
¿Fin?