Можно ли сохранить данные из Visual Basic 6 или 2008 в Excel 2003 или 2007?

16.08.2009, 20:39. **Показов** 5749. **Ответов** 8

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

Подскажите пожалуйста, можно ли сохранить данные из Visual Basic 6 или 2008 в Excel 2003 или 2007?

Пример: у меня программа (написанная в барсике) и файл .xls . Можно ли из формы сохранить в этот файл в определённую клетку данные из определённого оъекта VB (текстбокс например).

И как взять информацию из определённой ячейки в текстбокс?

Заранее спасибо!

25.08.2009, 12:12

Dim Ex As New Excel.Application
Ex.Workbooks.Open "Путь к Файлу"
Ex.Visible = False
'В ячейку "A2" добавляем "Visual Basic"
Ex.ActiveWorkbook.Sheets.Application.Ran ge("A2") = "Visual Basic"
Ex.ActiveWorkbook.Save
Ex.ActiveWorkbook.Close

26.08.2009, 22:54

alex77755 (25.08.2009)
Dim Ex As New Excel.Application

Ex.Workbooks.Open "Путь к Файлу"

Ex.Visible = False

'В ячейку "A2" добавляем "Visual Basic"

Ex.ActiveWorkbook.Sheets.Application.Ran ge("A2") = "Visual Basic"

Ex.ActiveWorkbook.Save

Ex.ActiveWorkbook.Close

пишет ошибку =(

[img]http://s47.***********/i118/0908/66/3c939c5e84ca.jpg[/img]

04.10.2009, 13:00

Так в ссылках надо подключит библиотеку Ексел

29.10.2009, 01:57

alex77755 (04.10.2009)
Так в ссылках надо подключит библиотеку Ексел

ёмаё как?

30.10.2009, 15:09

Разработать - Ссылки - поставить галку напротив Микрософт Ёксёл обьект либрару

09.12.2009, 03:03

многоуважаемые програмисты у мне похожая проблема только данные заводились в таблицу FlexGrid через оператр For и TextMatrix

For i=0 To 24

t1.TextMatrix(i, 1)=CStr(i*50) ' t1-название таблицы в VB6

Next

в ней 12 столбцов и 24 строки

теперь нужно данную таблицу перекинуть в подготовленую таблицу-шаблон excel с макросами

Помогите пожалуйста реализовать данную операцию .Вводить в каждую ячейку екселя черезчур муторно (как было предложено ранее для определенных областей VB6)

09.12.2009, 10:07

Где-то так. не проверял

Code
1
2
3
4
5
6
7
8
9
10
11
Private Sub Комманда1_Click()
Dim Ex As New Excel.Application
Dim i, j
Ex.Workbooks.Open "c:   est3.xls"
Ex.Visible = True
For i = 1 To 24
        For j = 1 To 12
        Ex.ActiveWorkbook.Sheets.Application.Cells(i, j).Value = t1.TextMatrix(i, j)
        Next j
Next i
End Sub

09.12.2009, 23:35

Спасибо огромное я уже третию неделю бьюсь над решением этой проблеммы что мне только не предлогали , а утебя все так просто и главное работает .

еще раз огромное спасибо !!!!!!!!!!!!!!!!!

если свидимся с меня ПИВО

Новые блоги и статьи Все статьи Все блоги /
Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .

rikky

	Можно ли сохранить данные из Visual Basic 6 или 2008 в Excel 2003 или 2007? 16.08.2009, 20:39. Показов 5749. Ответов 8 Метки нет (Все метки) Подскажите пожалуйста, можно ли сохранить данные из Visual Basic 6 или 2008 в Excel 2003 или 2007? Пример: у меня программа (написанная в барсике) и файл .xls . Можно ли из формы сохранить в этот файл в определённую клетку данные из определённого оъекта VB (текстбокс например). И как взять информацию из определённой ячейки в текстбокс? Заранее спасибо!

alex77755
	25.08.2009, 12:12
	Dim Ex As New Excel.Application Ex.Workbooks.Open "Путь к Файлу" Ex.Visible = False 'В ячейку "A2" добавляем "Visual Basic" Ex.ActiveWorkbook.Sheets.Application.Ran ge("A2") = "Visual Basic" Ex.ActiveWorkbook.Save Ex.ActiveWorkbook.Close

alex77755
	04.10.2009, 13:00
	Так в ссылках надо подключит библиотеку Ексел

alex77755
	30.10.2009, 15:09
	Разработать - Ссылки - поставить галку напротив Микрософт Ёксёл обьект либрару

azozello
	09.12.2009, 03:03
	многоуважаемые програмисты у мне похожая проблема только данные заводились в таблицу FlexGrid через оператр For и TextMatrix For i=0 To 24 t1.TextMatrix(i, 1)=CStr(i*50) ' t1-название таблицы в VB6 Next в ней 12 столбцов и 24 строки теперь нужно данную таблицу перекинуть в подготовленую таблицу-шаблон excel с макросами Помогите пожалуйста реализовать данную операцию .Вводить в каждую ячейку екселя черезчур муторно (как было предложено ранее для определенных областей VB6)

azozello
	09.12.2009, 23:35
	Спасибо огромное я уже третию неделю бьюсь над решением этой проблеммы что мне только не предлогали , а утебя все так просто и главное работает . еще раз огромное спасибо !!!!!!!!!!!!!!!!! если свидимся с меня ПИВО