MS WORD, MS EXCEL

while (!Query->Eof)
{
while (Column_Counter < Query->Fields->Count)
{
CellName = Set_Cell_Name (Column_Counter , Row_Counter);
CellText = Query->Fields->Fields[Column_Counter]->AsString;
 
var_Sheet.OlePropertyGet("Range", CellName).
OlePropertySet("Value",CellText);
 
Column_Counter++ ;
}
Column_Counter = 0;
Row_Counter ++;
Query->Next();
}

// .h-файл для работы с excel
//---------------------------------------------------------------------------
 
//отрисовка рамок у разных версий excel работает неоднозначно
 
//---------------------------------------------------------------------------
#ifndef ExServerH
#define ExServerH
//---------------------------------------------------------------------------
 //код наличия рамки ячейки
#define BLeft 2      //слева
#define BRight 4     //справа
#define BTop 8       //сверху
#define BBottom 16   //снизу
//линии рамки
#define LNone 0      //рамка отсутствует
#define LSingle 1    //одинарная тонкая
#define LDouble 9    //двойная тонкая
#define LBold 7      //жирная
 
typedef enum HAlign
{
  HAlignCenter = 0xFFFFEFF4,
  HAlignCenterAcrossSelection = 7,
  HAlignDistributed = 0xFFFFEFEB,
  HAlignFill = 5,
  HAlignGeneral = 1,
  HAlignJustify = 0xFFFFEFDE,
  HAlignLeft = 0xFFFFEFDD,
  HAlignRight = 0xFFFFEFC8
} HAlign;
 
 
typedef enum VAlign
{
  VAlignBottom = 0xFFFFEFF5,
  VAlignCenter = 0xFFFFEFF4,
  VAlignDistributed = 0xFFFFEFEB,
  VAlignJustify = 0xFFFFEFDE,
  VAlignTop = 0xFFFFEFC0
} VAlign;
 
 
class ExServer
{
public:
 
ExServer();
~ExServer();
 
void __fastcall toExcelCell(int Row,int Column, AnsiString data);
Variant __fastcall fromExcelCell(int Row, int Column);
 
bool ExcelIsClose();
//Показывает окно Excel
bool ExcelShow();
//открывает Excel
bool ExcelOpen();
//закрывает Excel
bool ExcelClose();
//создает рабочую книгу по имени
bool BookAdd();
//открывает рабочую книгу по имени
bool BookOpen(AnsiString BookName );
//закрывает рабочую книгу по имени
bool BookClose() ;
//сохраняет рабочую книгу
bool BookSave();
//сохраняет рабочую книгу по имени
bool BookSaveAs( AnsiString BookName );
//открывает лист рабочей книги по названию
bool SheetOpen( AnsiString SheetName );
//открывает лист рабочей книги по номеру
bool SheetOpen( int SheetNum);
//заносит числовое значение в ячейку с указанным именем
bool CellSet( AnsiString CellName, Variant CellValue, int f = -1 );
bool CellSet( AnsiString CellName, char *CellValue, int f = -1 );
//заносит строку в ячейку с указанным именем
bool CellSet( AnsiString  CellName, AnsiString CellText );
//возвращает числовое значение ячейки с указанным именем
float CellGet( AnsiString CellName );
//возвращает строковое значение ячейки с указанным именем
AnsiString CellGetStr( AnsiString CellName );
// получить формулу из ячейки
Variant fromExcelFormula(int Row, int Column);
//Горизонтальное выравнивание в ячейке
void smoothing(int Row, int Column, int VerGor);
//AnsiString CellGet( AnsiString CellName );
//изменяет имя ячейки
bool CellRename( AnsiString CellName, AnsiString &CellName_Old );
//рисует рамку ячейки
bool CellBorderSet( AnsiString CellName, int Border_Code, int Line_Style );
//изменяет размер шрифта
bool CellFontSet( AnsiString CellName, int Font_Size );
//ширину столбца
bool CellAutoSize( AnsiString CellName);
//Объединяем ячейки
bool CellMerge( AnsiString CellName );                                                                   //Автоматически Выпавнивает
//Выравнивание текста в ячейках по горизонтали
bool CellHAlign( AnsiString CellName,int Value );
//Выравнивание текста в ячейках по вертикали
bool CellVAlign( AnsiString CellName,int Value );
//Установка ширины столбцов
bool CellColWidth( AnsiString CellName,int Value );
//Цвет ячейки
bool CellColor( AnsiString CellName,int Value );
bool CellFontColor(AnsiString CellName,int ColorFont);
void PageSetup();
void NoDialogQuery();
private:
 
Variant var_Excel,
        var_Book,
        var_Sheet,
        var_Cell;
 
bool IsClose;        
};
 
#endif
 
 
 
 
 
 
 
 
// .cpp-файл для работы с excel
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "ExServer.h"
//#include <OleServer.hpp>
//#include <excel_2k.h>
//#include <utilcls.h>
//---------------------------------------------------------------------------
#pragma package(smart_init)
//---------------------------------------------------------------------------
Variant __fastcall ExServer::fromExcelCell(int Row, int Column)
{
Variant result,cur;
cur = var_Sheet.OlePropertyGet("Cells",Row,Column);
result = cur.OlePropertyGet("Value");
return result;
}
//---------------------------------------------------------------------------
void __fastcall ExServer::toExcelCell(int Row,int Column, AnsiString data)
{
Variant  cur =  var_Sheet.OlePropertyGet("Cells", Row,Column);//.OlePropertySet("Value", data.c_str());
cur.OlePropertySet("Value", data.c_str());
}
//---------------------------------------------------------------------------
ExServer::ExServer()
{
var_Excel = Unassigned;
IsClose=true;
}
//---------------------------------------------------------------------------
bool ExServer::ExcelShow()
{
try
  {
  //сделаем Excel видимым
  var_Excel.OlePropertySet("Visible",true);
  return true;
  }
catch(...)
  {
  MessageBox( 0, "Ошибка при показе Excel", "Ошибка", MB_OK );
  return false;
  }
}
//---------------------------------------------------------------------------
//Запуск Excel
bool ExServer::ExcelOpen()
{
try {
    var_Excel=Variant::GetActiveObject("Excel.Application");
    IsClose=false;
    }
catch(...)
 {
 try {
     var_Excel=Variant::CreateObject("Excel.Application");
     IsClose=false;
     }
 catch(...)
     {
     Application->MessageBox("Невозможно открыть Microsoft Excel!","Ошибка",MB_OK+MB_ICONERROR);
     return false;
     }
 }
return true;
}
//---------------------------------------------------------------------------
bool  ExServer::ExcelIsClose()
{
//Variant V;
//return V == var_Excel;
//if( VarIsEmpty( var_Excel ) ) return true; else return false;
return IsClose;
}
//---------------------------------------------------------------------------
//Закрытие Excel
bool ExServer::ExcelClose()
{
try
  {
  var_Excel.OleProcedure("Quit");
  var_Excel = Unassigned;
  IsClose=true;
  return true;
  }
catch(...)
  {
  MessageBox( 0, "Ошибка при закрытии Excel", "Ошибка", MB_OK );
  return false;
  }
}
//---------------------------------------------------------------------------
//Открытие книги( по имени )
bool ExServer::BookOpen(AnsiString BookName)
{
try
  {
  var_Book=var_Excel.OlePropertyGet("Workbooks").
  OlePropertyGet("Open", BookName.c_str());
  return true;
  }
catch(...)
  {
  MessageBox( 0, "Ошибка при открытии книги", "Ошибка", MB_OK );
  return false;
  }
}
//---------------------------------------------------------------------------
bool ExServer::BookAdd()
{
try
  {
  var_Book=var_Excel.OlePropertyGet("Workbooks").OlePropertyGet("Add");
  return true;
  }
catch(...)
  {
  MessageBox( 0, "Ошибка при создания книги", "Ошибка", MB_OK );
  return false;
  }
}
//---------------------------------------------------------------------------
//Закрытие книги
bool ExServer::BookClose()
{
try
  {
  var_Book.OleProcedure("Close");
  return true;
  }
catch(...)
  {
  MessageBox( 0, "Ошибка при закрытии книги", "Ошибка", MB_OK );
  return false;
  }
}
//---------------------------------------------------------------------------
//Сохранение книги( по имени )
bool ExServer::BookSaveAs(AnsiString BookName)
{
try
  {
  var_Book.OleProcedure("SaveAs",BookName.c_str());
  return true;
  }
catch(...)
  {
  MessageBox( 0, "Ошибка при сохранении книги", "Ошибка", MB_OK );
  return false;
  }
}
//---------------------------------------------------------------------------
//Сохранение книги
bool ExServer::BookSave()
{
try
  {
  var_Book.OleProcedure("Save");
  return true;
  }
catch(...)
  {
  MessageBox( 0, "Ошибка при сохранении книги", "Ошибка", MB_OK );
  return false;
  }
}
//---------------------------------------------------------------------------
//Окрытие листа( по названию )
//Примечание: до вызова SheetOpen() должна быть открыта
//соответствующая книга вызовом BookOpen();
bool ExServer::SheetOpen(AnsiString SheetName)
{
try
  {
  //откроем нужный лист
  var_Sheet = var_Book.OlePropertyGet("Worksheets", SheetName);
  //сделаем его активным
  var_Sheet.OleProcedure("Activate");
  return true;
  }
catch(...)
  {
  MessageBox( 0, "Ошибка при открытии листа", "Ошибка", MB_OK );
  return false;
  }
}
//---------------------------------------------------------------------------
bool ExServer::SheetOpen(int SheetNum)
{
try
  {
  //откроем нужный лист
  var_Sheet = var_Book.OlePropertyGet("Worksheets", SheetNum);
  //сделаем его активным
  var_Sheet.OleProcedure("Activate");
  //Sh = App.OlePropertyGet("Worksheets").OlePropertyGet("Item", 1);
  //var_Sheet.OlePropertySet("Name", "Наш лист итогов");
  return true;
  }
catch(...)
  {
  MessageBox( 0, "Ошибка при открытии листа", "Ошибка", MB_OK );
  return false;
  }
}
//---------------------------------------------------------------------------
//Примечание: до вызова CellSet() должен быть открыт
//            соответствующий лист вызовом SheetOpen();
bool ExServer::CellSet(AnsiString CellName, Variant CellValue, int f)
{
try
  {
  var_Sheet.OlePropertyGet("Range", CellName.c_str()).OlePropertySet("Value",CellValue);
   if( f==3 )
   var_Sheet.OlePropertyGet("Range", CellName.c_str()).OlePropertySet("NumberFormat", "0,000");
  if( f==2 )
   var_Sheet.OlePropertyGet("Range", CellName.c_str()).OlePropertySet("NumberFormat", "0,00");
  if( f==1 )
   var_Sheet.OlePropertyGet("Range", CellName.c_str()).OlePropertySet("NumberFormat", "0,0");
  if( f==0 )
   var_Sheet.OlePropertyGet("Range", CellName.c_str()).OlePropertySet("NumberFormat", "0");
 
  return true;
  }
catch(...)
  {
  MessageBox( 0, "Ошибка 1 при записи в ячейку", "Ошибка", MB_OK );
  return false;
  }
}
//---------------------------------------------------------------------------
//Примечание: до вызова CellSet() должен быть открыт
//            соответствующий лист вызовом SheetOpen();
bool ExServer::CellSet(AnsiString CellName, char *CellText, int f)
{
try
  {
  //ShowMessage(CellName);
  var_Cell = var_Sheet.OlePropertyGet("Range",CellName.c_str());
  //ShowMessage("CCC");
  var_Cell.OlePropertySet("Value",CellText);
  if( f==3 )
  var_Sheet.OlePropertyGet("Range", CellName.c_str()).OlePropertySet("NumberFormat", "0,000");
  if( f==2 )
  var_Sheet.OlePropertyGet("Range", CellName.c_str()).OlePropertySet("NumberFormat", "0,00");
  if( f==1 )
   var_Sheet.OlePropertyGet("Range", CellName.c_str()).OlePropertySet("NumberFormat", "0,0");
  if( f==0 )
  var_Sheet.OlePropertyGet("Range", CellName.c_str()).OlePropertySet("NumberFormat", "0");
  //ShowMessage("DDD");
  //if( CellText[1]=='=' ) var_Sheet.OlePropertyGet("Range", CellName.c_str()).OlePropertySet("NumberFormat", "0,00");
  return true;    // __!!!!!!!!!!_____________________________________________________________________________________
  }
catch(...)
  {
  throw Exception("Ошибка 2 при записи в ячейку");
  }
}
//---------------------------------------------------------------------------
//Примечание: до вызова CellSet() должен быть открыт
//соответствующий лист вызовом SheetOpen();
bool ExServer::CellSet(AnsiString CellName, AnsiString CellText)
{
try
  {
  var_Cell = var_Sheet.OlePropertyGet("Range",CellName.c_str());
  var_Cell.OlePropertySet("Value",CellText.c_str());
  return true;
  }
catch(...) {throw Exception("Ошибка 3 при записи в ячейку");}
}
//---------------------------------------------------------------------------
//Чтение из ячейки числа( по имени ячейки )
//Примечание: до вызова CellGet() должен быть открыт
//            соответствующий лист вызовом SheetOpen();
float ExServer::CellGet(AnsiString CellName)
{
float CellValue;
try
  {
  CellValue = var_Sheet.OlePropertyGet("Range", CellName.c_str()).OlePropertyGet("Value");
  return CellValue;
  }
catch(...)
  {
  MessageBox( 0, "Ошибка при чтении из ячейки", "Ошибка", MB_OK );
  return -1;
  }
}
//---------------------------------------------------------------------------
//Чтение из ячейки строки( по имени ячейки )
//Примечание: до вызова CellGet() должен быть открыт
//            соответствующий лист вызовом SheetOpen();
AnsiString ExServer::CellGetStr(AnsiString CellName)
{
AnsiString CellValue;
try
  {
  CellValue = var_Sheet.OlePropertyGet("Range", CellName.c_str()).OlePropertyGet("Value");
  return CellValue;
  }
catch(...)
  {
  MessageBox( 0, "Ошибка при чтении из ячейки", "Ошибка", MB_OK );
  return;
  }
}
//---------------------------------------------------------------------------
//Переименование ячейки
//Примечание: до вызова CellRename() должен быть открыт
//соответствующий лист вызовом SheetOpen();
bool ExServer::CellRename(AnsiString CellName,AnsiString &CellName_Old)
{
//char buffer[50];
try
  {
  var_Sheet.OlePropertyGet("Range", CellName_Old.c_str()).
  OlePropertySet("Name", CellName);
  return true;
  }
catch(...)
  {
  MessageBox( 0, "Ошибка при переименовании ячейки", "Ошибка", MB_OK );
  return false;
  }
}
//---------------------------------------------------------------------------
//Рисование рамки( по имени ячейки )
//Примечание: до вызова CellBorderSet() должен быть открыт
//соответствующий лист вызовом SheetOpen();
bool ExServer::CellBorderSet( AnsiString CellName, int Border_Code,int Line_Style )
{
try
  {
  switch ( Line_Style )
    {
     //одинарная тонкая линия
    case LSingle:
      {
       //проверим в цикле необходимость рисования
       //рамки с каждой стороны ячейки
      for( int i=1; i <= 4; i++ )
        if( Border_Code & (2<<(i-1)))
          var_Sheet.OlePropertyGet("Range", CellName.c_str()).
          OlePropertyGet("Borders", i).
          OlePropertySet("LineStyle", LSingle);
      return true;
      }
     //жирная линия
    case LBold:
      {
      for( int i=1; i <= 4; i++ )
        if( Border_Code & (2<<(i-1)))
          {
          var_Cell = var_Sheet.OlePropertyGet("Range", CellName.c_str());
          var_Cell.OlePropertyGet("Borders", i).
          OlePropertySet("LineStyle", LSingle);
 
          var_Cell.OlePropertyGet("Borders", i).
          OlePropertySet("LineStyle", LBold);
          }
      return true;
      }
     //двойная тонкая
    case LDouble:
      {
      for( int i=1; i <= 4; i++ )
        if( Border_Code & (2<<(i-1)))
          var_Sheet.OlePropertyGet("Range", CellName.c_str()).
          OlePropertyGet("Borders", i).
          OlePropertySet("LineStyle", LDouble);
      return true;
      }
 
     //если задан другой стиль линии рамки
    default:
      {
      for( int i=1; i <= 4; i++ )
        if( Border_Code & (2<<(i-1)))
          var_Sheet.OlePropertyGet("Range", CellName.c_str()).
          OlePropertyGet("Borders", i).
          OlePropertySet("LineStyle", Line_Style);
      return true;
      }
    }
  }
catch(...)
  {
  MessageBox( 0, "Ошибка при рисовании рамки ячейки", "Ошибка", MB_OK );
  return false;
  }
}
//---------------------------------------------------------------------------
//Изменение размера шрифта( по имени ячейки )
//Примечание: до вызова CellFontSet() должен быть открыт
//соответствующий лист вызовом SheetOpen();
bool ExServer::CellFontSet( AnsiString CellName, int Font_Size )
 
{
try
  {
   //обратимся к ячейке по ее имени
  var_Cell = var_Sheet.OlePropertyGet("Range", CellName.c_str());
 
   //выделим ячейку
  //var_Cell.OleProcedure("Select");
 
   //изменим размер шрифта
  var_Cell.OlePropertyGet("Font").OlePropertySet("Size", Font_Size);
  return true;
  }
catch(...)
  {
  MessageBox( 0, "Ошибка при изменении размера шрифта", "Ошибка", MB_OK );
  return false;
  }
}
 
//---------------------------------------------------------------------------
bool ExServer::CellAutoSize( AnsiString CellName)
{
try
  {
   //обратимся к ячейке по ее имени
  var_Cell = var_Sheet.OlePropertyGet("Range", CellName.c_str());
 
   //выделим ячейку
  //var_Cell.OleProcedure("Select");
 
   //изменим размер столбца
  var_Cell.OlePropertyGet("Columns").OleProcedure("AutoFit");
 
  return true;
  }
catch(...)
  {
  MessageBox( 0, "Ошибка при изменении размера Столбца", "Ошибка", MB_OK );
  return false;
  }
}
//---------------------------------------------------------------------------
ExServer::~ExServer()
{
}
//---------------------------------------------------------------------------
//Объединяем ячейки
bool ExServer::CellMerge( AnsiString CellName )
{
//try
//  {
  //обратимся к ячейке по ее имени
  //AnsiString tempCellName(CellName);
  var_Cell = var_Sheet.OlePropertyGet("Range", CellName.c_str());
  var_Cell.OlePropertyGet("Columns").OlePropertySet("MergeCells",1);
  Application->ProcessMessages();
  return true;
/*  }
catch (...)
  {
  MessageBox( 0, "Ошибка при объединении ячеек", "Ошибка", MB_OK );
  return false;
  }*/
}
//---------------------------------------------------------------------------
//
bool ExServer::CellHAlign( AnsiString CellName,int Value )
{
try
  {
  var_Cell = var_Sheet.OlePropertyGet("Range", CellName.c_str());
  var_Cell.OlePropertySet("VerticalAlignment",Value);
  Application->ProcessMessages();
  return true;
  }
catch (...)
  {
  MessageBox( 0, "Ошибка при горизонтальном выравнивании", "Ошибка", MB_OK );
  return false;
  }
}
//---------------------------------------------------------------------------
//
bool ExServer::CellVAlign( AnsiString CellName,int Value )
{
try
  {
  var_Cell = var_Sheet.OlePropertyGet("Range", CellName.c_str());
  var_Cell.OlePropertySet("HorizontalAlignment",Value);
  Application->ProcessMessages();
  return true;
  }
catch (...)
  {
  MessageBox( 0, "Ошибка при вертикальном выравнивании", "Ошибка", MB_OK );
  return false;
  }
}
//---------------------------------------------------------------------------
//Установка ширины столбцов
bool ExServer::CellColWidth( AnsiString CellName,int Value )
{
try
  {
  var_Cell = var_Sheet.OlePropertyGet("Range", CellName.c_str());
  var_Cell.OlePropertyGet("Columns").OlePropertySet("ColumnWidth",Value);
  Application->ProcessMessages();
  return true;
  }
catch (...)
  {
  MessageBox( 0, "Ошибка при Установка ширины столбцов", "Ошибка", MB_OK );
  return false;
  }
}
//---------------------------------------------------------------------------
//Цвет ячейки
bool ExServer::CellColor( AnsiString CellName,int Value )
{
try
  {
var_Cell = var_Sheet.OlePropertyGet("Range", CellName.c_str());
var_Cell.OlePropertyGet("Interior").OlePropertySet("ColorIndex",Value);
Application->ProcessMessages();
return true;
  }
catch (...)
  {
  MessageBox( 0, "Ошибка при Установка цвета ячейки", "Ошибка", MB_OK );
  return false;
  }
}
//---------------------------------------------------------------------------
bool ExServer::CellFontColor(AnsiString CellName,int ColorFont)
{
   //обратимся к ячейке по ее имени
  var_Cell = var_Sheet.OlePropertyGet("Range", CellName.c_str());
  var_Cell.OlePropertyGet("Font").OlePropertySet("ColorIndex", ColorFont);
 
  return true;
}
//---------------------------------------------------------------------------
void ExServer::PageSetup()
{
var_Sheet.OlePropertyGet("PageSetup").OlePropertySet("TopMargin", 25);
var_Sheet.OlePropertyGet("PageSetup").OlePropertySet("BottomMargin",25);
var_Sheet.OlePropertyGet("PageSetup").OlePropertySet("RightMargin",25);
}
//---------------------------------------------------------------------------
void ExServer::NoDialogQuery()
{
var_Excel.OlePropertySet("DisplayAlerts", false);
}
//---------------------------------------------------------------------------
// получить формулу из ячейки
Variant ExServer::fromExcelFormula(int Row, int Column)
{
try
  { 
  Variant result,cur;
  cur = var_Sheet.OlePropertyGet("Cells",Row,Column);
  result = cur.OlePropertyGet("Formula");
  return result;
  }
catch(...) {}
}
//---------------------------------------------------------------------------
void ExServer::smoothing(int Row, int Column, int VerGor)
{
try  { var_Sheet.OlePropertyGet("Cells",Row,Column).OlePropertySet("HorizontalAlignment", VerGor); }
  
catch(...) {}
}
//---------------------------------------------------------------------------

 
  Doc = wLetter.OlePropertyGet("Application")
    .OlePropertyGet("ActiveDocument");
  Variant Table = Doc.OlePropertyGet( "Tables" ).OleFunction("Item",1);
  AnsiString ansi =
  Table.OleFunction( "Cell", 2, 2 ).OlePropertyGet( "Range" ).
    OlePropertyGet( "Text");