Copiar datos de una hoja html a celdas de excel

Podrías enviarme un par de archivos HTML para revisarlos y ver exactamente en dónde está la información.

También envíame tu archivo de excel y me dices en cuáles columnas quieres cada dato del HTML.

Lo del nombre es un poco delicado, ya que hay personas que tienen 2 nombres o apellidos compuestos, entonces no se sabría en dónde empieza el nombre y dónde terminan los apellidos, pero si tú me dices que corte la última palabra del cliente y esa la pase al principio, no hay problema.

Ya he enviado el corro.

Gracias.

Te envío la macro para leer los datos del archivo HTML.

Sub TomarDatosDeHtml()
'Por.Dante Amor
    Application.ScreenUpdating = False
    Set l1 = ThisWorkbook
    Set h1 = l1.ActiveSheet
    u = h1.Range("B" & Rows.Count).End(xlUp).Row + 1
    With Application.FileDialog(msoFileDialogFilePicker)
        .Title = "Seleccione archivo de excel"
        .Filters.Clear
        .Filters.Add "Todos los archivos", "*.*"
        .Filters.Add "HTML", "*.html"
        .FilterIndex = 2
        .AllowMultiSelect = False
        .InitialFileName = ThisWorkbook.Path
        '.Show
        If .Show Then
            Set l2 = Workbooks.Open(.SelectedItems.Item(1))
            Set h2 = l2.ActiveSheet
            Set b = h2.Cells.Find("Nº Servicio", LookAt:=xlPart)
            If Not b Is Nothing Then
                ser = Mid(b.Value, 15)
                num = Mid(ser, 7)
                If Right(num, 1) = "C" Then col = "D" Else col = "C"
                h1.Cells(u, "B") = ser                                  'num registro
                h1.Cells(u, col) = num                                  'ref medicion
            End If
            h1.Cells(u, "F") = h2.Range("A2")                           'Tienda
            h1.Cells(u, "G") = Right(h2.Range("B1"), 10)                'Fecha
            Set b = h2.Cells.Find("Cliente :", LookAt:=xlPart)
            If Not b Is Nothing Then
                cli = Mid(b.Value, 10)
                h1.Cells(u, "H") = Mid(b.Value, 10)                     'cliente
                h1.Cells(u, "I") = Mid(h2.Cells(b.Row + 3, "A"), 7)     'tel fijo
                h1.Cells(u, "J") = h2.Cells(b.Row + 4, "A")             'tel mov
                h1.Cells(u, "K") = Mid(h2.Cells(b.Row + 1, "A"), 13)    'dir
                h1.Cells(u, "L") = Mid(h2.Cells(b.Row + 2, "A"), 10, 5) 'cp
                h1.Cells(u, "M") = Mid(h2.Cells(b.Row + 2, "A"), 16)    'pob
            End If
            Application.DisplayAlerts = False
            l2.Close
            Application.DisplayAlerts = True
        End If
    End With
End Sub

Cuando ejecutas la macro, te pide que selecciones el archivo html. La macro abre el archivo, toma los datos del cliente y los pone en sus respectivas celdas.

Saludos. Dante Amor

No olvides valorar la respuesta.

Buenas tardes,

He observado un par de cosas.

Cuando me copia los teléfonos, me los copia en las columnas pero cambiadas. El móvil en el fijo y el fijo en el móvil. No sé si es porque a veces solo viene un teléfono y entonces se vuelve un poco loco.

Y la segunda cosa... cuando no hay fijo... me pone líneas en la columna de móvil, y el móvil lo pega en la de fijo. ¿Se podría arreglar para que cada cosa vaya en su sitio? ¿Es necesario que ponga las líneas?

Muchas gracias.

La macro está preparada para que siempre haya teléfono fijo y siempre haya teléfono móvil, tal y como lo enviaste en el ejemplo, si alguno de los dos datos no viene o ningún dato no viene, tendrías que enviar los ejemplos, ya que supongo que cuando un dato no viene los datos del formato de HTML se mueven, no es que la macro se vuelva un poco loca, lo que se viene mal es el HTML, si el HTML fuera homogéneo con o sin datos no habría problemas.

Buenas tardes, 

Tengo otro pequeño problemita. Resulta que la columna de la fecha me la pone mal. Me cambia el orden de la fecha. En vez de DD/MM/AA (dia/mes/año), me pone MM/DD/AA.

En el HTML viene bien, DD/MM/AA

Se puede corregir? Muchas gracias.