A,為了避免程式碼重複,設定下面幾個全域性變數(類範圍的),要引入標頭檔案<afxdb.h>

              CDatabase m_db;                     //資料庫
             CString m_dbdriver;                 //要生成的EXCEL檔案的目錄
             char m_path[MAX_PATH];       //獲取路徑用的陣列
               CString m_strdir;                      //包括EXCEL檔名在內的路徑名.
               CString m_strsql;                    //SQL命令語句,用m_db可直接執行.

B,在OnInitDialog方法中,生成一個xls檔案,並插入兩條記錄,可在TRY語句中進行,因為這裡面要建立一張表,當再次啟動程式時,會有異常發生,說表已經存在了,這時就避免了重複建立和插入.程式碼如下:

m_dbdriver="MICROSOFT EXCEL DRIVER (*.XLS)";
 GetCurrentDirectory(MAX_PATH,m_path);
 m_strdir=m_path;
 m_strdir+="//test.xls";             //上面初始化各個變數.
 m_strsql.Format("DRIVER={%s};DSN='''';FIRSTROWHASNAMES=1;READONLY=FALSE;CREATE_DB=\"%s\";DBQ=%s",m_dbdriver,m_strdir,m_strdir);
 TRY
 { 
  if (m_db.OpenEx(m_strsql,CDatabase::noOdbcDialog))
  {
   m_strsql="Create Table OdbcExl(Name Text,Age Number,Gener Text)";
   m_db.ExecuteSQL(m_strsql);
   m_strsql="Insert Into OdbcExl(Name,Age,Gener) Values('Bob',34,'Male')";
   m_db.ExecuteSQL(m_strsql);
   m_strsql="Insert Into OdbcExl(Name,Age,Gener) Values('Jane',23,'Female')";
   m_db.ExecuteSQL(m_strsql);

   m_db.Close();
  }
 
 }
 CATCH_ALL(e)
 {
 // e->ReportError();
  m_db.Close();
  return FALSE;
 }
 END_CATCH_ALL;

C,其實上面已經達到了答題人的要求,但作為一個程式,這也太不像話了,於是我又稍微加了點不值一提的東西,在對話方塊上輸入資訊,再插入到EXCEL表中去,這一切都在按下"插入"按鈕後發生:

 UpdateData();

 m_strsql.Format("DRIVER={%s};DSN='''';FIRSTROWHASNAMES=1;READONLY=FALSE;CREATE_DB=\"%s\";DBQ=%s", m_dbdriver,m_strdir,m_strdir);

 TRY
 { 
  if (m_db.OpenEx(m_strsql,CDatabase::noOdbcDialog))
  {
   m_strsql.Format("Insert into OdbcExl(Name,Age,Gener)Values('%s',%d,'%s')",m_name,m_age,m_gener);
   m_db.ExecuteSQL(m_strsql);
  }
 }
 CATCH_ALL(e)
 {
  e->ReportError();
 // db.Close();
 }
 END_CATCH_ALL;
 m_db.Close();

可以說,只要對CDatabase稍有了解,對SQL語句稍有了解,這個問題就很容易解決,如果要說這是一個針對Excel檔案操作的方法,那是因為在OpenEx初始化資料庫物件(不是"開啟"哦)時用的檔案字尾名為.xls而已,我們可以像在普通的資料庫中一樣進行其他操作,如用SELECT語句來讀取EXCEL檔案的內容等, 第一種方法完.

下面是第二種方法,這裡涉及的原理要複雜一些了,傳說中的OLE(物件連結與嵌入)技術在這裡用上了,EXCEL.EXE作為一個元件伺服器,應用程式作為客戶端......,還是直接寫過程吧,頭暈暈的,只能平鋪直述了.

A,從classwizard中add class處from type library,去office的安裝目錄下引入excel.exe(這是office 2003的選擇,其他版本都是用olb檔案),伺服器就算引入了,這時會彈出對話方塊,要求加入一些類,這些類都是一些介面,裡面有大量的方法,類的物件表徵著excel檔案的一個個部分,常用的有這幾個_application,workbooks,_workbook,worksheets,_worksheet,Range,它們分別代表不同的意義._application代表了EXCEL伺服器,workbooks表示整個Excel伺服器(表現為一個.xls檔案)裡所有的表,(可以通過"新建"得到多個表,即MDI程式裡的一個視窗一樣,所有的視窗就是workbooks), _workbook就是一個表,相當於MDI中的一個視窗, worksheets表示所有的表單,每個表都可能有很多表單(建立一個Excel檔案之後,開啟,可以看到有sheet1,sheet2等,所有這些sheetn就組成了worksheets), _worksheet就表示一個表單, range表示元素的集合. 搞清楚上面這幾個名詞的意思非常重要.

B,在dlg.h中宣告下面幾個變數:

 _Application exlapp;   //元件伺服器的各個classes
 _Workbook wbk;
 Workbooks wbks;
 _Worksheet wht;
 Worksheets whts;
 LPDISPATCH lpDisp;
 並在app.cpp的InitInstance方法中加入下面兩句AfxInitOle(); AfxEnableControlContainer();

C,這裡我沒有像上面一樣完全用程式來生成一個Excel檔案,而是在開始時就在當前目錄下生成了一個Excel檔案,在對話方塊上我設定了兩個按鈕,下面是"顯示"按鈕的程式碼:
 //建立Excel伺服器
 if(!exlapp.CreateDispatch("Excel.Application"))
 {
  AfxMessageBox("無法啟動Excel伺服器!");
  return;
 }
 COleVariant  avar((long)DISP_E_PARAMNOTFOUND,VT_ERROR);
 exlapp.SetVisible(TRUE);//使Excel可見
 exlapp.SetUserControl(TRUE);//允許其它使用者控制Excel,否則Excel將一閃即逝.
 
 //Open an excel file
 char path[MAX_PATH];
 GetCurrentDirectory(MAX_PATH,path);
 CString strPath = path;
 strPath += "file://VCOpExcel/";

 wbks.AttachDispatch(exlapp.GetWorkbooks());
 
 lpDisp=wbks.Open(strPath,
  avar,avar,avar,avar,avar,avar,avar,avar,avar,avar,avar,avar,avar,avar);
 
 wbks.ReleaseDispatch();
 exlapp.ReleaseDispatch();

D,與上面第一種方法一樣,可以插入記錄:

 UpdateData();     //讀入資料
 if (""==m_name)     //判斷名字輸入有效
 {
  MessageBox("Please input a right name");
  return;
 }
 if (0>=m_age||100<=m_age)  //判斷年齡輸入有效
 {
  MessageBox("Please input a right age");
  return;
 }

 char *p=strupr(_strdup(m_gener));
 if (strcmp(p,"FEMALE")&&strcmp(p,"MALE")) //判斷性別輸入有效
 {
  MessageBox("Please input a right gener");
  return;
 }
 

 Range range;
 Range usedRange;
 COleVariant  avar((long)DISP_E_PARAMNOTFOUND,VT_ERROR);
 
 if(!exlapp.CreateDispatch("Excel.Application")) //啟動伺服器
 {
  AfxMessageBox("無法啟動Excel伺服器!");
  return;
 }
 char path[MAX_PATH];
 GetCurrentDirectory(MAX_PATH,path);
 CString strPath = path;
 strPath += "file://VCOpExcel/";
 wbks.AttachDispatch(exlapp.GetWorkbooks());
 lpDisp=wbks.Open(strPath,            //初始化.
  avar,avar,avar,avar,avar,avar,avar,avar,avar,avar,avar,avar,avar,avar);
 wbk.AttachDispatch(lpDisp);
 whts.AttachDispatch(wbk.GetWorksheets());
 lpDisp=wbk.GetActiveSheet();
 wht.AttachDispatch(lpDisp);
 
 
 
 usedRange.AttachDispatch(wht.GetUsedRange());
 range.AttachDispatch(usedRange.GetRows());
 long iRowNum=range.GetCount();//已經使用的行數
 range.AttachDispatch(wht.GetCells());
 
 range.SetItem(COleVariant(long(iRowNum+1)),COleVariant(long(1)),COleVariant(m_name));
 range.SetItem(COleVariant(long(iRowNum+1)),COleVariant(long(2)),COleVariant(m_age));
 range.SetItem(COleVariant(long(iRowNum+1)),COleVariant(long(3)),COleVariant(m_gener));
 
 wbk.Save();
 wbk.Close(avar,COleVariant(strPath),avar);
 wbks.Close();
 exlapp.Quit();