Zeilen auslesen

Computer: Software & Programmierung Visual Basic
#1

Hallo Progger,

ich möchte aus EXCEL eine *.ini Datei zeilenweise auslesen und jede zeile in eine entsprechende Zeile in einem Tabellenblatt abspeichern. Speichern wäre kein Problem wenn ich immer eine bestimmte Zeile der *.ini datei auslesen könnte. Finde dazu aber keinen Befehl. Mit input oder get get’ wohl nicht ???

Hilfe !
Danke!
Ralf

#2

ich möchte aus EXCEL eine *.ini Datei zeilenweise auslesen und
jede zeile in eine entsprechende Zeile in einem Tabellenblatt
abspeichern. Speichern wäre kein Problem wenn ich immer eine
bestimmte Zeile der *.ini datei auslesen könnte. Finde dazu
aber keinen Befehl. Mit input oder get get’ wohl nicht ???

Servus Ralf

Hier ist ein Beispiel, das alle Zeilen aus einer Ini-Datei ausliest:

Sub ReadIni()
 Dim IniZeile As String
 Open "c:\winnt\Dateiname.ini" For Input As #1
 Do Until EOF(1)
 Input #1, IniZeile
 MsgBox IniZeile
 Loop
 Close #1
End Sub

Funktioniert garantiert mit allen VB-Versionen auf jedem Windows (vorausgesetzt natürlich, dass der angegebene Dateiname dort exisitiert)!

Statt der MsgBox musst du dann natürlich den Teil einsetzen, mit dem du die einzelnen Zeilen abspeichern willst.

Viel Vergnügen
Roland

#3

Erstelle ein neues Excel-Makro:

  • Klick Extras-Makros

  • Eingeben Makroname in Textfeld

  • Klick erstellen

  • folgenden Text einfügen:

    sub iniMakro ()
    Dim Zeile as Integer, Spalte as String, s as String
    Sheets(„Tabelle1“).Select
    Open „datei.ini“ for Input As #1
    While Not Eof(1)
    Zeile = Zeile + 1
    Spalte = „A“
    Line Input #1, s
    Range(Spalte & cstr(Zeile)).Value = s 'Zelle = eingelesener String
    Wend
    Close #1
    end sub

dann natürlich das Makr starten:

  • Klick Extras-Makros
  • Klick iniMakro
  • Klick Ausführen

cu, holli

1 Like
#4

Danke !!!

insbesondere An Markus. Das wars !!!

Ralf