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

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

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

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

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

Новые блоги и статьи Все статьи Все блоги /
Загрузка PNG-файла с альфа-каналом с помощью библиотеки SDL3_image на Android 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом

rikky

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