Necesito una macro que crea un archivo txt con el nombre de una celda. Ejemplo: A1(pepe) = pepe.txt y quede vacio el txt.
Necesito una macro que me crea un archivo txt con el nombre de una celda. Ejemplo: A1(pepe) resultado pepe.txt y quede vacío el txt.
1 respuesta
Respuesta de Andy Machin
1
Usa este código:
Sub CrearTXT()
On Error GoTo ErrorHnd
Dim SysObject 'objecto del sistema de archivos'
Dim FileObject 'objeto del archivo'
Dim FileName As String 'nombre'
FileName = Cells(1, 1).Text
Set SysObject = CreateObject("Scripting.FileSystemObject")
'en la siguiente linea especifica la ruta'
Set FileObject = SysObject.CreateTextFile("C:\" & FileName & ".txt", True)
'si quieres escribir algo dentro del txt, descomentas la siguiente línea'
'FileObject.WriteLine ("Esto es una línea de texto en el archivo txt")'
FileObject.Close
'si quieres dar un mensaje de que se creo el archivo'
MsgBox "El archivo se ha creado correctamente.", vbInformation, "Archivo creado"
Exit Sub
ErrorHnd:
MsgBox "Ha ocurrido un error: " & vbCr & "Codigo: " & Err.Number & vbCr & "Descripcion: " & Err.Description, vbCritical, "Error..."
End SubLee los comentarios en el código.
Recuerda especificar la ruta. El nombre es una variable llamada FileName que se carga con el texto que hay en A1 con cells(1, 1).text
Andy M
¡Gracias! muchas Gracias... modificando algunos datos me resulto excelente tu ayuda...
Te resulto excelente pero valoras la respuesta como "util" jajaja
