RSS Feed

Syndicate content

Grazie per il sugerimento in un mio quesito posto tempo fà. Ho un piccolo nuovo quesito da porre, attualmente faccio in excel collegamenti ipertestuali ad altri file excel con una macro, prendendo il percorso da C4 e il nome del file da D4. Una volta eseguita la macro il collegamento avviene ma quando clicco sul link il file non si apre. Penso sia a causa dell'estenzione del file che nel nomefile non è presente. Come faccio a scrivere nella macro che l'estenzione del file da collegare è sempre .xls? e come posso evitare di scrivere ogni volta il percorso del collegamento visto che è sempre lo stesso?

Submitted by Anonimo on Mon, 15/12/2008 - 17:45

Ipotizziamo che nella cella C4 ci sia il nome del percorso del file da aprire e nella cella D4 il nome del file (con l'estensione .xls o senza, poco importa) come in quest'immagine:

 

 

usiamo ora questa macro per fare le seguenti azioni:

1. portare i dati in due variabili che chiameremo "Percorso" e "File",

2. Verificare se il file ha l'estensione .xls. Se non la ha, la si aggiunge automaticamente

3. creare un collegamento ipertestuale nella cella attiva in questo momento:

 

 

 

Sub crea_collegamento()
'
' Macro del 16/12/2008 di aterzaghi
'
'
    Dim Percorso As String
    Dim File As String
   
    Percorso = [C4]
    File = [d4]
   
    If Right(File, 4) <> ".xls" Then File = File + ".xls"
   
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Percorso + File
   
End Sub
 

Post new comment

The content of this field is kept private and will not be shown publicly.
  • Web page addresses and e-mail addresses turn into links automatically.
  • Allowed HTML tags: <a> <em> <strong> <cite> <code> <ul> <ol> <li> <dl> <dt> <dd> <img> <style> <center> <p>
  • Lines and paragraphs break automatically.

More information about formatting options

CAPTCHA
This question is for testing whether you are a human visitor and to prevent automated spam submissions.
Image CAPTCHA
Copy the characters (respecting upper/lower case) from the image.

Custom Search