Guardar mediante macro con un texto guardado en una celda en excel

22/06/2006 - 04:11 por susanpgr | Informe spam

Hola a todos
Espero me puedan ayudar, esto lo necesito con algo de urgencia, y no se
como hacerlo.
Lo que necesito es un codigo en VBA para guardar un archivo desde
cualquier maquina en un determinado directorio compartido, pero que se
guarde con un dato que esta almacenado en una celda.
Lo que hago es registrar ese dato en una celda mediante un formulario
en excel, y quisiera saber como es el codigo en VBA de una macro que
guarde ese archivo.
Ejm:
En A2 guardo el dato: C2005/0040
y quiero que el archivo se guarde en C:\directorio\C2005-0040

Otra pregunta, al ingresar texto a un textbox de un formulario, que
debo colocar en el codigo para que al momento de ingresar se vea todo
el texto (en el formulario) que se esta escribiendo y no solo se vea
como una linea, sino que se vean las filas que sean necesarias de
acuerdo al tamaño del texto.

Gracias por su ayuda.
Susan

Siga el debate

3 respuestas

Tengo una respuesta

Preguntas similare

eliminar mediante macro el mensaje guardar

Leer las respuestas

#1 KL

22/06/2006 - 10:57 | Informe spam

Hola Susan,

... un codigo en VBA para guardar un archivo desde
cualquier maquina en un determinado directorio compartido, pero que se
guarde con un dato que esta almacenado en una celda.
En A2 guardo el dato: C2005/0040
y quiero que el archivo se guarde en C:\directorio\C2005-0040

A ver, suponiendo que el archivo a guardar es el mismo que contiene la celda con el nombre(codigo), prueba algo asi:

With ThisWorkbook
.SaveAs "c:\directorio\" & Replace(.Sheets("Hoja1").[A2],"/","-")
End With

...que
debo colocar en el codigo para que al momento de ingresar se vea todo
el texto (en el formulario) que se esta escribiendo y no solo se vea
como una linea, sino que se vean las filas que sean necesarias de
acuerdo al tamaño del texto.

No tienes por que hacerlo desde el codigo sino podrias modificar la propiedad MultiLine del TextBox en la etapa de diseno (en el Editor VBA). Si insistes en hacerlo por codigo, prueba la siguiente instruccion:

TextBox1.MultiLine=True

Saludos,
KL

Responder a este mensaje

#2 susanpgr

23/06/2006 - 04:00 | Informe spam

hola KL , muchas gracias, me funciona bien, aunq ahora tengo un
problema, ya no podre acceder a un disco compartido para guardarlos,
entonces ahora lo que tendria que hacer es que cada usuario me lo pueda
enviar desde su correo en outlook, a mi direccion.
Te agradeceria si puedes ayudarme, el codigo en VBA que me permita,por
ejm:

- Una macro que guarde en el escritorio, que lo haria segun lo
indicado, asi:

With ThisWorkbook
.SaveAs "c:\windows\escritorio\" & Replace(.Sheets("Hoja1").[A2],
"/", "-")
End With

y que ademas me permita enviarlo adjunto en un e-mail Outlook, a una
direccion:

Muchas gracias, y espero no abusar de tu tiempo.

Saludos

Responder a este mensaje

#3 KL

23/06/2006 - 09:16 | Informe spam

Hola Susan,

Para los ejemplos de codigo que envia e-mail revisa el siguiente enlace:

http://www.rondebruin.nl/sendmail.htm

Para guardar en el escritorio en cualquier sistema (ya que las rutas podrian variar segun la version e idioma de Windows):

Sub test()
Dim Escritorio As String, Archivo As String
Escritorio = _
CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\"
With ThisWorkbook
Archivo = Replace(.Sheets("Hoja1").[A2], "/", "-") & ".xls"
.SaveAs Escritorio & Archivo
End With
End Sub

Saludos,
KL

wrote in message news:

hola KL , muchas gracias, me funciona bien, aunq ahora tengo un
problema, ya no podre acceder a un disco compartido para guardarlos,
entonces ahora lo que tendria que hacer es que cada usuario me lo pueda
enviar desde su correo en outlook, a mi direccion.
Te agradeceria si puedes ayudarme, el codigo en VBA que me permita,por
ejm:

- Una macro que guarde en el escritorio, que lo haria segun lo
indicado, asi:

With ThisWorkbook
.SaveAs "c:\windows\escritorio\" & Replace(.Sheets("Hoja1").[A2],
"/", "-")
End With

y que ademas me permita enviarlo adjunto en un e-mail Outlook, a una
direccion:

Muchas gracias, y espero no abusar de tu tiempo.

Saludos

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida