Per Button TXT-Datei im Editor öffnen

Bild

Betrifft: Per Button TXT-Datei im Editor öffnen von: Mark
Geschrieben am: 11.04.2005 08:03:49

Hallo!

Die Überschrift sagt eigentlich schon fast alles: Eine Text-Datei soll, mit Hilfe von VBA, im Editor geöffnet werden, wenn man auf einen Button klickt. Das TXT-File befindet sich im gleichen Ordner wie die XLS-Mappe.
Kann man das programmieren???

THX!!
Mark

Bild


Betrifft: AW: Per Button TXT-Datei im Editor öffnen von: Worti
Geschrieben am: 11.04.2005 08:14:24

Hallo Mark,
so geht's:
Sub TxtInEditor()
    Dim dummy
    dummy = Shell("C:\WINNT\system32\notepad.exe D:\DATA\deinedatei.txt", 1)
    
End Sub

Gruß Worti


Bild


Betrifft: AW: Per Button TXT-Datei im Editor öffnen von: Mark
Geschrieben am: 11.04.2005 08:30:51

Danke für die schnelle Hilfe!

Mein Problem: Ich möchte für ein VBA-Tool eine kleine Bedienungsanletung via Button anzeigen lassen. Ich dachte, ich könnte das mit einem TXT-File machen, aber die Pfadangaben sind ja viel zu starr! :-( Auf einem anderen PC könnte es nicht funktionieren, weil die Ordnerstruktur ganz anders aufgebaut sein könnte...
Hast du eine Idee, wie man das besser machen könnte?

THX für den netten Support! ;-)
Mark aus Berlin


Bild


Betrifft: AW: Per Button TXT-Datei im Editor öffnen von: UweD
Geschrieben am: 11.04.2005 08:26:40

Hallo Mark


mit hilfe vom shell() Befehl klappt es


Sub editor()
    Dim Pfad$, strExt$, ZuÖffnendeDatei$, E
    Pfad = ActiveWorkbook.Path
    If Pfad <> "" Then ChDir (Pfad)
    strExt = "*.txt"       'Dateiextension ggf. anpassen
    ZuÖffnendeDatei = Application.GetOpenFilename("Textdateien (" & strExt & "), " & strExt)
    If ZuÖffnendeDatei = "" Then Exit Sub
    E = Shell("notepad.exe " & ZuÖffnendeDatei, 1)
End Sub


Gruß UweD


Bild


Betrifft: AW: Per Button TXT-Datei im Editor öffnen von: Mark
Geschrieben am: 11.04.2005 08:39:39

Super! Toll! Das ist die bessere Alternative! Kann man jetzt noch die TXT-Datei automatisch öffnen lassen, ohne den Umweg über den Öffnen-Dialog? Dann wäre es perfekt!

Klasse Hilfe hier im Forum, Danke UweD!!! ;-)
Mark aus Berlin


Bild


Betrifft: AW: Per Button TXT-Datei im Editor öffnen von: UweD
Geschrieben am: 11.04.2005 08:58:48

Klar

abgespeckt sieht das dann so aus:

Sub editor()
    Dim Pfad$, ZuÖffnendeDatei$, E, Datei$
    Datei = "Test.txt"
    Pfad = ActiveWorkbook.Path & "\"
    ZuÖffnendeDatei = Pfad & Datei
    E = Shell("notepad.exe " & ZuÖffnendeDatei, 1)
End Sub


Gruß UweD


Bild


Betrifft: AW: Per Button TXT-Datei im Editor öffnen von: Mark
Geschrieben am: 11.04.2005 09:05:21

Danke UweD, ausgezeichnet! Ist auch die flexibelste Lösung, nicht war? Müsste überall (!) laufen, denke ich!

Mark


Bild


Betrifft: AW: Per Button TXT-Datei im Editor öffnen von: MichaV
Geschrieben am: 11.04.2005 08:57:01

Hi,

so öffnest Du eine Datei mit der Standart- Verknüpfung, die auf dem jeweiligen Rechner angelegt ist.

Option Explicit

Private Declare Function FindExecutable Lib "shell32.dll" Alias _
"FindExecutableA" (ByVal lpFile As String, ByVal lpDirectory _
As String, ByVal lpResult As String) As Long

Private Sub DeinMakro()
  Dim exe As String
  Dim pfad As String
  Dim datName As String
  Dim result As Long
  Dim chmd As String
  Dim dummy
  exe = Space(254) & Chr(0)
  pfad = "D:\Daten"
  datName = "datei.txt"
  result = FindExecutable(datName, pfad, exe)
  dummy = Shell(Left(exe, InStr(exe, Chr(0)) - 1) & " " & pfad & "\" & datName, 1)
End Sub


Gruß- Micha


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Per Button TXT-Datei im Editor öffnen"