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 1, 2  Weiter
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
Helge
Moderator Trotzdem kann i. nicht alles wissen


Verfasst am:
17. Apr 2005, 17:14
Rufname:
Wohnort: Hannover / Seelze

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

Nach oben
       

Hallo,

so kann man eine Anwendung nur mittels Pfad & Dateinamen ausführen...

Erstell ein neues Modul (nicht in Formular- oder Berichtsmodul)
und füge dort diesen Code ein... und speichere es z.B. unter mdlShellExecute
Code:
Option Compare Database
Option Explicit

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
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

Public Function DateiOeffnen(Aktion As String, Pfad As String, _
                             Ansicht As Long) As Boolean
    Call ShellExecute(hWnd, Aktion, Pfad, "", "", Ansicht)
End Function

Nun kannst Du hinter einen Butten oder in ein Ereignis mit diesen Code, z.B. eine Datei öffnen..

Anwendungsbeispiele:

Eine beliebige Datei öffnen...
Code:
    Dim Pfad As String
   
    'Einfach den Pfad ändern und das war's....
    Pfad = "C:\Eigene Datein\Deine.XXX" '< XXX = Endung mdb, jpg, doc usw.
    DateiOeffnen "open", Pfad, SW_MAXIMIZE

Eine beliebige Datei drucken...
Code:
    Dim Pfad As String

    'Einfach den Pfad ändern und das war's....
    Pfad = "C:\Eigene Datein\Deine.XXX" '< XXX = Endung mdb, jpg, doc usw.
    DateiOeffnen "print", Pfad, SW_MAXIMIZE

Öffnen einer Datei als Vorlage.. (z.B. Word '.dot)
Code:
    Dim Pfad As String

    Pfad = "C:\Eigene Datein\Deine.dot"
    DateiOeffnen "new", Pfad, SW_MAXIMIZE

Öffnen eines Programms
Code:
    Dim Programm As String

    'z.B. Windows kurz
    'Programm = "notepad"
    'Programm = "winWord"
    'Programm = "excel"
    'Programm = "Outlook"
    'Programm = "msaccess"
    'Programm = "explorer"
    'Oder lang
    Programm = "C:\Programme\Microsoft Office 2000\Office\msaccess.exe"
    DateiOeffnen "open", Programm, SW_MAXIMIZE

Explorer mit vorgegebenen Pfad öffnen
Code:
    Dim Pfad  As String

    Pfad = "C:\Eigene Dateien"
    DateiOeffnen "explore", Pfad, SW_MAXIMIZE

Es gibt bestimmt noch ein Paar andere Möglichkeiten, doch ich denke das sind die meist benutzten...

Gruß Helge

Edit:
Wer Rechtschreibfehler findet darf sie behalte... Wink


Zuletzt bearbeitet von Helge am 17. Apr 2005, 22:24, insgesamt 2-mal bearbeitet
stpimi
Moderator Access


Verfasst am:
17. Apr 2005, 21:57
Rufname:
Wohnort: Graz


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

Nach oben
       

(nimmt den Beitrag aus den unbeantworteten Beiträgen heraus)

Sehr wertvoller Tipp - derartige Fragen kommen des öfteren vor.

Bitte hier keine Fragen zum Thema stellen...

Nachfragen zum Thema Bitte hier stellen.. Nachfrage zu: Dateien mit der passenden Anwendung öffnen...

Gruß Helge
Willi Wipp
Moderator


Verfasst am:
11. Aug 2006, 09:38
Rufname:
Wohnort: Raum Wiesbaden

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

Nach oben
       

Hi Folks,

nur als allgemeine Anmerkung (spart einen zusaetzlichen Link Wink):
Eine andere Version um Dateien mit ihrer Standard-Aplikation zu oeffnen ist FollowHyperlink
Code:
    If Nz(Me!DeinTextfeld, "") <> "" Then
        If Dir(Me!DeinTextfeld) <> "" Then
            FollowHyperlink Me!DeinTextfeld
          Else
            'Meldung?
        End If
      Else
        'Meldung?
    End If

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
derArb
getting better


Verfasst am:
14. Aug 2006, 22:20
Rufname: derArb
Wohnort: Berlin

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

Nach oben
       

hi Willi Wipp,

wieder mal auf den Punkt gebracht...das Einfachste ist immer das Beste,
nachdem man das Komplizierte durchprobiert hat

mfg
derArb

_________________
MfG
derArb

Scio me nihil scire...Εν οίδα οτι ουδέν οίδα... Ich weiss, dass ich nichts weiss (Sokrates)
Ich bevorzuge Beiträge mit korrekter deutscher Grammatik.
Gina911
Im Profil kannst Du frei den Rang ändern


Verfasst am:
06. März 2007, 10:23
Rufname:
Wohnort: Dresden


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

Nach oben
       Version: Office 2003

Super Leute,
ich danke euch für diese schnellen und hilfreichen Antworten.
Funktioniert alles wunderbar!

Hab jetzt nur jede Menge mit umschreiben zu tun. Sad
Aber naja - da muss ich durch!!!

Supi Forum - Ihr helft mir echt weiter - Dank an alle!!! Very Happy
Arno Nym
Gast


Verfasst am:
22. Aug 2007, 11:24
Rufname:

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

Nach oben
       Version: Office 97

Plus: Tipp hat geholfen ein Fenster in den Vordergrund zu bringen
Gast



Verfasst am:
01. Sep 2012, 13:15
Rufname:

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

Nach oben
       

Gutes Modul, aber was macht man bei einem 64 bit Betriebsystem?
Sonneschein
AC97-Entwicklung, AC2003-2010 nur Test


Verfasst am:
01. Sep 2012, 15:35
Rufname: Mike

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

Nach oben
       

Hallo,

Sowohl ShellExecute() als auch FollowHyperlink() sollten 1:1 unter Windows64 bit laufen.

_________________
Grüße
Mike
Gast



Verfasst am:
02. Sep 2012, 12:10
Rufname:

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

Nach oben
       

@Sonnenschen, die ShellExecute Methode funktioniert unter 64 bit nicht bekomme eine Fehlermeldung bei der 32 bit Version gibt es keine Probleme.
Sonneschein
AC97-Entwicklung, AC2003-2010 nur Test


Verfasst am:
02. Sep 2012, 12:45
Rufname: Mike

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

Nach oben
       

Hallo,
welche Fehlermeldung kommt denn?

... und nochmal zur Sicherheit:
Wir reden von Win64 nicht von Office64

_________________
Grüße
Mike
Gast



Verfasst am:
02. Sep 2012, 13:43
Rufname:

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

Nach oben
       

Fehler beim Kompiliern:
[url]DerCode in diesem Projekt muss für die Verwendung auf
64-Bit-Systemen aktualisiert werden. Überarbeiten und aktualisieren Sie
Declare-Anweisungen, und markieren Sie mit dem PtrSafe Attribut.[/url]
Muck64
Neuling


Verfasst am:
02. Sep 2012, 13:59
Rufname:

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

Nach oben
       

Ich nehme an, das sich diese Fehlermeldung auf das Betriebsystem bezieht!
Sonneschein
AC97-Entwicklung, AC2003-2010 nur Test


Verfasst am:
02. Sep 2012, 14:26
Rufname: Mike

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

Nach oben
       

Hallo,
Zitat:
Ich nehme an, das sich diese Fehlermeldung auf das Betriebsystem bezieht!
Das nimmst du falsch an.
Du gehörst scheinbar doch zu den wenigen, die 64-Bit-Version von Office bzw. von Access einsetzen.

Hier müssen tatsächlich sämtliche API-Aufrufe angepasst werden, wie bereits die Fehlermeldung beschreibt.
Kompatibilität zwischen der 32-Bit-Version und der 64-Bit-Version von Office 2010

_________________
Grüße
Mike
Muck64
Neuling


Verfasst am:
02. Sep 2012, 16:57
Rufname:

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

Nach oben
       

Muck64 am 02. Sep 2012 um 16:33 hat folgendes geschrieben:
@Sonnenschein, war mir gar nicht darüber im klaren dass ich die 64 bit Version benutze. Ich arbeite normalerweise an einem anderen Rechner!
Wenn ich die 32 bit Version benutze ist das wohl einfacher als alles anzupassen!

Vielen Dank, hast mir sehr geholfen!

@Sonnenschein, nochmals vielen Dank.
Hab jetzt die 32 bit Version installiert und es läuft einwandfrei! Smile
Intermezzo007
Gast


Verfasst am:
16. Sep 2012, 20:00
Rufname:


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

Nach oben
       Version: Office 2003

Very Happy Very Happy Very Happy Very Happy
Die Tipps hier im Forum sind der Hammer.
Und der hier hat mich besonderst weiter gebracht. Vielen Dank...
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Gehe zu Seite 1, 2  Weiter
Diese Seite Freunden empfehlen

Seite 1 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: Microsoft Project