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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Выборка => Exel 
:(
    Опции темы
Sergmugb
Дата 14.12.2004, 06:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 11
Регистрация: 18.11.2004
Где: ХМАО г.Покачи

Репутация: нет
Всего: нет
как передать данные, из выполненного запроса в Exel
PM MAIL   Вверх
Staruha
Дата 14.12.2004, 09:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 2
Всего: 27
Тебе нужно новую книгу создать,или она уже есть?Информации маловато.


--------------------
Возмездие настигнет
PM MAIL   Вверх
Naghual
Дата 16.12.2004, 15:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 26
Всего: 49
Старуха, это не суть важно.

Суть важно то, что необходимо создать в приложении экземпляр приложения Excel.
Открыть в нем книгу (новую или существующую).
И цыклом выгрузить значения в ячейки листа книги.


Sergmugb
А что именно у тебя не получается? В чем собственно проблема?


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


Эксперт
***


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

Репутация: 2
Всего: 27
Создаем книгу и столбцы,задаем формат
Код


 Option Explicit
Private Sub CommandButton1_Click()
Dim oXL As Excel.Application
     Dim oWB As Excel.Workbook
     Dim oSheet As Excel.Worksheet
     Dim oRng As Excel.Range
     

     'On Error GoTo Err_Handler
     
  ' Start Excel and get Application object.
     Set oXL = CreateObject("Excel.Application")
     oXL.Visible = True
     
  ' Get a new workbook.
     Set oWB = oXL.Workbooks.Add
     Set oSheet = oWB.ActiveSheet
     
  ' Add table headers going cell by cell.
     oSheet.Cells(1, 1).Value = "First Name"
     oSheet.Cells(1, 2).Value = "Last Name"
     oSheet.Cells(1, 3).Value = "Full Name"
     oSheet.Cells(1, 4).Value = "Salary"
     

  ' Format A1:D1 as bold, vertical alignment = center.
   
     With oSheet.Columns("A")
        .NumberFormat = "dd/mm/yy"
        .VerticalAlignment = xlVAlignCenter
     End With
End Sub



--------------------
Возмездие настигнет
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

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

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

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

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

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

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


 




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


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

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