• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

files verwezen door hyperlinks

Status
Niet open voor verdere reacties.
T

tomkuijpers

Gebruiker
Lid geworden
6 nov 2008
Berichten
48
hallo

ik heb vele cellen met de HYPERLINK formule die verwijzen naar PDF, DOC, TIF files
kan ik met een vba de folder openen waar de hyperlink naar verwijst ??
in de cel staat dus altijd de path met de file name

voorbeeldje
Code: 
=HYPERLINK("C:\Documents and Settings\test.pdf")

Gr Tom
 
tomkuijpers zei:
hallo

ik heb vele cellen met de HYPERLINK formule die verwijzen naar PDF, DOC, TIF files
kan ik met een vba de folder openen waar de hyperlink naar verwijst ??
in de cel staat dus altijd de path met de file name

voorbeeldje
Code: 
=HYPERLINK("C:\Documents and Settings\test.pdf")

Gr Tom
Klik om te vergroten...

Met Follow kan je de hyperlink openen.
Bijv.:
Code: 
Range("A1").Hyperlinks(1).Follow

Met vriendelijke groet,


Roncancio



Bijv.:
 
hey bedankt voor je reactie

maar open je de hyperlink zelf of de folder waar het document staat ?
want ik wil de folder waar het document staat....

Gr Tom
 
Geen idee waarom je het wil, maar..

Code: 
ChDir Join(Filter(Split(Join(Filter(Split([A1].Formula, Chr(34)), "\"), ""), "\"), ".", False), "\")
 
Hey SNB

thx voor je reactie
dat je dat ff uit je mouw klopt :eek:

kun je hem uitlegen ?
Code: 
ChDir Join(Filter(Split(Join(Filter(Split([A1].Formula, Chr(34)), "\"), ""), "\"), ".", False), "\")

hoop van wel (A)

het is ook de bedoeling dat ik een veld cellen kan pakken en dat hij ze dan een voor een af gaat ....
maar ik zou gaag je formule wat beter willen begrijpen zodat ik er iets mee kan :)


Gr Tom
 
Laatst bewerkt:
Hey al een tijd geleden vroeg ik of iemand mij hiermee kon helpen
ik heb het tijdelijk links laten liggen maar wil er nu graag mee aan de slag.

ik heb een document met hyperlinks zoals hieronder
Code: 
=HYPERLINK("C:\Documents and Settings\test.pdf")

hoe zou ik willen dat het werkte
je klikt een cel aan met een hyperlink
gebruikt de macro
je krijgt een popup folder waar de file staat waar de link naar verwijst


mocht ik nu de file willen copieeren of verplaatsen moet ik de file zelf op gaan zoeken
nu vraag ik me af zijn er mogelijkheden om met een vba de folder te opennen waar de link naar verwijst

zelf ben ik geen held in VBA heb al regelmatig op internet gezocht maar kom er niet uit...


Code: 
ChDir Join(Filter(Split(Join(Filter(Split([A1].Formula, Chr(34)), "\"), ""), "\"), ".", False), "\")
ik snap niet wat deze code doet en hoe hij werkt dus kan er niets mee
iemand die hem kan uitleggen ?

Gr Tom
 
Misschien heel erg simpel gedacht maar wat dacht je van:

=> rechtermuisknop =>hyperlink en dan kan je (als je de bovenste optie kunt uit het linker menu "bestaand bestand of webpagina") gewoon je gewenste map selecteren => enter

en dan zou hij moeten werken..

zie bijlage als voorbeeld
 

Bijlagen

Laatst bewerkt:
hey bedankt dat je me wil helpen
maar ik weet hoe ik een hyperlink moet maken dat was mijn vraag ook niet...

tomkuijpers zei:
Hey al een tijd geleden vroeg ik of iemand mij hiermee kon helpen
ik heb het tijdelijk links laten liggen maar wil er nu graag mee aan de slag.

ik heb een document met hyperlinks zoals hieronder
Code: 
=HYPERLINK("C:\Documents and Settings\test.pdf")

hoe zou ik willen dat het werkte
je klikt een cel aan met een hyperlink
gebruikt de macro
je krijgt een popup folder waar de file staat waar de link naar verwijst


mocht ik nu de file willen copieeren of verplaatsen moet ik de file zelf op gaan zoeken
nu vraag ik me af zijn er mogelijkheden om met een vba de folder te opennen waar de link naar verwijst

zelf ben ik geen held in VBA heb al regelmatig op internet gezocht maar kom er niet uit...


Code: 
ChDir Join(Filter(Split(Join(Filter(Split([A1].Formula, Chr(34)), "\"), ""), "\"), ".", False), "\")
ik snap niet wat deze code doet en hoe hij werkt dus kan er niets mee
iemand die hem kan uitleggen ?

Gr Tom
Klik om te vergroten...
 
Bedoel je het zo?
Onderstaande macro controleert of de huidige cel een hyperlink heeft.
Is dat het geval dan wordt de directory waar de hyperlink naar verwijst, geopend.

Code: 
Sub HyperlinkPad()
On Error Resume Next
If ActiveCell.Hyperlinks.Count > 0 Then
    ChDrive Left(ActiveCell.Hyperlinks(1).Name, InStrRev(ActiveCell.Hyperlinks(1).Name, "\"))
    ChDir Left(ActiveCell.Hyperlinks(1).Name, InStrRev(ActiveCell.Hyperlinks(1).Name, "\"))
    GOF = Application.GetOpenFilename(" (*.*), *.*")
End If
End Sub

Met vriendelijke groet,


Roncancio
 
Hey bedankt voor je reactie ;)

Je code doet het alleen niet bij mij ik weet niet waardoor maar de link is niet met insert hyperlink
Code: 
=HYPERLINK("C:\Documents and Settings\test.pdf","testing")
=HYPERLINK("C:\Documents and Settings\test.pdf")

ik heb je code een klein beetje aangepast:
Code: 
Sub HyperlinkPad()
On Error Resume Next
currentclInSelection.SpecialCells (xlCellTypeFormulas)
    If InStr(cl.Formula, "HYPERLINK") > 0 Then
        ChDrive Left(ActiveCell.hyperlinks(1).Name, InStrRev(ActiveCell.hyperlinks(1).Name, "\"))
          ChDir Left(ActiveCell.hyperlinks(1).Name, InStrRev(ActiveCell.hyperlinks(1).Name, "\"))
            GOF = Application.GetOpenFilename(" (*.*), *.*")
End If
End Sub

hij opent nu elke keer wel de openfolder maar niet de folder waar de link naar verwijst..
bv hij opend mijn documenten als ik dan in dat scherm naar mijn desktop ga en cancel klik
opent hij de keer erna een folder met mijn desktop...

of er nu wel of geen link staat hij opent een folder

nog een vraagje ik snap de formule zelf ook niet echt misschien met wat uitleg dat ik hem zelf kan aan passen..

Gr Tom
 
De code controleert of de huidige cel een hyperlink heeft (hyperlink zijn ingevoerd via Toevoegen - Hyperlink).
Als dat zo is, dan wordt de huidige driver en directory aangepast naar het pad waarnaar de hyperlink verwijst.
De directory van de hyperlink wordt vervolgens getoond.

Met vriendelijke groet,


Roncancio
 
Hey bedankt voor je snelle uitleg

ikzelf snap zo een klein beetje wat hij doet.
wel jammer dat de code nog niet werkt :confused:


Code: 
Sub HyperlinkPad()
On Error Resume Next
currentclInSelection.SpecialCells (xlCellTypeFormulas)
    If InStr(cl.Formula, "HYPERLINK") > 0 Then
        ChDrive Left(ActiveCell.hyperlinks(1).Name, InStrRev(ActiveCell.hyperlinks(1).Name, "\"))
          ChDir Left(ActiveCell.hyperlinks(1).Name, InStrRev(ActiveCell.hyperlinks(1).Name, "\"))
            GOF = Application.GetOpenFilename(" (*.*), *.*")
End If
End Sub

ikzelf denk dat er wat foutjes zijn weet nog niet waar
als er geen hyperlink in de cel is moet er niets gebeuren wat nu nog wel is
aanpassen van de driver en directory gaat nog niet goed:(


Gr Tom
 

Bijlagen

Laatst bewerkt:
tomkuijpers zei:
Hey bedankt voor je snelle uitleg

ikzelf snap zo een klein beetje wat hij doet.
wel jammer dat de code nog niet werkt :confused:


Code: 
Sub HyperlinkPad()
On Error Resume Next
currentclInSelection.SpecialCells (xlCellTypeFormulas)
    If InStr(cl.Formula, "HYPERLINK") > 0 Then
        ChDrive Left(ActiveCell.hyperlinks(1).Name, InStrRev(ActiveCell.hyperlinks(1).Name, "\"))
          ChDir Left(ActiveCell.hyperlinks(1).Name, InStrRev(ActiveCell.hyperlinks(1).Name, "\"))
            GOF = Application.GetOpenFilename(" (*.*), *.*")
End If
End Sub

ikzelf denk dat er wat foutjes zijn weet nog niet waar
als er geen hyperlink in de cel is moet er niets gebeuren wat nu nog wel is
aanpassen van de driver en directory gaat nog niet goed:(


Gr Tom
Klik om te vergroten...

Hey mensen

hij werkt wel voor files die met insert hyperlink er in zijn gezet maar dat was mijn vraag niet
ik heb hyperlinks met de FORMULE hyperlink zoals in mijn vraag....
Code: 
=HYPERLINK("C:\Documents and Settings\test.pdf","testing")
=HYPERLINK("C:\Documents and Settings\test.pdf")

dus op een of andere manier moet de driver de link uit de formule pakken ...
iemand die me hierbij kan en wil helpen ?

Gr Tom
 
Laatst bewerkt:
@Roncancio
Ik denk dat de verwarring zit in het feit dat Tom in post #1 vraagt hoe hij de map kan openen waar het gehyperlinkte document of zo staat. Dat lijkt er op of hij bedoelt Openen in de Verkenner of zoiets

Jouw code bewerkstelligt dat de macro in Excel de opdracht Openen uitvoert.
 
hey

ja ik bedoel dat inderdaad

ik wil een nieuw venster hebben zoals "my computer" waar dan de file staat waarnaar verwezen word met de hyperlink :)

voordat iemand de foute hyperlink gaat gebruiken dus zeker
GEEN HYPERLINK INSTERT

maar gebruik de formule
Code: 
=HYPERLINK("C:\Documents and Settings\test.pdf","testing")
=HYPERLINK("C:\Documents and Settings\test.pdf")

ik hoop dat iemand hiermee kan helpen

de oude formule met wat uitleg wat er fout ging
ikzelf snap zo een klein beetje wat hij doet.
wel jammer dat de code nog niet werkt

Code:
Sub HyperlinkPad()
On Error Resume Next
currentclInSelection.SpecialCells (xlCellTypeFormulas)
If InStr(cl.Formula, "HYPERLINK") > 0 Then
ChDrive Left(ActiveCell.hyperlinks(1).Name, InStrRev(ActiveCell.hyperlinks(1).Name, "\"))
ChDir Left(ActiveCell.hyperlinks(1).Name, InStrRev(ActiveCell.hyperlinks(1).Name, "\"))
GOF = Application.GetOpenFilename(" (*.*), *.*")
End If
End Subikzelf denk dat er wat foutjes zijn weet nog niet waar
als er geen hyperlink in de cel is moet er niets gebeuren wat nu nog wel is
aanpassen van de driver en directory gaat nog niet goed

Gr Tom
Klik om te vergroten...

Gr Tom
 

Bijlagen

Een nieuwe poging.
Onderstaande code opent de directory waar de hyperlink naar verwijst.

Bijv.:
A1: =HYPERLINK("C:\helpmij\Tom.xls";"Tom")
A2: =HYPERLINK("D:\doei\test\Testen.pdf";"Test")

Je selecteert cel A1 activeert de macro en de directory C:\helpmij wordt geopend.
Je selecteert cel A2 activeert de macro en de directory D:\doei\test wordt geopend.

Code: 
Sub HyperlinkPad()
On Error Resume Next
If InStr(ActiveCell.Formula, "HYPERLINK") > 0 Then
    ChDrive Mid(ActiveCell.Formula, 13, InStrRev(ActiveCell.Formula, "\") - 13)
    ChDir Mid(ActiveCell.Formula, 13, InStrRev(ActiveCell.Formula, "\") - 13)
    GOF = Application.GetOpenFilename(" (*.*), *.*")
End If
End Sub

Ik hoop dat dit de bedoeling is.
Anders hoor ik het wel.

Met vriendelijke groet,


Roncancio
 
- een cel kan een hyperlink bevatten
- een cel kan een formule met een hyperlink bevatten

Dat zijn 2 totaal verschillende dingen.
 
Hey Roncancio

wederom bedankt voor je reactie ;)
zoals ik je bericht las snap je mijn bedoeling
Wel was het de vraag of het mogelijk is in een nieuw venster de directory waar de hyperlink naar verwijst te openen dus niet in excel maar in een nieuw venster
VB. je klikt op openen en je doet dan rechtermuisknop op een folder en klikt explore aan dan krijg je een nieuw venster waar de folder geopend is.
Zo zou ik graag de directory waar de hyperlink naar verwijst hebben..

ik heb je code in het document gebruikt maar nu gebeurd er weer het zelfde als bij de vorige code
je staat op een link activeerd de hyperlink en je krijgt een venster maar de directory is niet veranderd:confused:

de gebruikte code
Code: 
Sub HyperlinkPad()
On Error Resume Next
If InStr(ActiveCell.Formula, "HYPERLINK") > 0 Then
    ChDrive Mid(ActiveCell.Formula, 13, InStrRev(ActiveCell.Formula, "\") - 13)
    ChDir Mid(ActiveCell.Formula, 13, InStrRev(ActiveCell.Formula, "\") - 13)
    GOF = Application.GetOpenFilename(" (*.*), *.*")
End If
End Sub

zou je weten waarom hij niet werkt ?

Gr Tom
 
Hm, ik denk dat we het stap voor stap moeten aanpakken.

Ik heb een kleine toevoeging gemaakt aan de code zodat je in een messagebox de verwijzing laat zien die gebruikt wordt.
Het lijkt mij bovendien handig om in een cel een hyperlink te maken met uitsluitend het pad (dus zonder bestand).
Zo kan je het pad vergelijken met de gevonden verwijzing.

Met vriendelijke groet,


Roncancio
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan