---

Hallo!

Bitte entschuldigt, ich hab mich beim Thema verschrieben!

Ich möchte meine *.txt / *.doc - Dateien von VBA aus mit der standardmäßig verknüpften Applikation öffnen / drucken / schließen.

Hat jemand eine Idee wie das gehen könnte?

Grüße Martin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

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

retval = ShellExecute(Me.hwnd, "open", "d:\test.xls", "-fast", "C:\", 3)
   

Mit dem kannst du beliebige Dateien (in dem fall eine Excel-Datei) mit der dafür verknüpften Anwendung starten

------------------

Ing. Anton Fuchs
WWW.FFZELL.AT.TC

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

upps

Korrektur
das me.hnd  bezieht sich auf VB und nicht VBA, Schreib stattdessen einfach 0

also z.B.:
retval = ShellExecute(0, "open", "d:\struktur.jpg", "-fast", "C:\", 3)

------------------

Ing. Anton Fuchs
WWW.FFZELL.AT.TC

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Vielen Dank funktioniert super!!

Woher weißt du das alles?

Ich hab keine Ahnung was die Shell32.dll alles kann!
Wo lernt man so was?

Grüße Martin

------------------
LG Martin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Internet suchen suchen suchen suchen

sehr interresant(sind zwar VB6,VB.net,C++,C# Seiten,viele Tipps  kann man aber auch teilweise bei VBA brauchen)
http://www.activevb.de/startseite/index.html http://www.mentalis.org/agnet/ http://www.vbarchiv.net/home/willkommen.php
Ing." TARGET=_blank>http://www.codeguru.com/

------------------

Ing. Anton Fuchs
WWW.FFZELL.AT.TC

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von fuchsi:
Internet suchen suchen suchen suchen

sehr interresant(sind zwar VB6,VB.net,C++,C# Seiten,viele Tipps  kann man aber auch teilweise bei VBA brauchen)
http://www.activevb.de/startseite/index.html  http://www.mentalis.org/agnet/  http://www.vbarchiv.net/home/willkommen.php  <A HREF="http://www.codeguru.com/

---

warum zum T.... verhaut sich dieses Forum immer, wenn ich zum Schluss einen Link poste mit meiner Signatur ??????????????????

------------------

Ing. Anton Fuchs
WWW.FFZELL.AT.TC

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

...weil am Schluss (also nach dem letzten Link) noch ein Leerzeichen gesetzt werden muss - sonst funzt es nicht... (ist leider so...)

------------------
Grüsse

Thomas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Eine Frage hätt ich da noch:

Kann man das ganze dann ganz einfach (ähnlich) drucken und/oder schließen auch?

LG Martin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

wennst mal auf die msdn-seite von Masosoft schaust, sollte es auch gehen
http://msdn.microsoft.com/archive/default.asp?url=/archive/en-us/dnarvb4/html/msdn_shelexec.asp

allerdings habe ich es noch nie ausprobiert.
höchstwarscheinlich müsste dein Dateityp nicht nur für den Vorgang open, sondern auch für den Vorgang print richtig verknüpft sein.

------------------

Ing. Anton Fuchs
WWW.FFZELL.AT.TC

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Funktioniert alles!

Super Danke!

Nur eines klappt nicht: Der "Show Modus"!

Beim Notepad passiert bei "vbMinimizedNoFocus" das richtige:
Meine ACAD-Zeichnung bleibt an oberster Stelle.
Bei Word nicht!??? Und beim I-Explorer auch nicht.
Da hilft auch kein "vbHide".

Weißt du warum? (Ist nicht wirklich wichtig, bin nur neugierig!)

------------------
LG Martin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP