Just nu i M3-nätverket
Gå till innehåll

Öppna en PDF med en knapp


Adesso

Rekommendera Poster

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

Länk till kommentar
Dela på andra webbplatser

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.

Länk till kommentar
Dela på andra webbplatser

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

Länk till kommentar
Dela på andra webbplatser

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

Länk till kommentar
Dela på andra webbplatser

Arkiverat

Det här ämnet är nu arkiverat och är stängt för ytterligare svar.



×
×
  • Skapa nytt...