Запись/чтение файлов в Excel

' Помести в 'ЭтаКнига' (или 'ThisWorkBook'):
'
' (это работает, даже если лист shName не является активным - т.е. ячейка stLoc изменяется
' на нём не вручную, а программно. Это не работает, если ячейка изменяется по Calculate)
'
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  If (shName = '' Or Sh.Name = shName) And (Target.Address(RowAbsolute:=False, _
                                                 ColumnAbsolute:=False) = stLoc) Then
      fN = FreeFile ' первый свободный номер для файла
      Open fName For Append As fN ' открываем файл для записи в режиме 'добавки в конец'
      Print #fN, Format(Now, 'dd:mm:yyyy hh:mm:ss') + vbTab + Sh.Range(Target.Address).Text
'      ' пишем в него дату/время изменения ячейки и её новое содержимое, разделённые TAB-ом
      Close fN
  End If
End Sub
'
' Помести это в МОДУЛЬ, содержащийся в той же книге:
'
Public Const stLoc = 'A1'            '  это адрес меняющейся 'строки' (точнее - ячейки)
Public Const shName = 'Лист1'        '  на каком листе эта ячейка; задайте пустую строку, чтобы
'                                    '    ячейка stLoc бралась просто с текущего листа
Public Const fName = 'C:    racer.txt' '  имя файла, в который пишется история изменения 'строки'
 
Sub Main()
  Dim fN As Integer, rez As Byte, st As String
  Dim topLeft As String, bottomRight As String
  Dim arr As Variant
  '
  rez = MsgBox('Извлечь в текущий лист историю изменения ячейки ' + stLoc + '?', vbYesNo + _
        vbQuestion, 'Вопрос')
  If rez = vbNo Then Exit Sub
  '
  ' Готовим 'поле' под будущую табличку:
  '
  topLeft = Selection.Address ' запоминаем верхний левый угол нашей будущей таблички
  ActiveCell.EntireColumn.Select ' выделяем всю текущую колонку
  Selection.NumberFormat = 'dd:mm:yyyy hh:mm:ss' ' форматируем под 'дату/время'
  ActiveCell.Offset(columnOffset:=1).EntireColumn.Select ' выделяем колонку, что правее
  Selection.NumberFormat = 'General' ' форматируем под 'общий'
  ActiveSheet.Range(topLeft).Select ' встаём в точности обратно
  '
  '
  fN = FreeFile ' первый свободный номер для файла
  Open fName For Input As fN ' открываем файл для чтения из него
  While Not EOF(fN)
    Line Input #fN, st ' читаем из файла строку
    arr = Split(st, vbTab) ' разбиваем её на части (по знаку табуляции - получится 2 части)
    Selection = arr(0) ' в текущую ячейку пишем первую часть (дата/время)
    Selection.Offset(columnOffset:=1).Select ' сдвигаемся на колонку вправо
    Selection = arr(1)

Public WithEvents qtQueryTable As QueryTable ' описываем объект типа QueryTable
'
Sub InitQueryEvent(QT As Object)
  ' пишем некую процедуру с любым именем. Так уж устроено, что она станет МЕТОДОМ для
  ' данного класса, т.е. при создании в другом модуле экземпляра класса ClsModQT при
  ' нажатии точки после имени этого экземпляра выкинется список, в котором будет видно
  ' имя этой процедуры, помеченное зелёным прямоугольником (символом МЕТОДА)
  '
  Set qtQueryTable = QT   ' весь смысл - сопоставить наш объект типа QueryTable реальной
                          ' и живой таблице с внешними данными, которую передали этой
                          ' процедуре в качестве входного параметра (т.е. через QT)
End Sub
'
Private Sub qtQueryTable_AfterRefresh(ByVal Success As Boolean)
  ' После выполнения процедуры InitQueryEvent (и только после этого) событие AfterRefresh
  ' будет относиться, на самом деле, к той реальной таблице, которую 'скормили' процедуре
  ' InitQueryEvent в качестве входного параметра.
  
  MsgBox 'Произошло обновление данных (событие AfterRefresh) !' ' <<< замените на свой код
End Sub

Private Sub Workbook_Open()
  ' Эта процедура выполнится при каждом открытии данной книги Excel
  '
  Static clsQueryTable As ClsModQT ' описываем переменную типа 'ClsModQT' - нашего
                                   ' самодельного класса, внутри которого описан объект
                                   ' qtQueryTable. Описываем как Static, чтобы переменная
                                   ' жила в течение всего времени, пока открыта эта книга
  '
  Set clsQueryTable = New ClsModQT ' создаём экземпляр класса, помещаем его в эту переменную
  '
  clsQueryTable.InitQueryEvent QT:=ActiveSheet.QueryTables(1) ' вызываем метод InitQueryEvent
     ' для экземпляра класса, передавая ему в качестве именованного аргумента ПЕРВУЮ таблицу
     ' с внешними данными, попавшуюся на активном листе открытой книги. Единственная цель
     ' этого действия - чтобы внутри класса ClsModQT объект qtQueryTable стал соответствовать
     ' этой самой реальной и живой таблице: тогда можно будет работать с таким событием, как
     ' qtQueryTable_AfterRefresh, имея при этом в виду рефреш РЕАЛЬНОЙ таблицы !
     '
End Sub