Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - VBA

Страница: 1 |

 

  Вопрос: Содержание ячеек Excel в txt Добавлено: 24.12.09 12:06  

Автор вопроса:  Mega-Mega
Парни, вопрос:

Как выгрузить с пом. VBA содержимое определённых ячеек листа Excel в текстовый файл?

Пару любых ячеек xls по строчно/в одну строку txt?

Ответить

  Ответы Всего ответов: 2  

Номер ответа: 1
Автор ответа:
 Саня



ICQ: 553816426 

Вопросов: 10
Ответов: 99
  Профиль | | #1 Добавлено: 24.12.09 13:22
  1. Dim strText As String 'обьявляем переменную для сбора значений
  2. Range("A1").Select 'выбираем ячейку А1
  3. strText = strText & Str(ActiveCell.Value) & vbNewLine 'Берем переменную добавляем значение ячейки (преобразованое в текст и добавляем переход на новую строку
  4. Range("A2").Select 'и так дальше
  5. strText = strText & Str(ActiveCell.Value) & vbNewLine
  6. Range("A3").Select
  7. strText = strText & Str(ActiveCell.Value) & vbNewLine
  8. Dim I As Integer 'переменная для значения номера свободного канала доступа к файлу
  9. I = FreeFile 'получаем значение
  10. Open "C:\Text.txt" For Output As #I 'открываем файл для записи (ели в файле что то было он будет перезаписан)
  11. Print #I, strText 'Записываем все в файл
  12. Close #I 'закрываем файл

Ответить

Номер ответа: 2
Автор ответа:
 Саня



ICQ: 553816426 

Вопросов: 10
Ответов: 99
  Профиль | | #2 Добавлено: 24.12.09 13:28
Если надо чтобы данные дописывались в файл то
  1. Open "C:\Text.txt" For Append As #I

вместо
  1. Open "C:\Text.txt" For Output As #I

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам