Excel - Crear archivo TXT

 
Vista:
sin imagen de perfil

Crear archivo TXT

Publicado por Aver (5 intervenciones) el 25/07/2014 19:30:27
Hola a todos.
Con el siguiente codigo, abro un archivo de texto (creado previamente) en el disco C:

Workbooks.OpenText Filename:="C:\citi.txt", _
Origin:=xlMSDOS, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array( _
0, 1), TrailingMinusNumbers:=True

Pregunta:
Si el archivo no existe (citi.txt), como hago para crearlo ?

Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil

Crear archivo TXT

Publicado por Avergaston (5 intervenciones) el 28/07/2014 14:53:46
Gracias por responder.
Lei el enlace que me enviaste e hice un "injerto" con el codigo que tenia, quedando de la siguiente manera:
(cuando no existe, lo crea perfectamente).
--------------------------------------------------------------------------------------------------------------------------
If Dir("c:\citi.txt") = "" Then
MsgBox "El archivo txt no existe, sera creado", 64, "Prueba"

Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("C:\citi.txt", True)
End If

' Abro el archivo de texto
Workbooks.OpenText Filename:="C:\citi.txt", _
Origin:=xlMSDOS, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array( _
0, 1), TrailingMinusNumbers:=True
-----------------------------------------------------------------------------------------------------------------------
El problema se produce cuando lo abro, lo hace como "solo lectura" y esto me trae trabas al momento de grabarlo y cerrarlo.

Gracias y saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar