Работа с Excel: Начиная со второго листа записывать в файл значение одной из ячеек

@Andrei72 · Регистрация: 02.02.2012

Студворк — интернет-сервис помощи студентам

Помогите рашить такую задачу, не могу организовать процесс:

Есть некий файл Excel с некотрым числом страниц (в каждой книге разное), необходимо открыть его программно с присвоением некоторых ячеек в переменные, к примеру:

Есть файл эксель, программно узнал количество листов в нем:

VB.NET
1
Listov = oExcel.Worksheets.Count()

Допустим равно 32 листам.

Первая страница титульная, поэтому надо чтобы начиная со второй страницы из ячейки A1 в переменную х записывается значение, после чего значение из этой переменно (после некоторой обработки) записывается в текстовый файл.
После чего все повторятся: из 3 листа из ячейки A1 в переменную х записывается значение и потом дописывается в существующих текстовый файл.
И так до 32 страницы (столько сколько страниц), после чего вылазит сообщение о удачной записи.

Либо чтобы создавалось столько переменных сколько листов (минус 1 титульный), тоесть:
х2, х3...х32 и потом все записывается в текстовый файл.

Пожайлуста помогите!

@kOS_77 · 14.06.2012, 18:42

А зачем переменная то ? пиши сразу в файл...

Сейчас напишу код примера.

@Andrei72 · 14.06.2012, 18:55 **[ТС]**

Буду очень признателен за пример. Сразу в файл конечно хорошо, но у меня будет еще корректировка происходить и форматирование в DOS кодировку в конце.

Допустим в ячейке А1 записано 7665 а в ячейке А2 987, то в итоге в текстовик будет записано:

7665.987.=?

@kOS_77 · 14.06.2012, 19:24

Так корректируй сразу

VB.NET
1
2
3
4
5
6
7
8
9
10
Dim Запись_в_файл As New IO.StreamWriter("c:\test.txt", True) ' true - это значит Дозапись в 
'файл, т.е.  файл будет открываться и содержимое в него будет дописываться не удаляя данные 
'которые там уже есть
      
  For i = 2 To oExcel.Worksheets.Count() 'Счетчик циклов - выполняет циклы от 2 до *кол-ва страниц*
            Dim X, Y As String ' Здесь все понятно
            X = oExcel.sheets(i).range("A1") ' Присваиваем переменной X Значение из ячейки
            Y = oExcel.sheets(i).range("A2") ' Присваиваем переменной Y Значение из ячейки
            Запись_в_файл.WriteLine(X & "." & Y & ".") ' Делаем запись в файл и обрабатываем как в примере:)
        Next

@Andrei72 · 14.06.2012, 19:32 **[ТС]**

kOS_77, ты гений! спасибо большое, красивый код )) надеюсь все получится

@kOS_77 · 14.06.2012, 19:36

Да забыл еще, в коде перед Next поставь строчку с содержимым Запись_в_файл.Close а то следующий цикл не получит доступ к файлу.

Должно быть так:

VB.NET
1
2
3
4
5
6
7
8
Dim Запись_в_файл As New IO.StreamWriter("c:\test.txt", True)
        For i = 2 To oExcel.Worksheets.Count()
            Dim X, Y As String
            X = oExcel.sheets(i).range("A1")
            Y = oExcel.sheets(i).range("A2")
            Запись_в_файл.WriteLine(X & "." & Y & ".")
            Запись_в_файл.Close()
        Next

Не по теме:

А гений у нас тут Памирыч:D

Новые блоги и статьи Все статьи Все блоги /
Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек SDL3 и Box2D из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия SDL 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual. . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»

@kOS_77 196 / 188 / 9 Регистрация: 14.06.2011 Сообщений: 495
	14.06.2012, 18:42
	А зачем переменная то ? пиши сразу в файл... Сейчас напишу код примера. 0

@Andrei72 0 / 0 / 0 Регистрация: 02.02.2012 Сообщений: 60
	14.06.2012, 18:55 [ТС]
	Буду очень признателен за пример. Сразу в файл конечно хорошо, но у меня будет еще корректировка происходить и форматирование в DOS кодировку в конце. Допустим в ячейке А1 записано 7665 а в ячейке А2 987, то в итоге в текстовик будет записано: 7665.987.=? 0

@Andrei72 0 / 0 / 0 Регистрация: 02.02.2012 Сообщений: 60
	14.06.2012, 19:32 [ТС]
	kOS_77, ты гений! спасибо большое, красивый код )) надеюсь все получится 0