Новости:

Теперь на форум можно залогиниться / зарегистрироваться с помощью ВКонтакте. Уже существующие пользователи могут связать свою учетную запись с аккаунтом ВКонтакте одним кликом в профиле пользователя http://forum.msexcel.ru/index.php?action=profile;area=account

Главное меню

нужно выдернуть из файла TXT значения в таблицу Excel

Автор tyken, 09.02.2012, 16:47

« назад - далее »

tyken

добрый день всем.
Может мне кто-ть помочь с одной задачей, нужно из файла 1.txt выдернуть значения и поместить их в определенное место в таблице Excel.

Пример файла 1.txt

****************************************************************
           1   Номер такта
           1   Номер выборки в такте
           1   Сквозной номер выборки
  0.0000000E+00   Текущее время начала выборки в секундах
           1   Номер объекта
   10000.00       Дистанция до объекта в метрах
  -90.00000       Курсовой угол объекта в градусах
  -10000.00       Координата X объекта в метрах
  0.0000000E+00   Координата Y объекта в метрах
****************************************************************
           1   Номер такта
           2   Номер выборки в такте
           2   Сквозной номер выборки
   1.365333       Текущее время начала выборки в секундах
           1   Номер объекта
   9995.032       Дистанция до объекта в метрах
  -90.01181       Курсовой угол объекта в градусах
  -9995.032       Координата X объекта в метрах
   4.967943       Координата Y объекта в метрах
****************************************************************
           1   Номер такта
           3   Номер выборки в такте
           3   Сквозной номер выборки
   2.730667       Текущее время начала выборки в секундах
           1   Номер объекта
   9990.065       Дистанция до объекта в метрах
  -90.02359       Курсовой угол объекта в градусах
  -9990.064       Координата X объекта в метрах
   9.935886       Координата Y объекта в метрах


В итоге в таблице Excel должно получиться следующее:

1   1   1   0.0000000E+00   1   10000.00   -90.00000   -10000.00   0.0000000E+00
1   2   2   1.365333           1   9995.032   -90.01181   -9995.032   4.967943
1   3   3   2.730667           1   9990.065   -90.02359   -9990.064   9.935886


В ручную это делать проблематично, т.к. таких пунктов порядка 300. Может кто подсказать как это реализовать?

exceleved

Пробуйте макрос
Sub tyken()
Dim s, i&, j&
s = Application.GetOpenFilename("Text Files (*.txt),*.txt,All Files (*.*),*.*", , "Выберите файл")
If s = "False" Then Exit Sub
Open s For Input As #1
With Workbooks.Add.Sheets(1)
   i = 1
   Do Until EOF(1)
       Line Input #1, s
       If Left$(Trim$(s), 3) = "***" Then
           i = i + 1: j = 0
       Else
           j = j + 1
           .Cells(i, j) = Val(s)
       End If
   Loop
End With
Reset
End Sub