• Bart
  • Восстановленный участник
  • На форуме с 22 марта 2002г.
  • Сообщений: 8
  • Спасибо: 0

Тема: VBA (данные из текстового файла)

Не подскажете, как мне на VBA написать, чтобы программа брала данные из текстового файла, причем построчно. Одни данные текстовые, следующая строка числа, и т.д.

  • KirBIBA
  • Восстановленный участник
  • На форуме с 28 января 2002г.
  • Сообщений: 26
  • Спасибо: 0

Re: VBA (данные из текстового файла)

Dim n1 As Long
     Dim n2 As integer

     ff = FreeFile
     Open "c:\temp\dump.txt" For Input As ff
GetLine: If EOF(ff) = True Then Close: Exit Sub
     
    Line Input #ff, s$
    MsgBox s$
     
     Input #ff, n1
     MsgBox n1

     Input #ff, n2
     MsgBox n2

     GoTo GetLine: