dateienpfad aus textdatei

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox


Excel-Version: 2000
nach unten

Betrifft: dateienpfad aus textdatei
von: peter
Geschrieben am: 08.05.2002 - 12:20:04

hallo excels,
dies ist ein auszug aus einem macro.

Sub ton2()
Dim Antwort As String
 On Error GoTo Falsch
Call Soundabspielen("\\intra\training\ton\LAUTHIER.wav")
Falsch:
Exit Sub
End Sub

in diesem programm sind die 12ftasten mit wav-datein belegt.
nun möchte ich aber das der datenpfad aus einer textdatei, die im gleichen verzeichnis wie die wav.daten liegen,beim aufruf des programmes ausgelesen werden.
hilfe wäre toll.
gruss
peter
nach oben   nach unten

Re: dateienpfad aus textdatei
von: mathias r.
Geschrieben am: 08.05.2002 - 15:11:41

Ein simpler Code zum Enlesen aus einer ASACII-Datei:


Sub lies()
Dim strHinweis As String
  Open ThisWorkbook.Path & "\hinweis.txt" For Input As #1 ' Datei zum Einlesen öffnen.
    Input #1, strHinweis ' Daten in Variable einlesen.
    MsgBox strHinweis
  Close #1  ' Datei schließen.
End Sub

nach oben   nach unten

Re: dateienpfad aus textdatei
von: peter
Geschrieben am: 08.05.2002 - 15:32:31

hi mathias,
danke ! werde ich gleich ausprobieren.
gruss und schoenen feiertag.
peter

nach oben   nach unten

Re: dateienpfad aus textdatei
von: peter
Geschrieben am: 08.05.2002 - 15:49:07

hi mathias,
habe es ausprobiert und es klappt.
noch eine ergänzende frage:
ich möchte aus dieser textdatei gezielt
zeile1 = text1
zeile2 = text2
usw.
hast du da auch noch eine lösung.
gruß peter
nach oben   nach unten

Re: dateienpfad aus textdatei
von: mathias r.
Geschrieben am: 10.05.2002 - 10:45:33


Sub lies()
Dim strText1 As String
Dim strText2 As String

  Open ThisWorkbook.Path & "\hinweis.txt" For Input As #1 ' Datei zum Einlesen öffnen.
    Input #1, strText1 ' Daten in Variable einlesen.
    Input #1, strText2 ' Daten in Variable einlesen.
  Close #1  ' Datei schließen.
End Sub

wenn es viele zeilen sind ist eine Schleife angebrachter

Sub lies()
Dim strText1 As String
  Open ThisWorkbook.Path & "\hinweis.txt" For Input As #1 ' Datei zum Einlesen öffnen.
    Do While Not EOF(1)
      Input #1, strText1 ' Daten in Variable einlesen.
      MsgBox strText1
    Loop
  Close #1  ' Datei schließen.
End Sub


nach oben   nach unten

Re: dateienpfad aus textdatei
von: peter
Geschrieben am: 12.05.2002 - 21:36:10

hi mathias,
besten dank für deine hilfe.
gruss
peter

nach oben   nach unten

Re: dateienpfad aus textdatei
von: peter
Geschrieben am: 12.05.2002 - 21:37:30

hi mathias,
besten dank für deine hilfe.
gruss
peter

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "dateienpfad aus textdatei"