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

.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?