Страницы: 1
RSS
динамический вывод данных из Excel в блокнот
 
Здравствуйте!  
Книга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  
 
Заранее благодарен.
 
Повесьте этот макрос на событие Change листа. Он будет выполняться при изменении значений в указанных ячейках
 
{quote}{login=lanerus}{date=10.08.2012 10:56}{thema=}{post}Повесьте этот макрос на событие Change листа. Он будет выполняться при изменении значений в указанных ячейках{/post}{/quote}
 
{quote}{login=lanerus}{date=10.08.2012 10:56}{thema=}{post}Повесьте этот макрос на событие Change листа. Он будет выполняться при изменении значений в указанных ячейках{/post}{/quote}lanerus, событие Change не наступит при обновлении по DDE.
 
И при пересчёте тоже...  
А вот само событие пересчёта можно использовать.  
 
http://www.planetaexcel.ru/forum.php?thread_id=3146
 
{quote}{login=Hugo}{date=10.08.2012 11:29}{thema=}{post}И при пересчёте тоже...  
А вот само событие пересчёта можно использовать.  
 
http://www.planetaexcel.ru/forum.php?thread_id=3146{/post}{/quote}  
 
Спасибо, скачал все вложения, просмотрел код - ничего не понял. Данные у меня выводятся в столбцах А1:А21, В1:В21, а анализ данных идет по формуле в других ячейках текущего листа. Попробовал совместить оба макроса - ругается VB((
 
Всем спасибо за участие. Я получил готовый код на другом форуме с четким разъяснением принципа его работы.  
тема закрыта
Страницы: 1
Читают тему
Наверх