Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Exel и VB 6.0, не могу понять 
V
    Опции темы
Pugach
Дата 5.3.2007, 20:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 52
Регистрация: 3.10.2006

Репутация: 1
Всего: 1
Долго читал различные темы на форуме, и учебники, но так и не понял.
Бэйсик фор апликатионс и просто 6.0 - это разные вещи?

Можно ли из обычного VB 6.0 создать кодом файл EXEL, записать в определенные ячейки значения или формулы, сохранить?

Или открыть уже имеющийся exel файл, и считать формулы с ячеек или значения?

Бошка трещит уже.
Заранее спасибо
PM MAIL   Вверх
~FoX~
Дата 5.3.2007, 20:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЕ рыжий!!!
****


Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 10
Всего: 68
Цитата(Pugach @  5.3.2007,  21:16 Найти цитируемый пост)
Бэйсик фор апликатионс и просто 6.0 - это разные вещи?

Разные. ВБ6 самостоятельный язык программирования, ВБА составная часть пакета оффиса. Открвыем ексель - сервис - макросы - редактор Visual Basik.

Цитата(Pugach @  5.3.2007,  21:16 Найти цитируемый пост)
Можно ли из обычного VB 6.0 создать кодом файл EXEL, записать в определенные ячейки значения или формулы, сохранить?
Или открыть уже имеющийся exel файл, и считать формулы с ячеек или значения?

Можно. Ссылки смотри внизу страницы, читай ФАК...примеров килограмм....


--------------------
user posted image
…множественность никогда не следует полагать без необходимости…
PM MAIL WWW ICQ Jabber   Вверх
Pugach
Дата 5.3.2007, 21:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 52
Регистрация: 3.10.2006

Репутация: 1
Всего: 1
Испек следующий код (не работает) пишет ошибка компиляции в первой же строке:

Dim AppExel As Excel.Application
Dim WBK As Excel.Workbook
Dim WSH As Excel.Worksheet

Private Sub Command1_Click()

 'создаем ексель как объект
 Set AppExel = New Excel.Application
 AppExcel.Visible = True

 'открываем книгу
 Set WBK = AppExel.Application.Workbooks.Open("c:\book.xls")
   
 'операция
 range("A1").Value = 5
 range("A2").Value = 3
 range("A3").formula = "À1+À2"
 Text1.Text = range("A3").Value

 'уничтожение
 Set AppExcel = Nothing
End Sub
PM MAIL   Вверх
Naghual
Дата 6.3.2007, 00:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49
Необходимо к проекту подключить библиотеку Офиса.

Project -> References...
Ставиш голочку напротив "Microsoft Excel XX Object Library"




--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
Pugach
Дата 6.3.2007, 10:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 52
Регистрация: 3.10.2006

Репутация: 1
Всего: 1
Ура, работает спасибо
код:
Код

Dim AppExcel As Excel.Application
Dim WBK As Excel.Workbook
Dim WSH As Excel.Worksheet

Private Sub Command1_Click()

 Set AppExcel = New Excel.Application
 'AppExcel.Visible = True

 Set WBK = AppExcel.Application.Workbooks.Open("c:\book.xls")
   
  range("a1").Value = 5
 range("a2").Value = 3
 range("a3").formula = "=a1 + a2"
 Text1.Text = range("a3").Value

 Set AppExcel = Nothing
End Sub


Токо 1 маленький ньюанс - Excel файл пришлось создавать самому в указанном месте, иначе пишет что такой книги нет (как создать програмно?)
И еще, когда AppExcel.visible=true - активно файл после выполнения операции не закрывается и не удаляется.
PM MAIL   Вверх
Naghual
Дата 6.3.2007, 11:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49
Workbooks.Open  - Открытие существующей книги.
Workbooks.Add    - Создание новой книги.

Читайте батенька хелп.


--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
Pugach
Дата 6.3.2007, 19:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 52
Регистрация: 3.10.2006

Репутация: 1
Всего: 1
Workbooks.add у меня не работает, пищет ошибка 1004 не удалось найти файл (когда он заранее не создан)...


И еще, когда AppExcel.visible=true - активно файл после выполнения операции не закрывается и не удаляется. 
пробовал
Set WBK = AppExcel.Workbooks.Close
Set WBK = AppExcel.Workbooks.Delete           - уж не знаю можно ли так
PM MAIL   Вверх
Pugach
Дата 6.3.2007, 20:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 52
Регистрация: 3.10.2006

Репутация: 1
Всего: 1
Усе понял
Msdn - рулит.

Я раньше думал что это бодяга на английском.
Вот код
Код

Dim AppExcel As New Excel.Application
Dim WBK As Excel.Workbook
Dim WSH As Excel.Worksheet

Private Sub Command1_Click()
 
 Set AppExcel = New Excel.Application
 'AppExcel.Visible = True

  AppExcel.Workbooks.Add
   
 Range("a1").Value = 5
 Range("a2").Value = 3
 Range("a3").Formula = "=a1 + a2"
 Text1.Text = Range("a3").Value

 Set AppExcel = Nothing
End Sub

просто надо было New добавить
всем спасибо
PM MAIL   Вверх
observateur
Дата 6.3.2007, 21:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 176
Регистрация: 10.6.2006

Репутация: нет
Всего: нет
Добрый день. прошу вас помочь просьба такая…..например в VB 6.0 есть такой компонент RichTextBox с его помощю можно использоват Word-овские функции…
А можно ли использовать Excel-ские компоненты. Что бы было использовать точно так же как RichTextBox(не выйдя из приложения VB 6.0)
PM MAIL   Вверх
Дмит
Дата 6.3.2007, 22:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 117
Регистрация: 21.4.2006
Где: г.Волгоград

Репутация: 1
Всего: 9
Наверно тебе нужен "Microsoft Office Spreadsheet   ХХ.Х"
PM MAIL WWW   Вверх
observateur
Дата 6.3.2007, 22:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 176
Регистрация: 10.6.2006

Репутация: нет
Всего: нет
А не скажите где это находиться?
PM MAIL   Вверх
Дмит
Дата 7.3.2007, 19:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 117
Регистрация: 21.4.2006
Где: г.Волгоград

Репутация: 1
Всего: 9
Это - контрол, практически лист Excel'я. Находится тамже, где RichTextBox. Если нет на панели контролов, то добавь его.
PM MAIL WWW   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0570 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.