Ответы на все вопросы

FAQ / Программирование / Visual Basic

Как читать и записывать данные в книге Excel из VB?

Вопрос:

Если есть у кого-нибудь пример как записывать и считывать данные из ячеек Excel-я в VB?

Ответ:

Вот пример как можно работать с Exelem
Вставляем этот код в обработку какой-нибудь кнопки.

Dim EXL As Object
Dim STR As String
'создаем объект
Set EXL = CreateObject("Excel.Sheet")
Set EXL = EXL.Application.ActiveWorkbook.ActiveSheet

'Заносим данные в ячейки
EXL.Range("A1").Value = "Пробный"
EXL.Range("B1").Value = "Файл"
EXL.Range("C1").Value = "по"
EXL.Range("D1").Value = "Работе"
EXL.Range("E1").Value = "с Exelem"

'Изменяем шрифт и.т.д.
EXL.Range("A1").Font.Bold = True
EXL.Range("A1").Font.Size = 16

'Берем данные из ячеек
STR = EXL.Range("A1").Value & EXL.Range("B1").Value & _
EXL.Range("C1").Value & EXL.Range("D1").Value & _
EXL.Range("E1").Value

'сохраняем Excel документ на диске
On Error Resume Next
EXL.SaveAs App.Path & "\Proba.xls"
'удаляем объект из памяти
Set EXL = Nothing

  Единственное ограничение: код будет работать только на машине с установленным Excel'ем.
  Еще можно заморочиться, раздобыть описание формата Excel'евских файлов и написать алгоритм чтения этих файлов самому, но стоит ли так морочиться?

Мунгалов АВ, Kirill

Версия для печати Найти похожие статьи
Поиск по сайту

Архив

ВсПнВтСрЧтПтСб
1234567
891011121314
15161718192021
22232425262728
293012345
6789101112
13141516171819
20212223242526
272829303112



Мы рекомендуем