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.
¿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.
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