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
Lo probé pero solo me genera un solo archivo "A1" y los otros no.
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 SubCrea un archivo en el mismo directorio en que tienes tu excel.
S@lu2
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 SubMe comentas cómo te va con este.
S@lu2
¡Gracias! excelente aporte.
Sos un genio
Si te ha servido, no olvides valorar la respuesta.
Me alegra haber podido ayudarte.
S@lu2.