vc6.0将数据写入EXCEL表代码

 
ExportXls()
{
    CDatabase database;
    CString sDriver = " MICROSOFT EXCEL DRIVER (*.XLS) " ; // Excel安装驱动
    CString sExcelFile(_T( " D://1.xls " ));
    CString sSql;
   
    TRY
    {
        // 创建进行存取的字符串
        sSql.Format( " DRIVER={%s};DSN='';FIRSTROWHASNAMES=1;READONLY=FALSE;CREATE_DB=/"%s/";DBQ=%s " ,sDriver, sExcelFile, sExcelFile);
       
        // 创建数据库 (既Excel表格文件)