Macro funciona a medias....

06/04/2004 - 08:39 por Astalfo | Informe spam

Buenas, tengo el siguiente macro que me copia en el
portapapeles la ruta completa de un archivo excel, el
problema es que si el archivo es de solo lectura lo que
copia es solo en nombre y no al ruta completa.
Hay alguna manera de que esto no suceda???

Gracias muchas...

Sub CopiarRuta()
Dim RutaCompleta As New DataObject
RutaCompleta.SetText ActiveWorkbook.FullName
RutaCompleta.PutInClipboard
End Sub

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Fernando Arroyo

06/04/2004 - 13:00 | Informe spam

A mí, en un ordenador con Windows XP y Office 2003, el código me funciona sin problemas...
Un saludo.

Fernando Arroyo
MS MVP - Excel

"Astalfo" escribió en el mensaje news:18ca701c41ba1$f0cabe80$

Buenas, tengo el siguiente macro que me copia en el
portapapeles la ruta completa de un archivo excel, el
problema es que si el archivo es de solo lectura lo que
copia es solo en nombre y no al ruta completa.
Hay alguna manera de que esto no suceda???

Gracias muchas...

Sub CopiarRuta()
Dim RutaCompleta As New DataObject
RutaCompleta.SetText ActiveWorkbook.FullName
RutaCompleta.PutInClipboard
End Sub

Responder a este mensaje

#2 Orto

06/04/2004 - 18:42 | Informe spam

Pues a mi en WinXp Sp-1 y Excel Xp con Sp-3 no me funciona. Tampoco en Win98
y Excel 97 SR-2.

Me lo expliquen.

"Fernando Arroyo" escribió en el mensaje
news:
A mí, en un ordenador con Windows XP y Office 2003, el código me funciona
sin problemas...
Un saludo.

Fernando Arroyo
MS MVP - Excel

"Astalfo" escribió en el mensaje
news:18ca701c41ba1$f0cabe80$

Buenas, tengo el siguiente macro que me copia en el
portapapeles la ruta completa de un archivo excel, el
problema es que si el archivo es de solo lectura lo que
copia es solo en nombre y no al ruta completa.
Hay alguna manera de que esto no suceda???

Gracias muchas...

Sub CopiarRuta()
Dim RutaCompleta As New DataObject
RutaCompleta.SetText ActiveWorkbook.FullName
RutaCompleta.PutInClipboard
End Sub

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida