Macro para exportar un dato a archivo de Texto

16/06/2006 - 15:15 por groman83 | Informe spam
Tengo un libro llamado Facturacion, en dicho libro hay una hoja llamada
'FormatoFactura' y otra llamada 'cliente'. En la celda A:3 de la hoja
'FormatoFactura' guardo el número de facturas que se vayan realizando, y
através de código en una macro voy incrementando el valor de dicha celda:
1,2,3,4,5, etc, etc.
Tengo dos botones:
El primer botón es para crear un nuevo cliente e invoca un formulario para
ingresar la información pertinente a los clientes y que es almacenada en
la hoja con el mismo nombre.
El segundo botón invoca también un formulario para crear nueva factura en
en cual el usuario selecciona cualquier cliente almacenado en la hoja
respectiva para ello, al cual le va a facturar y el resto de la
información del cliente se autocompleta y es llevado a la hoja
FormatoFactura", por último imprime la factura se incrementa el valor en
la celda A:1 que arriba mencioné y listo. De esta manera los usuarios no
tiene que manipular las hojas para nada, sino que todo lo hacen a través
de los formularios.
Esta pequeña aplicación se la envío en modo demo a varias empresas para
que la prueben. Quiero enviarles el archivo para que puedan solo imprimir
5 facturas de prueba y listo, es suficiente para saber si les sirve o no,
si les gusta o no. Por este motivo pienso exportar el consecutivo que se
guarda en la celda A:3 hacia un archivo de texto en la ruta:
%windir%\system\ctrlfl.txt, con el propósito de que cuando el cliente abra
el libro, o presione alguno de los dos botones mencionados yo pueda leer
el número que tiene el archivo de texto (el cual indica el número de
facturas realizadas) y en caso de que ya haya impreso las cinco facturas
de prueba permitidas no lo deje abrirlo o ejecutar alguno de los procesos.
De lo anterior surgen entonces ya dos dudas puntuales:
1) Como exportar el valor de la celda A:3 hacia el archivo de texto
ctrlfl.txt por medio de una macro?
2) Cuando se abra el libro o se presione algún botón de los arriba
mencionados, como puedo leer por medio de una macro el contenido del
archivo de texto en cuestión?

Mil Gracias.
 

Leer las respuestas

#1 David
17/06/2006 - 04:03 | Informe spam
Mejor te refiero a los lugares donde puedes encontrar documentación para
resolver este asunto. Búscate en la ayuda de VBA el comando Open (Open
Statement), Input #, Print # y Write #. Allí encontrarás una información
mucho más amplia de la que te pueda dar aquí y ejemplos para elaborar una
solución "a tu medida".

El comando Open te permite abrir un archivo de texto para efectuar
operaciones de entrada o salida, y te da algunos ejemplos de cómo usarlo.
Esto lo logras mediante un "modo".

Si utilizas el modo Input, podrás leer el contenido de tu archivo utilizando
Input # o Line Input #.

Si utilizas el modo Output, podrás volver a crear el archivo y escribir
datos en él utilizando Print # o Write #.




"Giovanny Roman" escribió:

Tengo un libro llamado Facturacion, en dicho libro hay una hoja llamada
'FormatoFactura' y otra llamada 'cliente'. En la celda A:3 de la hoja
'FormatoFactura' guardo el número de facturas que se vayan realizando, y
através de código en una macro voy incrementando el valor de dicha celda:
1,2,3,4,5, etc, etc.
Tengo dos botones:
El primer botón es para crear un nuevo cliente e invoca un formulario para
ingresar la información pertinente a los clientes y que es almacenada en
la hoja con el mismo nombre.
El segundo botón invoca también un formulario para crear nueva factura en
en cual el usuario selecciona cualquier cliente almacenado en la hoja
respectiva para ello, al cual le va a facturar y el resto de la
información del cliente se autocompleta y es llevado a la hoja
FormatoFactura", por último imprime la factura se incrementa el valor en
la celda A:1 que arriba mencioné y listo. De esta manera los usuarios no
tiene que manipular las hojas para nada, sino que todo lo hacen a través
de los formularios.
Esta pequeña aplicación se la envío en modo demo a varias empresas para
que la prueben. Quiero enviarles el archivo para que puedan solo imprimir
5 facturas de prueba y listo, es suficiente para saber si les sirve o no,
si les gusta o no. Por este motivo pienso exportar el consecutivo que se
guarda en la celda A:3 hacia un archivo de texto en la ruta:
%windir%\system\ctrlfl.txt, con el propósito de que cuando el cliente abra
el libro, o presione alguno de los dos botones mencionados yo pueda leer
el número que tiene el archivo de texto (el cual indica el número de
facturas realizadas) y en caso de que ya haya impreso las cinco facturas
de prueba permitidas no lo deje abrirlo o ejecutar alguno de los procesos.
De lo anterior surgen entonces ya dos dudas puntuales:
1) Como exportar el valor de la celda A:3 hacia el archivo de texto
ctrlfl.txt por medio de una macro?
2) Cuando se abra el libro o se presione algún botón de los arriba
mencionados, como puedo leer por medio de una macro el contenido del
archivo de texto en cuestión?

Mil Gracias.




Preguntas similares