OLE操作word和excel

c++builder OLE操作word和excelOLE操作word和excel

//---------------------------------------------------------------------------

#include 
#pragma hdrstop
//---------------------------------------------------------------------------
USEFORM（“Unit1.cpp“ Form1）;
//---------------------------------------------------------------------------
WINAPI WinMain（HINSTANCE HINSTANCE LPSTR int）
{
    try
    {
         Application->Initialize（）;
         Application->CreateForm（__classid（TForm1） &Form1）;
         Application->Run（）;
    }
    catch （Exception &exception）
    {
         Application->ShowException（&exception）;
    }
    catch （...）
    {
         try
         {
             throw Exception（““）;
         }
         catch （Exception &exception）
         {
             Application->ShowException（&exception）;
         }
    }
    return 0;
}
//---------------------------------------------------------------------------

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件      25088  2010-10-25 14:10  excel\111.doc

     文件      15360  2010-10-25 14:09  excel\book1.xls

     文件        345  2010-08-27 11:55  excel\Project1.bcc32pch

     文件       4863  2010-10-25 14:11  excel\Project1.bpr

     文件        925  2010-07-18 11:30  excel\Project1.cpp

     文件     697344  2010-10-25 14:10  excel\Project1.exe

     文件      17784  2010-10-25 14:01  excel\Project1.obj

     文件        876  2010-10-25 14:01  excel\Project1.res

     文件    3145728  2010-10-25 14:11  excel\Project1.tds

     文件       4863  2010-10-25 14:01  excel\Project1.~bpr

     文件      18086  2010-10-25 14:10  excel\Unit1.cpp

     文件         33  2010-10-25 14:11  excel\Unit1.ddp

     文件       1881  2010-10-25 14:11  excel\Unit1.dfm

     文件       1642  2010-08-27 14:22  excel\Unit1.h

     文件     225952  2010-10-25 14:10  excel\Unit1.obj

     文件      18086  2010-10-25 14:10  excel\Unit1.~cpp

     文件         33  2010-10-25 14:10  excel\Unit1.~ddp

     文件       1881  2010-08-27 13:19  excel\Unit1.~dfm

     文件       1642  2010-08-27 14:22  excel\Unit1.~h

     目录          0  2010-10-25 14:11  excel

----------- ---------  ---------- -----  ----

              4182412                    20