La cuestión es que estoy creando una base de datos en excel tomando datos de la "MLB" para que luego todo quede organizado de manera automatizada. Estoy presentando el siguiente problema con una de las macros del libro.
Al ejecutar la macros y extraer los datos de la web se copian agrupados en una sola celda.
Estoy necesitado que estos datos queden organizados de la siguiente manera:
Este es el código que estoy utilizando:
Sub Actualizar_lineups1()
'(declarar o reservar memoria para) nuestras variables.
Dim objIE As InternetExplorer 'variable de objeto especial que representa el IE
Dim Ele As HTMLLinkElement 'variable de objeto especial para un <a> (enlace)
Dim y As Integer ' variable entera que usaremos como contador
Dim result As String 'variable de cadena que mantendrá nuestro enlace de resultado
'iniciando una nueva instancia de Internet Explorer y asignándola a objIE
Set objIE = New InternetExplorer
'hacer visible el navegador IE (Falso permitiría que IE se ejecute en segundo plano)
objIE.Visible = True
'navegar por IE a esta página web
objIE.navigate "https://www.mlb.com/starting-lineups/2019-05-02"
'Espera aquí unos segundos mientras el navegador está ocupado.
Do While objIE.Busy = True Or objIE.readyState <> 4: DoEvents: Loop
'El primer resultado de búsqueda irá en la fila 1.
y = 1
For Each Ele In objIE.document.getElementsByClassName("starting-lineups__matchup ")
'...obtener el texto dentro del elemento e imprimirlo en la hoja en la columna A
Sheets("Sheet1").Range("A" & y).Value = Ele.innerText
Debug.Print Ele.innerText
'incrementa nuestro contador de filas, por lo que el siguiente resultado va abajo
y = y + 1
'Repite varias veces el # de ele que tenemos en la colección.
Next
'cierra el navegador
objIE.Quit
'salir de nuestra subrutina
End Sub
De anticipado muchísimas gracias