Öppna en PDF med en knapp

[Adesso]

Något är fel på följande (se nedan) knappen skall öppna en en fil utifrån vad som står i B24 i en cell i Exel vad är fel?    

 

 

Private Sub CommandButton1_Click()

    Dim myShell As Object

    Dim OL As String

    OL = Range("B24")                                          'B24= "Carlsberg Hof 500 ML"

    Set myShell = CreateObject("WScript.Shell")

    myShell.Run "(C:\Vin\" & OL & ".pdf)"

                                                                              'Länken =C:\Vin\Carlsberg Hof 500 ML.pdf

    

End Sub

[Ove Söderlund]

Ändra raden:

myShell.Run "(C:\Vin\" & OL & ".pdf)"

till:

myShell.Run ("C:\Vin\" & OL & ".pdf")

För övrigt tror jag att svar på Excel VBA-frågor får du enklast svar i forumet VBA.

[Adesso]

Tack det löste problemet

MVH

Roger

[Adesso]

Bara en fråga till 

Hur läger man till ett villkor om saknas så man slipper felrutan

[Cecilia]

För övrigt tror jag att svar på Excel VBA-frågor får du enklast svar i forumet VBA.

Tack, tråden flyttad.

 

Använd gärna knappen "Rapportera" när ni ser något som en moderator behöver åtgärda.

 

Cecilia

Moderator

[Ove Söderlund]

Bara en fråga till 

Hur läger man till ett villkor om saknas så man slipper felrutan

 

Enklaste är väl att infoga en felhanteringsrutin, i stil med följande:

Private Sub CommandButton1_Click()

    On Error GoTo ErrorHandler
    
    Dim myShell As Object
    Dim OL As String
    
    OL = Range("B24")                           'B24= "Carlsberg Hof 500 ML"
    
    Set myShell = CreateObject("WScript.Shell")
    myShell.Run ("C:\Vin\" & OL & ".pdf")       'Länken =C:\Vin\Carlsberg Hof 500 ML.pdf
    
    Exit Sub
    
ErrorHandler:

    MsgBox ("Ett fel uppstod. Antagligen saknas efterfrågad fil!")
    
End Sub