............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

ADJUNTOS - SKYDRIVE

Ver el tema anterior Ver el tema siguiente Ir abajo

ADJUNTOS - SKYDRIVE

Mensaje por GalileoGali el Dom Jun 24, 2012 9:24 am

Quiero compartir con todos este tema:
Este foro aunque pequeño lleva funcionando varios años. En una primera etapa carecìamos de "Hosteo" para los archivos adjuntos (fundamentales para tratar una gran mayorìa de las cuestiones, tanto para planteos como para aportar soluciones). Recurriamos a linkear a archivos subidos a skydrive, esnips, megaupload (uhhhhhhh!!!!!). En particular skydrive es el que nos dio mejor resultado. Ahora bien, FOROACTIVO que es donde Excelgali como esta subido, ha concedido a todos los foros un espacio de almacenamiento gratuito y a partir de alli habilitè los adjuntos a los posts. Ocurre que este espacio resulta sumamente exiguo. Por tal motivo Manualmente, he dido subiendo los mas pesados a skydrive y pegando los links. Pero esto es sumamente trafagoso. Ay, con la NUBE!!!!,

Ahora bien, procurando automatizar en parte la tarea he instalado en mi Excel 2010 unAddin, que actua al hacer click sobre un icono que coloque en una ficha de mi Ribbon y què hace, les muestro:
a) abro sesiòn en mi usuario de skydrive
1) Abro el Archivo, con click en el vìnculo, por ej el que figura en el post
2) Hago click en el icono de la ficha Skydrive que cree para esto
3) se ejecuta la siguiente macro

Código:
Sub guardarSkyPúblico()
Dim stAhora As String
Const stURL As String = "https://d.docs.live.net/837b040e836e38b5/Público/"    'esta es la URL de la carpeta Pùblico en mi Skydrive

'creo una referencia a Microsoft Forms 2.0 Object Library. Si no encuentran la referencia se inserta un formulario y VBE se ocupa de cargar la referencia a esa biblioteca.
Dim DataObj As New MSForms.DataObject    'siguiendo a Chip Pearson y su excelente explicacion sobre el manejo del Clipboard desde VBA.

stAhora = Replace(Date, "/", "") & Format(Time, "-hhmm") & ActiveWorkbook.Name  'añadiendo los datos de fecha y año al nomenclar el archivo se evita "pisar" anteriores
ActiveWorkbook.SaveAs Filename:=stURL & stAhora  'guardàndolo en la carpeta skydrive, ingreso de nuestro archivo a la NUBE

DataObj.SetText ActiveWorkbook.FullNameURLEncoded  'Cargo la string de la URL del archivo activo
DataObj.PutInClipboard            'Ingreso la URL al "Portapapeles"
End Sub

Al concluir la macro tengo el Portapales cargado con el vinvulo dispuesto a reemplazar el vinculo actual por el recientemente creado.

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.