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

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

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

Автор: Sergmugb 14.12.2004, 06:58

как передать данные, из выполненного запроса в Exel

Автор: Staruha 14.12.2004, 09:58

Тебе нужно новую книгу создать,или она уже есть?Информации маловато.

Автор: Naghual 16.12.2004, 15:57

Старуха, это не суть важно.

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

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

Автор: Staruha 16.12.2004, 16:54

Создаем книгу и столбцы,задаем формат

Код



  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