Быстрая разработка отчетов с Microsoft Excel

Предлагаю один из способов создания отчетов, многие из Вас о нем знают.

В качестве источников данных для отчетов удобнее использовать хранимые процедуры и размещать их в отдельной базе на сервере.

1. Создаем в Excel файл шаблона, в шаблоне создаем источники данных для нашего отчета.

2. Задаем имя источнику данных.

3. Подготовленный шаблон сохраняем в системе.

4. Создаем модуль отчета

На событие кнопки "Расчет" помещаем следующий код:

// Строка подключения к БД (для хранения использую справочник констант)
lp_ODBC = GetConstant("Link_ControlDirectumODBC")
lp_FilePath = GetTempFolder() & "366344.xlt"


// Получаем шаблон
Doc = EDocuments.GetObjectByID(366344)

// Разворачиваем шаблон во временное хранилище
Doc.Export(1; lp_FilePath; False)

// Создаем подключение к объектной модели Excel
Ex = CreateObject('Excel.Application')

// Считаем, что макет уже выгружен из системы на диск
Book = Ex.Workbooks.Open(lp_FilePath)


// Листы отчета
Report = Book.Sheets('Отчет')

idxPage = 1
while (Book.Sheets.Count >= idxPage )

  idxQuery = 1
  while (Book.Sheets(idxPage).QueryTables.Count >= idxQuery)

    If Book.Sheets(idxPage).QueryTables(idxQuery).Name == "Rep_JobOverdue"
      Book.Sheets(idxPage).QueryTables(idxQuery).Connection = lp_ODBC
      Book.Sheets(idxPage).QueryTables(idxQuery).Sql = "EXEC sp_Rep_JobOverdue"
      // Обновляем источник данных
      Book.Sheets(idxPage).QueryTables(idxQuery).Refresh 
    endIf
  
    // Удаляем источники данных после обновления
    Book.Sheets(idxPage).QueryTables(idxQuery).Delete
    idxQuery = idxQuery + 1
  endwhile 
  idxPage = idxPage + 1
endwhile


// Можно запустить макрос
//Report.Application.Run( "'" & Book.name & "'" & "!fRep")

// Делаем отчет доступным для пользователя
Ex.Visible = true
Book.Activate

Exit()

5. Получаем результаты.