FileToWrite.WriteBlankLines Error se requiere objeto
Publicado por Roland (11 intervenciones) el 05/12/2023 10:39:42
Buenas,
Quiero añadir unas lineas en blanco a un texto de un archivo txt, desde access, con vba.
Uso el siguiente código
Pero cuando llega la parte de FileToWrite.WriteBlankLines (2), que es donde debe meter las dos líneas, me salta un error '424' 'Se requiere un objeto'.
Le llevo unas cuantas horas a esto y sigo sin entender por qué sucede. El código es muy parecido a un ejemplo que encontré en otra página y os aseguro que lo he puesto igual.
¿Alguien puede arrojarme algo de luz?
Gracias!
Quiero añadir unas lineas en blanco a un texto de un archivo txt, desde access, con vba.
Uso el siguiente código
1
2
3
4
5
6
7
8
Do While (MyHost.Fields(cnsMasDatos).Text <> "NO HAY MAS DATOS")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set FileToCreate = FSO.OpenTextFile("C:\Users\archivo.txt", ForAppending)
FileToCreate.Write "Prueba texto antes de lineas en blanco"
FileToWrite.WriteBlankLines (2)
FileToCreate.Write "Prueba texto después de lineas en blanco"
FileToCreate.CloseLoop
Pero cuando llega la parte de FileToWrite.WriteBlankLines (2), que es donde debe meter las dos líneas, me salta un error '424' 'Se requiere un objeto'.
Le llevo unas cuantas horas a esto y sigo sin entender por qué sucede. El código es muy parecido a un ejemplo que encontré en otra página y os aseguro que lo he puesto igual.
¿Alguien puede arrojarme algo de luz?
Gracias!
Valora esta pregunta
0