Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > Выгрузка из базы в excel

Автор: pretender 13.1.2008, 22:16

Доброго времени суток!

Есть две таблицы: группы и студенты.
Нужно выгрузить в excel в таком вот формате:

_____________
Группа 1

Иванов
Петров
Сидоров
_____________
Группа 2

Пупкин
Васильев
....
и .т.д.

Как выгрузать в одну таблицу я знаю, а вот как выгрузить из двух....
Если вдруг не понятно описал, то должно получиться что-то типа... прайс-листа, где есть группа товаров и товар в этой группе...

Автор: Akina 14.1.2008, 09:44

А в чем, собсно, проблема?

Код

' draft idea-only code - do not use directly!
set rs = openrecordset( _
  "select students.*, groups.* " & _
  "from students " & _
  "inner join groups " & _
  "on students.group_id = groups.id " & _
  "order by students.group_id, students.firstname")
currentgroup = ""
with rs
 .moveforst
 do until .eof
  if currentgroup <> !students.group_id then
   excelapp.activesheet.activecell = !group_name
   currentgroup = !students.group_id
  else
   excelapp.activesheet.activecell = !student_name
   .movenext
  end if
 excelapp.activesheet.selectnextcell
 loop
 .close
end with
set rs=nothing

Автор: pretender 16.1.2008, 22:50

Цитата(Akina @ 14.1.2008, 09:44)

А в чем, собсно, проблема?

Код


   excelapp.activesheet.activecell = !group_name

Ничего не понимаю... В этом месте выдает ошибку "Object doesn't support this property or method" !
Объявлял вот так:

Код


    Dim excelapp As New Excel.Application
    Set excelapp = New Excel.Application
    excelapp.Visible = True
    excelapp.Workbooks.Add

В чем может быть ошибка?

Автор: Akina 16.1.2008, 23:53

Цитата(pretender @ 16.1.2008, 23:50

)

В этом месте выдает ошибку

Ну ты код-то поправь! почем я знаю, как у тебя там поля называются! Ведь специально написал, что это драфт, идея, а НЕ КОД!!!

Автор: pretender 16.1.2008, 23:56

Так ошибка происходит вот из-за этого кода:

Код


excelapp.activesheet.activecell

Это не из-за названия поля!!!

Получается что excelapp не поддерживает свойство или метод!

Из твоего примера:

Код


excelapp.activesheet.activecell = !group_name

в !group_name хранится то что нужно!!!

Автор: Akina 17.1.2008, 08:38

Цитата(pretender @ 17.1.2008, 00:56

)

ошибка происходит вот из-за этого кода

Этот код тебе говорит, что надо для управляемого приложения Эксель на активном листе получить ссылку на активную ячейку, чтобы положить туда требуемое значение. А вот КАК это сделать, какие методы и свойства использовать - это ТЕБЕ предстоит выяснить и подставить вместо шаблона.

M
Akina

А если не хочешь ничего делать самостоятельно, если тебе нужно получить полностью готовый код, сделанный кем-то другим - только намекни, и тема улетит в "Центр помощи".

Автор: pretender 18.1.2008, 12:14

Зачем было переносить? Уже разобрался сам. Код такой:

Код


Dim col As Integer
    Dim cel As Integer
    Dim XL As New Excel.Application
    col = 1
    cel = 2
    Set XL = New Excel.Application
    XL.Visible = True
    XL.Workbooks.Add
    
    XL.Cells(1, 1).CurrentRegion.EntireColumn.AutoFit
    
    rs_Price.Open "Select Goods.*, GroupTv.* From Goods Inner join GroupTv on Goods.GroupCode=GroupTv.ID order by Goods.GroupCode, GroupTv.Groups", cn, adOpenStatic, adLockOptimistic
    currentgroup = ""
    With rs_Price
        .MoveFirst
        Do Until .EOF
            If currentgroup <> !GroupCode Then
                XL.ActiveCell.CurrentRegion.EntireColumn.AutoFit
                XL.Selection.HorizontalAlignment = 3
                XL.Selection.Font.Bold = True
                XL.ActiveCell = !Groups
                currentgroup = !GroupCode
            Else
                XL.ActiveCell = !Name
                XL.Cells(col, cel) = !Measure
                XL.Cells(col, cel + 1) = !Cost
                .MoveNext
            End If
            col = col + 1
            XL.Cells(col, 1).Select
        Loop
        .Close
    End With
    Set rs_Price = Nothing
    Set XL = Nothing
    XL.Quit

Спасибки всем за помощщщщ!!!

Автор: Akina 18.1.2008, 12:27

Цитата(pretender @ 18.1.2008, 13:14

)

Зачем было переносить?

По ошибке...

Автор: AlexeyW 18.1.2008, 13:24

Помогите ! Есть прога написана на VB6 к ней база ципляеться mdb! надо сделать выгрузку (экспорт) в excel! Желательно в созданный шаблон! Заплачу 200 руб. за рабочий код!

Автор: Dexx 20.1.2008, 01:20

Легко но не за 200 р
Лучще сам дойди до того как это делается!
Тут за тебя ни кто и ни чего делать не будет!! Вот.