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

rikky · 16.08.2009, 21:39

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

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

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

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

alex77755 · 25.08.2009, 13:12

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

rikky · 26.08.2009, 23:54

Цитата:

alex77755 (25.08.2009)
Dim Ex As New Excel.Application

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

Ex.Visible = False

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

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

Ex.ActiveWorkbook.Save

Ex.ActiveWorkbook.Close

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

http://s47.radikal.ru/i118/0908/66/3c939c5e84ca.jpg

alex77755 · 04.10.2009, 14:00

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

rikky · 29.10.2009, 02:57

Цитата:

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

ёмаё как?

alex77755 · 30.10.2009, 16:09

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

azozello · 09.12.2009, 04:03

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

For i=0 To 24

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

Next

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

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

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

alex77755 · 09.12.2009, 11:07

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

Код 
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

azozello · 10.12.2009, 00:35

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

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

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

16.08.2009, 21:39	#1
rikky Новичок Регистрация: 16.08.2009 Сообщений: 9	Можно ли сохранить данные из Visual Basic 6 или 2008 в Excel 2003 или 2007? Подскажите пожалуйста, можно ли сохранить данные из Visual Basic 6 или 2008 в Excel 2003 или 2007? Пример: у меня программа (написанная в барсике) и файл .xls . Можно ли из формы сохранить в этот файл в определённую клетку данные из определённого оъекта VB (текстбокс например). И как взять информацию из определённой ячейки в текстбокс? Заранее спасибо!

25.08.2009, 13:12	#2
alex77755 Новичок Регистрация: 19.04.2009 Сообщений: 11	RE: из Visual Basic в Excel Dim Ex As New Excel.Application Ex.Workbooks.Open "Путь к Файлу" Ex.Visible = False 'В ячейку "A2" добавляем "Visual Basic" Ex.ActiveWorkbook.Sheets.Application.Range("A2") = "Visual Basic" Ex.ActiveWorkbook.Save Ex.ActiveWorkbook.Close

04.10.2009, 14:00	#4
alex77755 Новичок Регистрация: 19.04.2009 Сообщений: 11	RE: из Visual Basic в Excel Так в ссылках надо подключит библиотеку Ексел

30.10.2009, 16:09	#6
alex77755 Новичок Регистрация: 19.04.2009 Сообщений: 11	RE: из Visual Basic в Excel Разработать - Ссылки - поставить галку напротив Микрософт Ёксёл обьект либрару

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

10.12.2009, 00:35	#9
azozello Новичок Регистрация: 08.12.2009 Сообщений: 2	RE: из Visual Basic в Excel Спасибо огромное я уже третию неделю бьюсь над решением этой проблеммы что мне только не предлогали , а утебя все так просто и главное работает . еще раз огромное спасибо !!!!!!!!!!!!!!!!! если свидимся с меня ПИВО

Опции темы
Версия для печати Отправить по электронной почте

Похожие темы
Тема	Автор
web сервисы через SOAP Toolkit 3.0 Visual Basic <SPAN class=postbody>Добрый день. Я пытаюсь вызвать web сервисы через <STRONG>Microsoft SOAP Toolkit 3.0</STRONG>. Т.е создаю новый сом объект, затем метод...	Selestina
Visual Basic как подключить модуль и использовать его в VB 2008? Я знаю, что в VB можно подключить типа компилятор (другой) и его использовать. Мне нужно "соеденить" программу "Maxima" (инфо о проге: http://ru.wikipedia.org/wiki/Maxima) с программой, написанной в...	rikky
Visual Basic ПЕРИОДИЧЕСКАЯ БЛОКИРОВКА ПОТОКА Здравствуйте, мне требуется отслеживать на клиенте посылаемые и получаемые Интернет потоки (обращение к определенному домену) и фильтровать их, некоторые пропуская, а некоторые задерживая, чтобы они...	Ilyatt
Visual Basic Загрузка страницы с использованием прокси через WinInet API Оч нужно загрузить страницу используя прокси. Использую для этого код: Public Const INTERNET_OPEN_TYPE_PRECONFIG = 0 Public Const INTERNET_OPEN_TYPE_DIRECT = 1 Public Const...	vasjos
Формирование отчетов на основании шаблона Visual Basic Добрый день! Есть вопрос такого содержания: есть табличка с наимеваниями товара для отгрузки покупателю, необходимо на основании ее и шаблона (который иногда видимо придется изменять) лежашего в...	slaykursk
Visual Basic Защитить от изобретательных юзверей лист Как защитить лист от просмотра, но БЕЗ пароля (руководству "неудобно" пароль каждый раз вводить)? Sheets("Лист1").Visible = 2 не помогает, ибо лист можно отобразить из другой книги. Заранее...	Adviser-faa

Ads