Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Dateien mit der passenden Anwendung öffnen, drucken usw.
Gehe zu Seite Zurück  1, 2
zurück: Spiel GeoEarth - Teste Dein Wissen weiter: Kalenderwoche nach DIN1355 mit/ohne Jahreszahl Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Tutorial Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Gast



Verfasst am:
13. Jun 2013, 09:49
Rufname:

AW: Dateien mit der passenden Anwendung öffnen, drucken usw. - AW: Dateien mit der passenden Anwendung öffnen, drucken usw.

Nach oben
       

Hi zusammen,

zunächst auch von mir an Helge ein großes Dankeschön für den Code. Ich war auch auf der Suche nach einer Alternative zu FollowHyperlink, wo immer eine Sicherheitsabfrage genervt hat.

Da ich mit Office 64bit arbeite und wie Muck64 bzw. Gast auch mit dem für 32bit gedachten Code Probleme habe, anbei für alle Interessierten die 64bit Version auf Basis des MS Links von Sonnenschein.
Code:
Option Compare Database
Option Explicit

Public Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias _
    "ShellExecuteA" (ByVal hWnd As LongPtr, _
                     ByVal lpOperation As String, _
                     ByVal lpFile As String, _
                     ByVal lpParameters As String, _
                     ByVal lpDirectory As String, _
                     ByVal nshowcmd As LongPtr) As Long
   
Public hWnd As Long
Public Const SW_HIDE = 0          ' Versteckt öffnen
Public Const SW_MAXIMIZE = 3      ' Maximiert öffnen
Public Const SW_MINIMIZE = 6      ' Minimiert öffnen
Public Const SW_NORMAL = 1
Public Const SW_RESTORE = 9
Public Const SW_SHOWMAXIMIZED = 3
Public Const SW_SHOWMINIMIZED = 2
Public Const SW_SHOWMINNOACTIVE = 7
Public Const SW_SHOWNOACTIVATE = 4
Alle Credits an Helge ! Smile

Besten Gruß.
JMalberg
Es wird so langsam sinnig ...


Verfasst am:
13. Jun 2013, 10:26
Rufname:
Wohnort: Saarbrücken


AW: Dateien mit der passenden Anwendung öffnen, drucken usw. - AW: Dateien mit der passenden Anwendung öffnen, drucken usw.

Nach oben
       

Bedingte Kompilierung benutzen
Code:
#If vba7 Then
Public Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias _
    "ShellExecuteA" (ByVal hWnd As LongPtr, _
                     ByVal lpOperation As String, _
                     ByVal lpFile As String, _
                     ByVal lpParameters As String, _
                     ByVal lpDirectory As String, _
                     ByVal nshowcmd As LongPtr) As Long
#Else
Public Declare Function ShellExecute Lib "shell32.dll" Alias _
    "ShellExecuteA" (ByVal hWnd As LongPtr, _
                     ByVal lpOperation As String, _
                     ByVal lpFile As String, _
                     ByVal lpParameters As String, _
                     ByVal lpDirectory As String, _
                     ByVal nshowcmd As LongPtr) As Long
#End If

_________________
Gruß
Jürgen

Der Unterschied zwischen Theorie und Praxis ist in der Praxis größer als in der Theorie!
SchlegelS
Im Profil kannst Du frei den Rang ändern


Verfasst am:
13. Jun 2013, 10:38
Rufname:

AW: Dateien mit der passenden Anwendung öffnen, drucken usw. - AW: Dateien mit der passenden Anwendung öffnen, drucken usw.

Nach oben
       

Interessanter Hinweis @JMalberg. Wusste gar nicht, dass sowas geht Very Happy

In der 32Bit Variante müsste dann aber wohl wieder LongPtr entfernt werden, oder?
Willi Wipp
Moderator


Verfasst am:
14. Jun 2013, 05:38
Rufname:
Wohnort: Raum Wiesbaden

Re: AW: Dateien mit der passenden Anwendung öffnen, drucken - Re: AW: Dateien mit der passenden Anwendung öffnen, drucken

Nach oben
       

Hi Folks,

muesste nicht auch die Deklaration Public hWnd in den #If-Block?
Code:
Option Compare Database
Option Explicit

#If vba7 Then
Public Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias _
    "ShellExecuteA" (ByVal hWnd As LongPtr, _
                     ByVal lpOperation As String, _
                     ByVal lpFile As String, _
                     ByVal lpParameters As String, _
                     ByVal lpDirectory As String, _
                     ByVal nshowcmd As LongPtr) As Long
                     
Public hWnd As LongPtr
#Else
Public Declare Function ShellExecute Lib "shell32.dll" Alias _
    "ShellExecuteA" (ByVal hWnd As Long, _
                     ByVal lpOperation As String, _
                     ByVal lpFile As String, _
                     ByVal lpParameters As String, _
                     ByVal lpDirectory As String, _
                     ByVal nshowcmd As Long) As Long
   
Public hWnd As Long
#End If

Public Const SW_HIDE = 0          ' Versteckt öffnen
Public Const SW_MAXIMIZE = 3      ' Maximiert öffnen
Public Const SW_MINIMIZE = 6      ' Minimiert öffnen
Public Const SW_NORMAL = 1
Public Const SW_RESTORE = 9
Public Const SW_SHOWMAXIMIZED = 3
Public Const SW_SHOWMINIMIZED = 2
Public Const SW_SHOWMINNOACTIVE = 7
Public Const SW_SHOWNOACTIVATE = 4

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
JMalberg
Es wird so langsam sinnig ...


Verfasst am:
14. Jun 2013, 16:26
Rufname:
Wohnort: Saarbrücken


AW: Dateien mit der passenden Anwendung öffnen, drucken usw. - AW: Dateien mit der passenden Anwendung öffnen, drucken usw.

Nach oben
       

Jepp, alles was von der Access32/64-Version abhängig ist, muss entsprechend kompiliert werden.

Access-Versionen und die bedingte Kompilierung

_________________
Gruß
Jürgen

Der Unterschied zwischen Theorie und Praxis ist in der Praxis größer als in der Theorie!
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Gehe zu Seite Zurück  1, 2
Diese Seite Freunden empfehlen

Seite 2 von 2
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Word VBA