Помогите с фиксацией времени вывода данных

[zander]

Имеется код (приложение), который мониторит файл и выводит данные на лист EXcel при появлении новых. Данные выводятся в виде строк разделенных запятой, Возможно ли сделать фиксацию времени появления новых строк на листе Exel? Например так, что бы на этом листе (или на соседнем) в ячейке фиксировалось время появления новой строчки.

[EducatedFool]

На будущее - старайтесь прикреплять файлы в формате Excel 2003.
А то пока ещё не у всех установлен 2007-й Office...

Возможно ли сделать фиксацию времени появления новых строк на листе Exel?

Конечно, возможно. Одна строка кода:

[a1] = "Время последнего изменения файла - " & Now

Получится примерно так:

Sub DoFile()
    ThisFile = "C:\Documents and Settings\Игорь\Рабочий стол\Alex.csv"
    WrteInvenoty = 100
    Worksheets("Лист1").Cells.Clear
    FileNumber = FreeFile
    Open ThisFile For Input As #FileNumber
    Ctr = 0
    Do
        Line Input #FileNumber, Data
        Ctr = Ctr + 1
        Worksheets("Лист1").Cells(Ctr, 1).Value = Data
    Loop While EOF(1) = False
    Close #FileNumber

    Set Диапазон = Worksheets("Лист1").Cells(1, 1).Resize(Ctr, 1)
    Диапазон.TextToColumns Destination:=Диапазон, DataType:=xlDelimited, Comma:=True

    [a1] = "Время последнего изменения файла - " & Now
End Sub

[zander]

Важно получить и зафиксировать время появления каждой новой строки в текстовом файле. Или если точнее, то время импорта строчки из файла txt в Excel.