Macro - Creacion de TXT desde excel con nombre de una celda

3 envíos / 0 nuevos
Último envío
rberland
Imagen de rberland
Offline
última acción: Hace 9 años 13 horas
alta: 05/05/2014 - 14:34
Puntos: 152
Macro - Creacion de TXT desde excel con nombre de una celda

Hola,

 

  estoy tratando de crear una macro que me guarde un txt con el nombre de una celda pero siempre me arroja error de ejecucion :

 

Se ha producido el error '52' en tiempo de ejecucion:

Nombre o Numero de archivo Incorrecto

 

en el siguiente macro

Sub genera2()

Dim Archivo As String, dato As String

Archivo = "C:\Pruebas\" & Range("H1").Value & ".txt"

Open Archivo For Append As #1 (aqui marca el error)

Print #1, Range("A1").Value & Range("B1").Value & Range("C1").Value

Close #1

End Sub

 
desde ya muchas gracias por su ayuda.
pacomegia
Imagen de pacomegia
Offline
última acción: Hace 17 horas 26 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 11175
Re: Macro - Creacion de TXT desde excel con nombre de una celda

¿existe la carpeta C:\Pruebas?

¿qué tienes en la celda H1? es decir, ¿cómo quieres llamar al tu archivo, qué valor tiene la variable archivo?

¿tienes otro archivo #1 abierto por otro lado?

no puede haber varios archivos con el mismo número (utiliza FreeFile para obtener el siguiente número de archivo disponible)

 

------
Ya sé Excel, pero necesito más.

Cron
Imagen de Cron
Offline
última acción: Hace 8 meses 1 día
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntos
alta: 23/06/2010 - 12:30
Puntos: 12735
Re: Macro - Creacion de TXT desde excel con nombre de una celda

Cuidado con las comillas de "H1"

 

Prueba con comillas dobles, para que te las acepte.

Personalmente sustituiría 

Range("H1")

por 

Cells(1,8)

 

Intenta esto:

 

Archivo = "C:\Pruebas\" & Cells(1,8).Value & ".txt"


Saludos