MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 22.02.2018, 14:27   #1
Michael1978-Excel
MOF User
MOF User
Standard Excel 2013 - Datei mit bestimmten Programm öffnen (statt Standardprogramm)

Hallo Ihr da draußen!

Ich habe folgenden Code (nur zum Teil dargestellt):

Code:

If Len(Pfad) > 3 Then
Pfad = IIf(Right$(Pfad, 1) = "", Pfad, Pfad & "")
Datei = Dir(Pfad & Planname & Index & Typ)
Do While Datei > ""
bFound = True
ShellExecute 0, "open", Pfad & Datei, "", "", 3
Datei = Dir
Loop
Damit kann ich eine gezielt angesteuerte Datei öffnen.
Benutzt wird immer das unter Windows als Standard eingestellte Programm.
Jetzt möchte ich aber, dass statt "open" folgendes Programm ausgewählt wird:
C:Program Files (x86)AdobeReader 11.0ReaderAcroRd32.exe

Wie muss ich das in den oben geschriebenen Code einbinden?

Schon jetzt einen Dank!

Michael
Michael1978-Excel ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 22.02.2018, 15:13   #2
Uwi63
MOF User
MOF User
Standard

Hallo Michael,
ich mache es zwar nicht mit ShellExecute, es gibt sicher auch noch andere Lösungen, aber so funktioniert es bei mir:

Code:

Const AppPDF As String = "c:\Program Files (x86)\AdobeAcrobat Reader DC\Reader\AcroRd32.exe"
    
    Datei = Dir(Pfad & "*.pdf")
    Do While Datei <> ""
        'bFound = True
        PRGCMD = AppPDF & " " & Pfad & Datei
        id = Shell(PRGCMD, vbMinimizedNoFocus)
        Datei = Dir
    Loop

__________________

Gruß
Uwe


Feedback? Aber selbstverständlich
PS: Bei Pfadangaben wird der Backslash von der Forensoftware gefressen (hier zum Nachlesen)
Lösung bis dahin: Statt einem Backslash bitte den Backslash 2x nacheinander schreiben, damit bleibt ein Backslash stehen.
Uwi63 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 23.02.2018, 05:59   #3
Michael1978-Excel
Threadstarter Threadstarter
MOF User
MOF User
Standard

Hallo,

erst einmal vielen Dank für die Antwort.

Nachdem ich es an meinen Code angepasst habe klappt es wie von mir erhofft.

Gruß, Michael
Michael1978-Excel ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 04:04 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.