void CVisionDoc::ExportListToExcel(CListCtrl *pList,CString sExcelFile, CString sSheetName)
{
CString warningStr;
if (pList->GetItemCount ()>0) 

CDatabase database;
CString sDriver;
CString sSql;

// 检索是否安装有Excel驱动 "Microsoft Excel Driver (*.xls)" 
sDriver = GetExcelDriver();
if (sDriver.IsEmpty())
{
// 没有发现Excel驱动
MessageBox(NULL,"没有安装Excel!\n请先安装Excel软件才能使用导出功能!","提示",MB_OK|MB_ICONSTOP|MB_TOPMOST);
return;
}

// 创建进行存取的字符串
sSql.Format("DRIVER={%s};DSN='';FIRSTROWHASNAMES=1;READONLY=FALSE;CREATE_DB=\"%s\";DBQ=%s",sDriver, sExcelFile, sExcelFile);

// 创建数据库 (既Excel表格文件)
if( database.OpenEx(sSql,CDatabase::noOdbcDialog) )
{
// 创建表结构
int i;
LVCOLUMN columnData;
CString columnName;
int columnNum = 0;
CString strH;
CString strV;

sSql = "";
strH = "";
columnData.mask = LVCF_TEXT;
columnData.cchTextMax =100;
columnData.pszText = columnName.GetBuffer (100);
for(i=0;pList->GetColumn(i,&columnData);i++)
{
if (i!=0)
{
sSql = sSql + "," ;
strH = strH + "," ;
}

sSql = sSql + columnData.pszText +" TEXT";
strH = strH + columnData.pszText +" ";

}
columnName.ReleaseBuffer ();
columnNum = i;

sSql = "CREATE TABLE " + sSheetName+ " (" + sSql + ")";
database.ExecuteSQL(sSql);

// 插入数据项
int nItemIndex;
for (nItemIndex=0;nItemIndex<pList->GetItemCount ();nItemIndex++)
{
strV = "";
for(i=0;i<columnNum;i++)
{
if (i!=0)
{
strV = strV + "," ;
}

strV = strV + "'" + pList->GetItemText(nItemIndex,i) +"'";

}

sSql = "INSERT INTO "+ sSheetName
+" ("+ strH + ")"
+" VALUES("+ strV + ")";

database.ExecuteSQL(sSql);
}

}      

// 关闭数据库
database.Close();

warningStr.Format("导出文件保存于%s!",sExcelFile);
MessageBox(NULL,warningStr,"提示",MB_OK|MB_ICONINFORMATION|MB_TOPMOST);
}
else
{
//没有数据
MessageBox(NULL,"没有数据,不能导出!","提示",MB_OK|MB_ICONWARNING|MB_TOPMOST);

}

}CString CVisionDoc::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;

}