Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Access » Passar un texto de acces a Excel como link

Access - Passar un texto de acces a Excel como link

Volver
Nuevo Tema
<<>>
 
Vista:

Passar un texto de acces a Excel como link

Publicado por gloria (12 intervenciones) el 03/10/2002 11:58:56
Tengo una aplicación en access que por codigo me abre una hoja de calculo y me inserta el valor de los campos del registro activo, uno de los campos és una dirección email y lo que quisiera és que al pasarlo a excel apareciera allí como link, osea en color y subrayado para que al colocarte encima haga el link peró por codigo no sé como hacerlo. Intenté cambiar el formato de esa celda en excel peró tampoco loconsigo.
Gracias.
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
Imágen de perfil de Alejandro

Passar un texto de acces a Excel como link

Publicado por Alejandro (4142 intervenciones) el 22/04/2023 01:13:53
Puedes intentar utilizar la función `Hyperlink` de Excel para crear un enlace en una celda. Aquí hay un ejemplo de cómo podrías hacerlo en el código VBA de Access:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Dim xlApp As Object
Dim xlWb As Object
Dim xlWs As Object
Dim linkText As String
Dim linkAddress As String
 
' Abre Excel
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
 
' Abre el libro de trabajo y la hoja de cálculo
Set xlWb = xlApp.Workbooks.Open("Ruta del archivo.xlsx")
Set xlWs = xlWb.Worksheets("Nombre de la hoja de cálculo")
 
' Obtén el valor del campo de correo electrónico
linkAddress = Me.NombreDeCampoCorreoElectronico
 
' Crea el texto del enlace
linkText = "Haz clic aquí para enviar un correo electrónico a " & linkAddress
 
' Añade el enlace a la hoja de cálculo
xlWs.Range("A1").Hyperlinks.Add Anchor:=xlWs.Range("A1"), _
    Address:="mailto:" & linkAddress, _
    TextToDisplay:=linkText
 
' Cierra el libro de trabajo y Excel
xlWb.Close SaveChanges:=True
xlApp.Quit
 
Set xlApp = Nothing
Set xlWb = Nothing
Set xlWs = Nothing

Este ejemplo abre un archivo de Excel y una hoja de cálculo específica, y luego crea un enlace en la celda A1 con el valor del campo de correo electrónico. El enlace se mostrará como texto con formato de enlace, y al hacer clic en él se abrirá una nueva ventana de correo electrónico con la dirección de correo electrónico ya incluida en el campo "Para:". También puedes modificar el código para utilizar cualquier otra celda o rango que desees.
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