PNG32 PNG32 PNG32 PNG32
PNG32
Forum Excel, VBA, VSTO, Exceltips, Excelhj�lp PNG32 drivs av Excelspecialisten    Logga in     English
PNG32
PNG32 PNG32
PNG32

Logga in

PNG32

Du är inte inloggad. Logga in eller registrera dig för att skriva inlägg eller svara på inlägg.

För frågor om forumet, kontakta oss på webmaster@excelforum.se
PNG32 PNG32
PNG32 PNG32
PNG32

Excelforum

PNG32

 
ForumForumDiskussionerDiskussionerVBAVBASök, infoga och öppna Sök, infoga och öppna
Föregående Föregående
 
Nästa Nästa
Nytt inlägg
 2019-04-11 12:16
 
ALN_82

Medlem sedan: 2019-04-11
28 inlägg

Hej,

vill kunna söka och infoga en fil (pdf, doc, docx, msg) genom en knapptryckning för att sedan vid behöv kunna öppna filen ifråga med ett annat knapptryckning.

Har lyckats att koppla en macro till en knapp som visas nedan men denna länk måste uppdateras och det kan tyckas bökigt ibland för någon som inte jobbat med macron och vba. Tanken är att det ska lätt kunna hitta filerna man vill infoga och lätt kunna öppna samt uppdatera vid behov.

 

Nuvarande kod:

Sub filnam_leverantör()

ActiveWorkbook.FollowHyperlink "G:\xxxxx\xxxxxx\xxxxxx\filnamn.pdf"

End Sub

 

Tack på förhand!

Hälsningar // Alan
Nytt inlägg
 2019-04-12 06:50
 
Christian

Medlem sedan: 2015-08-26
1209 inlägg
Hej hej

testa nedan kod och se om den funkar för ditt syfte..

Option Explicit

Sub FindFileAndAddHyperlink()


'Öppnar "filsökaren" sparar filens namn och sökväg som "filename"
Dim filename As String
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = False
.Show
filename = .SelectedItems(1)
End With

'Ställer in vilket blad som filernas sökvägar ska läggas i, i detta fall heter bladet "sökvägar"
'Ändra till det blad du vil ha
Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("Sökvägar")
'Söker efter sista rad i kolumn A i bladet sökvägar
Dim lRow As Long: lRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
'Lägger in filens sökväg och namn i sista raden i kolumn A
Dim rng As Range: Set rng = ws.Cells(lRow + 1, 1)
rng.Value = filename

'Lägger in en hyperlänk på filens sökväg
rng.Hyperlinks.Add rng, rng.Value, TextToDisplay:=rng.Value
End Sub

Mvh
Christian
Nytt inlägg
 2019-04-12 07:57
 
ALN_82

Medlem sedan: 2019-04-11
28 inlägg

 Hej,

Tack för det snabba svaret, kan jag snyggt koppla hyperlänken till ytterligare en knapp så att den blir snygg.

dvs. en knapp för macrot du hjälpte mig med och en knapp för att öppna filen samt få bort den synliga länken ifrån bladet?

 

Tack på förhand!

 

Hälsningar// Alan
Nytt inlägg
 2019-04-12 12:29
 
Christian

Medlem sedan: 2015-08-26
1209 inlägg


Hej igen

Det borde nog funka om du helt enkelt lägger till nedan två rader på tom rad direkt ovanför end sub:

Rng.Font.ColorIndex = xlAutomatic
Rng.Font.Underline = xlNone

mvh
Christian
Nytt inlägg
 2019-04-17 05:57
 
ALN_82

Medlem sedan: 2019-04-11
28 inlägg

 Hej Christian,

Jag måste ange en "blad" där länken ska placeras i den första koden och när jag för in din andra kod direkt innan "endsub" så händer inte så mycker mer än länken byter färg till svart istället och den är placerad på samma ställe i angivet blad.

Det jag vill göra är att koppla länken till en knapp. Hur går jag till väga?

 

Tack på förhand!

 

Hälsningar // Alan
Nytt inlägg
 2019-04-24 05:39
 
Christian

Medlem sedan: 2015-08-26
1209 inlägg
Hej hej
Det var ett tag sedan sist. Behöver du fortfarande hjälp? Att koppla varje länk till en knapp är något jag inte skulle rekommendera. Det blir väldigt omständigt att administrera sådan funktionalitet. E.g ta bort/flytta knappar. Men vill du ha det så, så kan jag hjälpa dig ändå..
Mvh
Christian
Nytt inlägg
 2020-03-19 08:20
 
ALN_82

Medlem sedan: 2019-04-11
28 inlägg

 Hej,

Ännu senare svar :)

Kan jag ange en specifik cell för var filen/länken ska placeras samt om jag väljer att trycka på knappen igen så byter jag ut filen och inte lägger till en annan länk/fil. Samtidigt undrar om det är möjligt att att kalla en infogade länken för fil eller något annat namn istället för hela länken?
Nytt inlägg
 2020-03-20 11:33
 
Christian

Medlem sedan: 2015-08-26
1209 inlägg
 Ändrad av Christian på 2020-03-20 12:35:53
Destinationen för länken bestäms med range objektet rng. Rng bestäms med nyckelordet set. Du kan skriva: set rng = selection
Så kommer länken att placeras i den aktiva cellen, dvs cellen du har markerad. Detta kommer då att innebära att värden som eventuellt fanns där innan skrivs över. Detta går att komma runt med att stoppa in en tom rad innan inklistring.
Vad gäller vad som visas i cellen för hyperlänken så kan du ändra detta med .texttodisplay
Exempelvis .texttodisplay :="fil". Det går även att plocka ut filnamn ur fullständiga sökvägen om så skulle önskas.
/c
Nytt inlägg
 2020-03-23 07:59
 
ALN_82

Medlem sedan: 2019-04-11
28 inlägg

 Tack Christian! :)

 
 Sida 1 av 1
Föregående Föregående
 
Nästa Nästa
ForumForumDiskussionerDiskussionerVBAVBASök, infoga och öppna Sök, infoga och öppna

PNG32 PNG32
Excelforum drivs av Excelspecialisten som bedriver utbildning i Excel och VBA, tillhandahåller support och hjälp med Excel, utvecklar program i Excel. Är ni i behov av en konsult inom Excel, VBA eller VSTO, eller söker en excelkurs, kontakta oss.
Copyright 2013 ExcelSpecialisten XLS AB   Användarvillkor  Personliga uppgifter