Здравствуйте!  
Книга1.xlsm лист1 непрерывно получает данные через DDE-сервер. Есть ячейки, в которых эти данные обрабатываются по формуле, результат обработки почти всегда разный и его необходимо выводить в блокнот при каждом его изменении. Нашел на http://mirvba.ru/makrosi-excel/eksport-dannich-iz-excel-v-txt.html макрос - почти то, что нужно, Но! его необходимо вручную запускать, а мне нужен непрерывный вывод в блокнот, как только Книга1.xlsm лист1 начинает получать данные через DDE. На выше указанном сайте ответа на этот вопрос пока не дали.Вот сам макрос:  
Sub ExportAsText()  
  Dim lngRow As Long  
  Dim intCol As Integer  
   
  ' Открываем файл для сохранения  
  Open "C:\primer.txt" For Output As #1  
  ' Записываем выделенную части таблицы в файл (построчно)  
  For lngRow = 1 To Selection.Rows.Count  
     ' Записываем содержимое всех столбцов строки lngRow  
     For intCol = 1 To Selection.Columns.Count  
        Write #1, Selection.Cells(lngRow, intCol).Value;  
     Next intCol  
     ' следующая строка  
     Print #1, ""  
  Next lngRow  
  ' закрываем  
  Close #1  
End Sub  
 
Заранее благодарен.

Уважаемые обитатели форума подскажите плиз... Возможно я просмотрел похожую тему, поправьте, если что. Вот такой макрос:  
Function dhLastColUsedCell(rgColumn As Range) As Variant  
' Вывод значения последней непустой ячейки столбца  
  dhLastColUsedCell = rgColumn.Parent.Cells(Rows.Count, _  
   rgColumn.Column).End(xlUp).Value  
End Function  
Работает - не нарадуюсь, Но в этом столбце у меня забита формула:  
=ЕСЛИ(RC[-9]>0;((RC[-6]+RC[-3])/2-RC[-1])/RC[-1]*100;НД())
НД() -чтобы график нули не рисовал, но ячейки отображаются как НД() и макрос считает, что они не пустые. А мне надо вывести последнюю ячейку столбца где эта формула принимает числовое значение. Заранее благодарен