www.mikrocontroller.net

Forum: PC-Programmierung datei öffnen über VBA


Autor: Kartoffel Salat (kartoffelsalat)
Datum:

Bewertung
0 lesenswert
nicht lesenswert
Hallo zusammen.

hab mal wieder ein problem, diesmal mit VBA :(
möchte aus einem excel file in einem vba formular über einen button eine 
datei mit seinem standartprogramm öffnen. habe folgenden code im forum 
gfunden.

Problem:
es wird nur ein explorerfenster mit den angegebenen Pfad geöffnet 
anstatt der txt datei...
kann mir jemand helfen wiso?

code:

Private 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
Private Declare Function GetDesktopWindow Lib "user32" () As Long


Private Sub Cmdfeedback_Click()

filname = "open"

'Sub OpenFile(Filename As String)
Call ShellExecute(GetDesktopWindow(), "open", Filename, "", 
"P:\Teams\Prozesstechnik\3_Publikationen\02_Datenarchiv\01_Onlineaufzeic 
hnung",  1)




danke Gruss Raphael



Autor: Kallius (Gast)
Datum:

Bewertung
0 lesenswert
nicht lesenswert
Ich mache immer folgendes:

Private Const SW_SHOWNORMAL = 1
Private 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


...


ShellExecute Me.hWND, "open", "C:\test\test.xls", vbNullString, "C:\", 
SW_SHOWNORMAL



Aufruf erfolgt aus einem VB6 Formular heraus (das "Me"), ich denke 
GetDesktopWindow geht aber auch

Autor: Kartoffel Salat (kartoffelsalat)
Datum:

Bewertung
0 lesenswert
nicht lesenswert
danke, mit deiner version hats funktioniert.

habe mein Fehler auch gleich noch gesehen: habe einen tippfehler in der 
varible "filename" gmacht :-(

unglaublich wieviel zeit man mit so einem dummen fhler verlieren kann!!!

eine pause kann nicht schaden.... ;-)

gruss

Antwort schreiben

Die Angabe einer E-Mail-Adresse ist freiwillig. Wenn Sie automatisch per E-Mail über Antworten auf Ihren Beitrag informiert werden möchten, melden Sie sich bitte an.

Wichtige Regeln - erst lesen, dann posten!

  • Groß- und Kleinschreibung verwenden
  • Längeren Sourcecode nicht im Text einfügen, sondern als Dateianhang

Formatierung (mehr Informationen...)

  • [c]C-Code[/c]
  • [avrasm]AVR-Assembler-Code[/avrasm]
  • [code]Code in anderen Sprachen, ASCII-Zeichnungen[/code]
  • [math]Formel in LaTeX-Syntax[/math]
  • [[Titel]] - Link zu Artikel
  • Verweis auf anderen Beitrag einfügen: Rechtsklick auf Beitragstitel,
    "Adresse kopieren", und in den Text einfügen




Bild automatisch verkleinern, falls nötig
Bitte das JPG-Format nur für Fotos und Scans verwenden!
Zeichnungen und Screenshots im PNG- oder
GIF-Format hochladen. Siehe Bildformate.
Hinweis: der ursprüngliche Beitrag ist mehr als 6 Monate alt.
Bitte hier nur auf die ursprüngliche Frage antworten,
für neue Fragen einen neuen Beitrag erstellen.

Mit dem Abschicken bestätigst du, die Nutzungsbedingungen anzuerkennen.