Visual Basic - Hipervinculos y macros

Life is soft - evento anual de software empresarial
   
Vista:

Hipervinculos y macros

Publicado por Beatriz (9 intervenciones) el 15/07/2010 10:08:45
Buenos dias a todos.

Tengo un problema con una macro en vb.

Os comento un poco de que va

Tengo una serie de archivos en una misma carpeta. Estos archivos tienen todos el mismo formato puesto que se hacen a partir de una plantilla.

En la misma carpeta tengo un archivo "RESUMEN.XLS", donde se recogen los datos de cada una de los archivos de la carpeta y va mostrandolos en forma de resumen.

He conseguido que en una de las columnas del archivo RESUMEN me ponga el nombre del archivo del que esta recupernado los datos, pero me gustaria que en vez del nombre me pusiese un hipervinculo para poder abrirlo.

El codigo del que os estoy hablando es el siguiente..

Sub ABRIR_TODO()
Dim Objeto_Ficheros As Object
Dim Lista_Ficheros As Object
Dim Ficheros As Object
Dim Fichero As Object
Dim FILA As Integer
FILA = 0
Application.ScreenUpdating = False
Set Objeto_Ficheros = CreateObject("Scripting.FileSystemObject")
Set Lista_Ficheros = Objeto_Ficheros.GetFolder(ThisWorkbook.Path & "\")
Set Ficheros = Lista_Ficheros.Files

ThisWorkbook.Worksheets("Hoja1").Cells.ClearContents
For Each Fichero In Ficheros
If Right(Fichero.Name, 4) = ".xls" And Fichero.Name <> "1000XLS.xls" Then
FILA = FILA + 1
Workbooks.Open Filename:=ThisWorkbook.Path & "\" & Fichero.Name
ThisWorkbook.Worksheets("Hoja1").Cells(FILA, 1) = Workbooks(2).ActiveSheet.Cells(13, 8)
ThisWorkbook.Worksheets("HOJA1").Cells(FILA, 2) = Fichero.Name

next
End Sub


Lo que queria hacer es en la linea donde pone
ThisWorkbook.Worksheets("HOJA1").Cells(FILA, 2) = Fichero.Name

en vez de escribir el nombre del fichero, me ponga un hipervinculo.

Muchas gracias por vuestra ayuda.

Saludos a todos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Hipervinculos y macros

Publicado por Christian (666 intervenciones) el 17/07/2010 15:55:12
Aunque quizas esto deberia estar en la parte de excel ahi va una mano

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"C:\Classics.exe" _
, TextToDisplay:= _
"C:\Classics.exe"

otro consejo es que grabes la macro , osea graba la accion de crear un hipervinculo y despues fijate el codigo que genero el excel !!!

suerte
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar