Código fuente de la Lotería Mark Six
Después de copiar el formulario, solo se pueden conservar el texto y los datos del documento de estilo. Este formato es un archivo TXT y el sitio web proporciona una función de descarga.
Además, el sitio web también ofrece descargas de tablas EXCEL en formato XLS.
Si sólo necesitas datos de lotería, con lo anterior es suficiente.
2. Utilice VBA para actualizar dinámicamente las tablas de análisis.
Después de leer el código fuente de la página web que proporcionaste, copié esta oración sobre los datos:
ltdiv class = " kai _ tab " id = " fast _ issues _ content " gt ;
lttable class = " kuai _ tab fucai _ tab " id = " fastIssueList " gt
ltthead gt
lttr gt
lttd class="kuai_w1 " >Número de período
lttd class="kuai_w2 " >Número de lotería
tiempo de sorteo de lttd gt
combinación ganadora de lttd gt
p>lttd gt lt/TD gt;
lt/tr gt;
lt/thead gt;
lttbody gt
lt/tbody gt;
lt/table gt
lt/div gt
lt/div gt; > lt/div gt;
Y se verificaron los valores de los atributos de clase e ID, que se refieren a los valores que se llaman a la base de datos después del procesamiento de JavaScript, no a una colección de archivos de texto.
Por ejemplo, el archivo de estilo de Shuangseqiu es el siguiente: /getdata/ssq.txt.
Este talento es fácil de manejar, como se muestra a continuación:
Botón de subcomando privado 1_Click()
Alcance (" A3: AC3500 "). claro
k3dshijihao = "/getData/ssq.
TXT "
d3s = "WData3D_All "
Cell(2,1) = "Número de emisión de lotería"
Cell(2,2) = " Fecha de lotería "
Celda(2,3) = "Rojo"
Celda(2,4) = "Bola"
Celda(2, 5) = " Grande"
Celda (2, 6) = "Pequeña"
Celda (2, 7) = "Evitar"
Celda (2, 8) = "orden "
Celda (2, 9) = "azul"
Celda (2, 10) = "rojo"
p>Celdas(2, 11) = "Bola "
Celdas(2,12) = "Fuera"
Celdas(2,13) = "Bola "
Celda (2, 14) = "Evitar "
Celda (2, 15) = "Prefacio"
Celda (2, 16 ) = "Apuesta total"
Celda (2, 17) = "Cantidad del premio acumulado"
Celda (2, 18) = "Número de notas de primer nivel"
Celdas(2,19) = " Cantidad de nivel"
Celdas(2,20) = "Símbolo de segundo nivel"
Celdas(2,265,438 0) = "Cantidad de segundo nivel"
Celdas( 2, 22) = "Símbolo de tercer nivel"
Celdas(2, 23) = "Cantidad"
Celdas(2,24) = "Símbolo de cuarto orden"
Celdas(2,25) = "Cantidad"
Celdas(2,26) = "Símbolo de quinto orden" Método numérico"
Celdas(2,27 ) = "Cantidad"
Celdas(2,28) = "Símbolos de seis niveles"
Celdas( 2, 29) = "Cantidad"
cz = k3dshijihao: czmc = d3s
Utilice ActiveSheet.Add(Conexión: = _
"Texto; " ampcz, Destino: =Range("A3 "))
. Nombre = czmc
. Nombres de campo = Verdadero
. Número de fila = Falso
p>. .PreserveFormatting = Verdadero
. actualizar estilo = xlInsertDeleteCells
. guardarContraseña=Falso
. GuardarDatos = Verdadero
. AjustarAnchoColumna = Verdadero
. Período de actualización = 0
. TextFilePromptOnRefresh = Falso
. TextFilePlatform = xlWindows
. textfilestararrow = 1
. TextFileParseType = xlDelimitado
. TextFileTextQualifier = xlTextQualifierDoubleQuote
.
TextFileConsecutiveDelimiter = Verdadero
. TextFileTabDelimiter = Falso
. TextFileSemicolonDelimiter = Falso
. TextFileCommaDelimiter = Falso
. TextFileSpaceDelimiter = Verdadero
. Tipos de datos de columna de archivo de texto = Array(1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1 , 1, 1, 1
. textfiletrailinminusnumbers = True
Actualizar consulta en segundo plano: =False
Terminó con...
. range("A" amp(apply.count(range("a1:a3000"))). elige
end
conector final
Cambiar lo anterior Pegue el código en VBA, agregue un botón para especificarlo y pruebe el resultado. Si este es el resultado que desea, puede cambiar el /getdata/ssq.txt al que se hace referencia para descargarlo desde su sitio web y luego. haz las modificaciones pertinentes en VBA y ¡listo!