Forums Últimos mensajes - Powered by IBM
 

Crear archivos a partir de los datos de una columna.

14/07/2006 - 11:54 por antoniopa | Informe spam
Hola, estoy tratando de crear una serie de archivos partiendo de los
datos contenidos en una columna. La columna contiene un nombre que es
una referencia y por cada referencia necesito un archivo con extensión
htm y otro con extensión jpg ambos vacios. He estado buscando la forma
de hacerlo y no la encuentro. A ver si algún alma caritativa me puede
ilustrar. Gracias
 

Leer las respuestas

#1 Miguel Zapico
15/07/2006 - 02:35 | Informe spam
Puedes utilizar una macro como esta:

Sub RecorrerColumna()
Dim miRango As Range

Set miRango = ActiveSheet.Range("A1") '<- Cambia el rango
i = 0

Do While miRango.Offset(i, 0).Value <> ""
CrearFichero miRango.Offset(i, 0).Value
i = i + 1
Loop
End Sub

Function CrearFichero(miNombre)
Dim fso, miJPG, miHTML
Set fso = CreateObject("Scripting.FileSystemObject")
'Cambia la ruta
Set miJPG = fso.CreateTextFile("c:\" & miNombre & ".jpg", True)
Set miHTML = fso.CreateTextFile("c:\" & miNombre & ".html", True)
miJPG.Close
miHTML.Close
End Function

Cambia el rango y la ruta de los archivos para tu caso.

Espero que te sirva,
Miguel.

"" wrote:

Hola, estoy tratando de crear una serie de archivos partiendo de los
datos contenidos en una columna. La columna contiene un nombre que es
una referencia y por cada referencia necesito un archivo con extensión
htm y otro con extensión jpg ambos vacios. He estado buscando la forma
de hacerlo y no la encuentro. A ver si algún alma caritativa me puede
ilustrar. Gracias


Preguntas similares