ОБРАБОТАТЬ TXT ФАЙЛ

[alex77777]

Здравствуйте!

Есть текстовый файл строка весь файл заполнен такими строками
(естест-но Ф.И.О меняется).
Как лучше обработать такую строку и вывести в Excell.


01/01/1922,111-111-111-11, ИВАНОВ, ИВАН, ИВАНОВИЧ
01/01/1922,111-111-111-11, ПЕТРОВ, ПЕТР, ПЕТРОВИЧ
...................

СПАСИБО.

[Ruslan Demidow]

alex77777
Так как в приведённом примере явно присутствует разделитель, то сам бог велел читать так же через них.
Т.е. читать каждую строку файла через разделитель.

Код: Выделить всё


Option Explicit

Private Sub Command1_Click()
Dim fNum As Integer, sFileName As String
Dim DateVar As String, StringVar As String, strLastName As String
Dim strFirstName As String, strMidleName As String

sFileName = "C:\Test.txt"
fNum = FreeFile
Open sFileName For Input As fNum
Do While Not EOF(fNum)
    Input #fNum, DateVar, StringVar, strLastName, strFirstName, strMidleName
    Debug.Print "DateVar=" & CDate(Replace(DateVar, "/", "."))
    Debug.Print "StringVar=" & StringVar
    Debug.Print "strLastName=" & strLastName
    Debug.Print "FirstName=" & strFirstName
    Debug.Print "MidleName" & strMidleName
    Debug.Print "==============================="
Loop
End Sub


[SHURUP]

не ругайте за флуд, но все-же … НЕ ЛЕГЧЕ ли через БД. (ибо выше изложенный автором топика файл и есть БД, но в малость извращенном варианте)

[alex77777]

Спасибо за ответ. Но мне нужно все данные ВЫВЕСТИ в EXCELL.

[GSerg]

Файл - Открыть - Текстовый файл. Появляется мастер импортирования.

[alex77777]

GSerg спасибо это я знаю. Просто задача так не стоит.
Нужно обработать файл, и занести в Excell. Всё.

[GSerg]

Код: Выделить всё

Private Sub Command1_Click()
  Dim i As Long, f As Integer, v As Variant
 
  With CreateObject("excel.application")
    With .workbooks.Add.worksheets(1)
      f = FreeFile
      Open "c:\file.txt" For Input Access Read As #f
      Do Until EOF(f)
        Line Input #f, v
        If Len(v) Then
          i = i + 1
          v = Split(v, ",")
          .range(.cells(i, 1), .cells(i, UBound(v) - LBound(v) + 1)).Value = v
        End If
      Loop
      Close #f
      .usedrange.Columns.autofit
    End With
    .Visible = True
  End With
End Sub

[alex77777]

GSerg Огромное спасибо за помощь.
Помогите если можно, а можно НЕ СОЗДАВАТЬ НОВЫЙ РАБ.ЛИСТ
А ЗАНЕСТИ ДАННЫЕ СРАЗУ В ЯЧЕЙКУ А11. БУДУ ОЧЕНЬ ВАМ ПРИЗНАТЕЛЕН.

[GSerg]

Самому не догадаться?

[alex77777]

я пытаюсь но не получается

[Amed]

Покопайся в MSDN - DOM. Надо заменить

Код: Выделить всё

.workbooks.Add.worksheets(1)

на что-то вроде

Код: Выделить всё

.activeworkbook.worksheets(1)