Crear varios archivos .html desde un archivo excel

Tengo un archivo excel con las siguientes columnas

A1 = nombre del archivo

B1 = primer línea del futuro .html

C1 = segunda línea del futuro .html

Y así consecutivamente.

Necesito algo que me cree un varios archivos ".html" con los nombres del archivo de "A1".html y dentro de cada .html esten cada celda una debajo de la otra:

B1

C1

D1

E1

F1

...

...

2 Respuestas

Respuesta
1

Lo probé pero solo me genera un solo archivo "A1" y los otros no.

Respuesta
1

H0la Ramiro,

Intenta con esto

Sub html()
    Open ThisWorkbook.Path & "\" & Range("A1").Value & ".html" For Output Lock Write As #1
    i = 2
    Do Until (Cells(1, i).Value = "")
      Print #1, Cells(1, i).Value
      i = i + 1
    Loop
    Close #1
End Sub

Crea un archivo en el mismo directorio en que tienes tu excel.

[email protected]

H0la Ramiro:

Suponiendo que cada archivo HTML se genera desde cada fila de la planilla excel, partiendo desde la fila 1, el código sería el siguiente

Sub html()
    'Obtener la última fila ocupada'
    ultFila = Range("A" & Rows.Count).End(xlUp).Row
    'Recorrer filas
    For j = 1 To ultFila
        Open ThisWorkbook.Path & "\" & Range("A" & j).Value & ".html" For Output Lock Write As #1
        i = 2
        Do Until (Cells(j, i).Value = "")
          Print #1, Cells(j, i).Value
          i = i + 1
        Loop
        Close #1
    Next
End Sub

Me comentas cómo te va con este.

[email protected]

¡Gracias! excelente aporte.

Sos un genio

Si te ha servido, no olvides valorar la respuesta.

Me alegra haber podido ayudarte.

[email protected]

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas