[RESUELTO] Agregar mas registros en .txt

Discute sobre la aplicación de hojas de cálculo

[RESUELTO] Agregar mas registros en .txt

Notapor Terminaitor » Dom Nov 24, 2019 7:19 pm

Buenas tarde,

Ante todo les quiero compartir que gracias a la ayuda de este Excelente foro e logrado un pequeño programa para la empresa que trabajo y eso genero que los formulario no se realizan mas en papel si no desde la Calc Open Office, a este plantilla de calc también le agregue una macro que solicita usuario y contraseña de los trabajadores que están autorizados a crear los formulario, (aclaro que no se mucho de programación todo lo implemente con lo poco que se de informática y leer mucho... pero mucho!!). :crazy: :crazy:
Todo funciona mas que excelente pero quiero agregar algo nuevo, eso seria que cuando abren el archivo Calc y le solicita Usuario y contraseña esos datos quiero que queden en una archivo .TXT con hora y fecha de que usuario entro por ultima vez, logre crear el archivo txt con los datos de quiero pero lo que no puede hacer es que se genere varios datos solo en el .txt registra el ultimo usuario que uso el archivo, la idea es que me quede un registro.

Comparto el código, hasta el momento:

Código: Seleccionar todo   Expandir vistaContraer vista
rem declaro variables para crear la escritura en txt
Dim Intru As Object
Dim Archivo As Object

rem utilizo el metodo que escribe el archivo
Intru = CreateObject("Scripting.FileSystemObject")
rem crear archivo y lo graba en la dirreccion que queremos
Archivo = Intru.CreateTextFile("C:\Users\Ruta\pruebas nuevas\Registro.txt", True)
rem escribo dentro del archivo los datos de las variables que quiero obtener y agrego un dato mas que es la fecha.
Archivo.WriteLine( sUser & " / " &  sDato & " - " & Now());   
Archivo.Close()

Desde ya mas que agradecido en todo!!
Saludos
Última edición por PepeOooSevilla el Mié Dic 04, 2019 10:30 pm, editado 3 veces en total
Razón: Etiqueta "code". Marcar RESUELTO
Open Office 4.1.3 - Windows 7
Avatar de Usuario
Terminaitor
 
Mensajes: 11
Registrado: Vie Jul 20, 2018 8:37 pm

Re: Agregar mas registros en .txt

Notapor PepeOooSevilla » Lun Nov 25, 2019 9:31 am

Hola.
Prueba cambiando
Código: Seleccionar todo   Expandir vistaContraer vista
Archivo = Intru.CreateTextFile("C:\Users\Ruta\pruebas nuevas\Registro.txt", True)

por
Código: Seleccionar todo   Expandir vistaContraer vista
Archivo = Intru.OpenTextFile("C:\Users\Ruta\pruebas nuevas\Registro.txt", 8, True)
Rem El valor 8 es la constante para añadir (ForAppending)

Saludos cordiales.
LibreOffice 6.2.8 (64 bits, Still, Empresarial o Estable) en Windows 10. Java 9.0.4 (64 bits)
Por favor, utiliza el Foro para tus consultas, no los mensajes privados
Avatar de Usuario
PepeOooSevilla
 
Mensajes: 1147
Registrado: Sab Abr 04, 2009 6:10 pm
Ubicación: Sevilla (España)

Re: Agregar mas registros en .txt

Notapor Terminaitor » Mar Dic 03, 2019 7:00 pm

Estimado Pepe!!!
Mas que agradecido por la colaboración ya lo probé y quedo funcionando!!! :bravo: :bravo: :bravo:
Mil gracias!!!
Desde Argentina
Doy como cerrado el tema!!
Open Office 4.1.3 - Windows 7
Avatar de Usuario
Terminaitor
 
Mensajes: 11
Registrado: Vie Jul 20, 2018 8:37 pm


Volver a Calc

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 4 invitados