Adesso Postad 6 oktober, 2013 Share Postad 6 oktober, 2013 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 Länk till kommentar Dela på andra webbplatser More sharing options...
Ove Söderlund Postad 6 oktober, 2013 Share Postad 6 oktober, 2013 Ä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 More sharing options...
Adesso Postad 6 oktober, 2013 Trådskapare Share Postad 6 oktober, 2013 Tack det löste problemet MVH Roger Länk till kommentar Dela på andra webbplatser More sharing options...
Adesso Postad 6 oktober, 2013 Trådskapare Share Postad 6 oktober, 2013 Bara en fråga till Hur läger man till ett villkor om saknas så man slipper felrutan Länk till kommentar Dela på andra webbplatser More sharing options...
Cecilia Postad 6 oktober, 2013 Share Postad 6 oktober, 2013 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 More sharing options...
Ove Söderlund Postad 6 oktober, 2013 Share Postad 6 oktober, 2013 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 More sharing options...
Rekommendera Poster
Arkiverat
Det här ämnet är nu arkiverat och är stängt för ytterligare svar.