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

16.08.2009, 20:39. **Показов** 5741. **Ответов** 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

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

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

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

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

rikky

	Можно ли сохранить данные из Visual Basic 6 или 2008 в Excel 2003 или 2007? 16.08.2009, 20:39. Показов 5741. Ответов 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
	Спасибо огромное я уже третию неделю бьюсь над решением этой проблеммы что мне только не предлогали , а утебя все так просто и главное работает . еще раз огромное спасибо !!!!!!!!!!!!!!!!! если свидимся с меня ПИВО

Опции темы