请问:
  已经打开了Excel的xxx.xls文件
  部分原码如下(转):
// 打开数据库(即Excel文件)               ....
database.Open(NULL, false, false, sDsn);
CRecordset recset(&database);
// 设置读取的查询语句.
sSql = "SELECT Name, Age " 
"FROM demo " 
"ORDER BY Name "
// 执行查询语句
recset.Open(CRecordset::forwardOnly, sSql, CRecordset::readOnly);
// 获取查询结果
while (!recset.IsEOF())
{
//读取Excel内部数值
recset.GetFieldValue("Name", sItem1);
recset.GetFieldValue("Age", sItem2);
recset.MoveNext();
/*
....访问Name和Age变量名下的各条成员
*/
}问题:我如何能把Name和Age下某行置成红色字呢? 

解决方案 »

  1.   

    ODBC can not change font color, but automation can
    ///////////////////////////////////////////////////////////////////////////////////////
    //change cell font of Excel
    ///////////////////////////////////////////////////////////////////////////////////////
    void CC2Dlg::OnOK()
    {//HOWTO: Create Automation Project Using MFC and a Type Library  Q178749
    //change font of a Cell in excel
    try
    {
    _Application app;     // app is an _Application object.
    _Workbook book;       // More object declarations.
    _Worksheet sheet;
    Workbooks books;
    Worksheets sheets;
    Range range;          // Used for Microsoft Excel 97 components.
    LPDISPATCH lpDisp;    // Often reused variable.
    COleVariant
    covTrue((short)TRUE),
    covFalse((short)FALSE),
    covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
    if(!app.CreateDispatch("Excel.Application"))
    {
    AfxMessageBox("Couldn't CreateDispatch() for Excel");
    return;
    }
    app.SetVisible(TRUE);
    lpDisp = app.GetWorkbooks();     // Get an IDispatch pointer.
    ASSERT(lpDisp);
    books.AttachDispatch(lpDisp);    // Attach the IDispatch pointer
    // to the books object.
    lpDisp = books.Open("C:\\temp\\book1.xls",     // Test.xls is a workbook.
    covOptional, covOptional, covOptional, covOptional, covOptional,
    covOptional, covOptional, covOptional, covOptional, covOptional,
    covOptional, covOptional, covOptional, covOptional );   // Return Workbook's IDispatch
    // pointer.
    book.AttachDispatch( lpDisp );
    lpDisp = book.GetSheets();
    ASSERT(lpDisp);
    sheets.AttachDispatch(lpDisp);
    // Get sheet #1 and attach the IDispatch pointer to your sheet
    // object.
    lpDisp = sheets.GetItem( COleVariant((short)(1)) );
    ASSERT(lpDisp);
    sheet.AttachDispatch(lpDisp);
    lpDisp = sheet.GetRange(COleVariant("B3"), COleVariant("b3"));
    range.AttachDispatch(lpDisp);
    range.SetNumberFormat(COleVariant("@"));
    range.SetItem(COleVariant((long)(1)),COleVariant((long)(1)),COleVariant(LPCTSTR("000666")));
    Font newfont;
    lpDisp=range.GetFont();
    newfont.AttachDispatch(lpDisp);
    newfont.SetName(COleVariant("宋体"));
    newfont.SetSize(COleVariant((long)24));
    newfont.ReleaseDispatch();
    // Release dispatch pointers.
    range.ReleaseDispatch();
    sheet.ReleaseDispatch();
    // This is not really necessary because
    // the default second parameter of AttachDispatch releases
    // when the current scope is lost. } // End of processing. catch(COleException *e)
    {
            char buf[1024];     // For the Try...Catch error message.
            sprintf(buf, "COleException. SCODE: %08lx.", (long)e->m_sc);
            ::MessageBox(NULL, buf, "COleException", MB_SETFOREGROUND | MB_OK);
    }
    catch(COleDispatchException *e)
    {
            char buf[1024];     // For the Try...Catch error message.
            sprintf(buf,
    "COleDispatchException. SCODE: %08lx, Description: \"%s\".",
    (long)e->m_wCode,(LPSTR)e->m_strDescription.GetBuffer(512));
            ::MessageBox(NULL, buf, "COleDispatchException",
    MB_SETFOREGROUND | MB_OK);
    }
    catch(...)
    {
            ::MessageBox(NULL, "General Exception caught.", "Catch-All",
    MB_SETFOREGROUND | MB_OK);
    }
    CDialog::OnOK();
    }
      

  2.   

    to masterz:
      兄弟,您可以发个原码给我吗?
      我的mail:      [email protected]
                                    多谢!
      

  3.   

    徐景周
    1. 在StdAfx.h文件中加入: #include <afxdb.h> 
    #include <odbcinst.h> 2. 通过ODBC直接创建Excel文件并在表中插入数据(暂定文件名:Demo.xls) //创建并写入Excel文件
    void CRWExcel::WriteToExcel()
    {
      CDatabase database;
      CString sDriver = "MICROSOFT EXCEL DRIVER (*.XLS)"; // Excel安装驱动
      CString sExcelFile = "c:\\demo.xls";                // 要建立的Excel文件
      CString sSql;
        
      TRY
      {
        // 创建进行存取的字符串
        sSql.Format("DRIVER={%s};DSN='''';FIRSTROWHASNAMES=1;READONLY=FALSE;CREATE_DB=\"%s\";DBQ=%s",
                    sDriver, sExcelFile, sExcelFile);    // 创建数据库 (既Excel表格文件)
        if( database.OpenEx(sSql,CDatabase::noOdbcDialog) )
        {
          // 创建表结构(姓名、年龄)
          sSql = "CREATE TABLE demo (Name TEXT,Age NUMBER)";
          database.ExecuteSQL(sSql);      // 插入数值
          sSql = "INSERT INTO demo (Name,Age) VALUES (''徐景周'',26)";
          database.ExecuteSQL(sSql);      sSql = "INSERT INTO demo (Name,Age) VALUES (''徐志慧'',22)";
          database.ExecuteSQL(sSql);      sSql = "INSERT INTO demo (Name,Age) VALUES (''郭徽'',27)";
          database.ExecuteSQL(sSql);
        }          // 关闭数据库
        database.Close();
      }
      CATCH_ALL(e)
      {
        TRACE1("Excel驱动没有安装: %s",sDriver);
      }
      END_CATCH_ALL;
    } 3. 通过ODBC直接读取Excel文件(暂定文件名:Demo.xls) // 读取Excel文件
    void CRWExcel::ReadFromExcel() 
    {
        CDatabase database;
        CString sSql;
        CString sItem1, sItem2;
        CString sDriver;
        CString sDsn;
        CString sFile = "Demo.xls";             // 将被读取的Excel文件名
                                         
        // 检索是否安装有Excel驱动 "Microsoft Excel Driver (*.xls)" 
        sDriver = GetExcelDriver();
        if (sDriver.IsEmpty())
        {
            // 没有发现Excel驱动
            AfxMessageBox("没有安装Excel驱动!");
            return;
        }
        
        // 创建进行存取的字符串
        sDsn.Format("ODBC;DRIVER={%s};DSN='''';DBQ=%s", sDriver, sFile);    TRY
        {
            // 打开数据库(既Excel文件)
            database.Open(NULL, false, false, sDsn);
            
            CRecordset recset(&database);        // 设置读取的查询语句.
            sSql = "SELECT Name, Age "       
                   "FROM demo "                 
                   "ORDER BY Name ";
        
            // 执行查询语句
            recset.Open(CRecordset::forwardOnly, sSql, CRecordset::readOnly);        // 获取查询结果
            while (!recset.IsEOF())
            {
                //读取Excel内部数值
                recset.GetFieldValue("Name ", sItem1);
                recset.GetFieldValue("Age", sItem2);            // 移到下一行
                recset.MoveNext();
            }        // 关闭数据库
            database.Close();
                                 
        }
        CATCH(CDBException, e)
        {
            // 数据库操作产生异常时...
            AfxMessageBox("数据库错误: " + e->m_strError);
        }
        END_CATCH;
    } 4. 获取ODBC中Excel驱动的函数 CString CRWExcel::GetExcelDriver()
    {
        char szBuf[2001];
        WORD cbBufMax = 2000;
        WORD cbBufOut;
        char *pszBuf = szBuf;
        CString sDriver;    // 获取已安装驱动的名称(涵数在odbcinst.h里)
        if (!SQLGetInstalledDrivers(szBuf, cbBufMax, &cbBufOut))
            return "";
        
        // 检索已安装的驱动是否有Excel...
        do
        {
            if (strstr(pszBuf, "Excel") != 0)
            {
                //发现 !
                sDriver = CString(pszBuf);
                break;
            }
            pszBuf = strchr(pszBuf, ''\0'') + 1;
        }
        while (pszBuf[1] != ''\0'');    return sDriver;
    }