OleInitialize(NULL);
    _Application Excel;
    Workbooks WorkBooks;
    _Workbook book;
    Worksheets Sheets;
    _Worksheet Sheet;
    COleVariant Cell;
    CString SCell;
    if(!Excel.CreateDispatch("Excel.Application"))
        {
            AfxMessageBox("Couldn't start Excel.");
        }
        else
        {
            //Make Excel Visible and display a message
            Excel.SetVisible(TRUE);
            WorkBooks=Excel.GetWorkbooks(); 
            book=WorkBooks.Add(NOPARAM); 
            Sheets=book.GetWorksheets();
            Sheet=Sheets.GetItem(COleVariant((short)1));
            CTime start=CTime::GetCurrentTime();
            m_Start.SetWindowText(start.Format("%H:%M:%S"));
            for (char i='A'; i<'P';i++)
                for (short j=1;j<=1000;j++)
                {
                    SCell.Format("%c%i",i,j);
                    Cell=SCell;
                    ((Range)Sheet.GetRange(Cell,Cell)).SetValue(Cell);
                }
            CTime stop=CTime::GetCurrentTime();
            m_Stop.SetWindowText(stop.Format("%H:%M:%S"));
            m_Diff.SetWindowText((stop-start).Format("%H:%M:%S"));
        }
    OleUninitialize();

S>>Так вот... ATL-вариант делает это за 1 минуту 15 секунд, а OLE за 47 секунд, хотя, даже Inprise утверждает, что ATL круче OLE в плане новизны и правильности. Может я что-то не так сделал?

#define PS(param) PropertySet(param)
string XlsDocument::MakeAddr(int row,int col)
{
    string cell;
    char strrow[6];
    int i,j;
    col--;
    if (col<0 || col>229 || row & 0xFFFF0000) //230 равно адресу IV (последний столбец)
        return "A1";
    if (i=col/26)       //получаем первую букву столбца
    {
        j=col%26;       //вторая буква стобца
        cell+=char('A'-1 + i);
        cell+=char('A' + j);
    }
    else                //буква столбца состоит из одного символа
        cell+=char('A' + col);
    itoa(row,strrow,10);
    cell+=strrow;
    return cell;
}
 
void XlsDocument::WriteCell(const string &cell,const string &value)
{
    Doc.Exec(PS("Range") << cell.c_str() << value.c_str());
}

//---------------------------Главный цикл
   char tmp[32];
    for (int j=1;j<16;j++)
        for(int i=1;i<1001;i++)
        {
            itoa(j,tmp,10);
            MyDoc.WriteCell(i,j,tmp);
        }

S>>char tmp[32];
S>>for (int j=1;j<16;j++)
S>>    for(int i=1;i<1001;i++)
S>>    {
S>>        itoa(j,tmp,10);
S>>        MyDoc.WriteCell(i,j,tmp);
S>>    }
S>>

for (char i='A'; i<'P';i++)
  for (short j=1;j<=1000;j++)
  {
    ((Range)Sheet.GetRange("ячейка","ячейка")).SetValue("значение");
  }

  for (int j=1;j<16;j++)
    for(int i=1;i<1001;i++)
    {
      Doc.Exec(PropertySet("Range") << "ячейка" << "значение");
    }

GS>for (char i='A'; i<'P';i++)
GS>  for (short j=1;j<=1000;j++)
GS>  {
GS>    ((Range)Sheet.GetRange("ячейка","ячейка")).SetValue("значение");
GS>  }
GS>

GS>  for (int j=1;j<16;j++)
GS>    for(int i=1;i<1001;i++)
GS>    {
GS>      Doc.Exec(PropertySet("Range") << "ячейка" << "значение");
GS>    }
GS>

Variant::Exec
____________________________________________________________________________________
Executes an OLE procedure, function, or a property Get or Set method.

Variant __fastcall Exec(AutoCmd& cmd, Integer lcid = LOCALE_SYSTEM_DEFAULT);

Description

Use Exec to call Automation methods. 

The cmd parameter is the wrapper class for the method on an interface that is assigned as the Variant’s value. Use this parameter to identify the method you want to call and to assign any parameter values.

The lcid parameter is ignored by Variant. The locale identifier used to interpret parameters is always LOCALE_SYSTEM_DEFAULT.

((Range)Sheet.GetRange(Cell,Cell)).SetValue(Cell);
              1                     2

Executes an OLE procedure, function, or a property Get or Set method.