Just nu i M3-nätverket
Jump to content

Öppna en PDF med en knapp


Adesso

Recommended Posts

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? :unsure:   

 

 

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

Link to comment
Share on other sites

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.

Link to comment
Share on other sites

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

Link to comment
Share on other sites

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

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...