VC读取excel，BasicExcel

之前在网上看到有人说用BasicExcel对Excel进行读取，但是这个源文件是运行之后会出现一系列的错误，哪位高手有这个修改之后的程序啊，能否发给我，不胜感激

解决方案 »

  1.   

    在开发软件时，经常要将数据输出到Excel 2000中，在Excel 2000中对该数据进行进一步地格式化处理或进行计算处理。在Visual Basic中处理起来较简单，Excel 2000的VB编程帮助中有较为详细的介绍。在Visual C++中如何进行处理了？利用Excel 2000的ActiveX Automate功能，处理起来同VB中类似。但要注意以下几点：对于对象的属性值的读取或赋值，需要用GetProperty()或SetProperty(NewValue)函数，不能象VB中直接通过属性名称取值或赋值。例如：Worksheet.GetCount(), Worksheet.SetName(“Sheet1”)。
    对集合对象中的成员对象的引用，必须使用集合对象的GetItem()函数。例如：Worksheets.GetItem(ColeVariant((long)1))或Worksheets.GetItem(ColeVariant(“Sheet1”))取得第一个工作表。
    在COM接口中，时常用到Variant，BSTR，SafeArray数据类型。Variant数据类型是一个联合，可表示几乎所有的类型的数据，具体用法见MSDN中的相关介绍，类_variant_t是对VARIANT数据类型的封装。在Excel 2000的VB编程帮助中，如果提到某函数或属性需要一个值，该值的数据类型通常是Variant，在封装Excel 2000对象的类定义中，说明了具体需要的数据类型。BSTR是一个包括了字符串和字符串长度的数据结构，类_bstr_t是对BSTR数据类型的封装。在Excel 2000的VB编程帮助中提到的字符串通常指BSTR。具体函数参数或属性的数据类型，见封装该对象的类的定义。SafeArray是一个包括数组和数组边界的结构，数组边界外的内容不允许访问。在Excel 2000的VB编程帮助中提到的数组是指SafeArray。关于SafeArray的处理，请见MSDN的相关帮助。
    对于缺省参数和缺省值。在VB中，函数的参数可以空缺，在VC++中不允许，必须将所有的参数填写完全。如果你希望指定某个参数为缺省值，根据参数数据类型的不同，可指定不同的缺省值。当参数数据类型为字符串时，可以用长度为0的字符串。如果参数是Variant类型，可用常量vtMissing，该常量在comdef.h中定义。也可用_variant_t(DISP_E_PARAMNOTFOUND, VT_ERROR)产生一个Variant对象。
    Excel对象中的集合对象有时包括的子对象是不一定的，例如：Range对象，可以表示Cell的集合，也可以表示Column的集合或Row的集合，Range.GetItem(1)可以返回Cell或Column或Row对象。
    对对象的引用或传递对象，使用IDispatch类对象，有时利用Variant对IDispatch进行包装。
    以下是一段源程序，演示如何启动Excel 2000，利用一个模板文件产生一个新文档，在该文档的”Sheet1”工作表的第一个单元中填写一段文字，设置第一列的列宽，然后调用一个模板中的宏，执行一段程序，最后打印预览该Excel文档。模板文件名称：MyTemplate.xlt。程序在Visual C++ 6.0 sp4，Windows 2000 Professional sp-1下调试通过。
    首先利用Visual C++ 6.0，建立一个MFC基于对话框的工程项目，共享DLL，Win32平台。工程名称ExcelTest。在主对话框中加入一个按钮，
    ID IDC_EXCELTEST
    Caption Test Excel
    双击该按钮，增加成员函数void CExcelTestDlg::OnExceltest()。
    在BOOL CExcelTestApp::InitInstance()中，dlg.DoModal();之前增加代码：
    if (CoInitialize(NULL)!=0)
    {
    AfxMessageBox("初始化COM支持库失败!");
    exit(1);
    }
    在return FALSE; 语句前，加入：
    CoUninitialize();
    选择Menu->View->ClassWizade，打开ClassWizade窗口，选择Add Class->From a type library，选择D:\Program Files\Microsoft Office\office\Excel9.OLB(D:\Program Files\Microsoft Office\是本机上Microsoft Office 2000的安装目录，可根据个人机器上的实际安装目录修改)。选择_Application、Workbooks、_Workbook、Worksheets、_Worksheet、Range，加入新类，分别为_Application、Workbooks、_Workbook、Worksheets、_Worksheet、Range，头文件Excel9.h，源文件Excel9.cpp。
    在ExcelTestDlg.cpp文件的头部，#include "ExcelTestDlg.h"语句之下，增加 ：
    #include "comdef.h"
    #include "Excel9.h"
    在void CExcelTestDlg::OnExceltest() 函数中增加如下代码：
    void CExcelTestDlg::OnExceltest()
    {
    _Application ExcelApp;
    Workbooks wbsMyBooks;
    _Workbook wbMyBook;
    Worksheets wssMysheets;
    _Worksheet wsMysheet;
    Range rgMyRge;
    //创建Excel 2000服务器(启动Excel)
     
    if (!ExcelApp.CreateDispatch("Excel.Application",NULL))
    {
    AfxMessageBox("创建Excel服务失败!");
    exit(1);
    }
    //利用模板文件建立新文档
    wbsMyBooks.AttachDispatch(ExcelApp.GetWorkbooks(),true);
    wbMyBook.AttachDispatch(wbsMyBooks.Add(_variant_t("g:\\exceltest\\MyTemplate.xlt")));
    //得到Worksheets
    wssMysheets.AttachDispatch(wbMyBook.GetWorksheets(),true);
    //得到sheet1
    wsMysheet.AttachDispatch(wssMysheets.GetItem(_variant_t("sheet1")),true);
    //得到全部Cells，此时,rgMyRge是cells的集合
    rgMyRge.AttachDispatch(wsMysheet.GetCells(),true);
    //设置1行1列的单元的值
    rgMyRge.SetItem(_variant_t((long)1),_variant_t((long)1),_variant_t("This Is A Excel Test Program!"));
    //得到所有的列
    rgMyRge.AttachDispatch(wsMysheet.GetColumns(),true);
    //得到第一列
    rgMyRge.AttachDispatch(rgMyRge.GetItem(_variant_t((long)1),vtMissing).pdispVal,true);
    //设置列宽
    rgMyRge.SetColumnWidth(_variant_t((long)200));
    //调用模板中预先存放的宏
    ExcelApp.Run(_variant_t("CopyRow"),_variant_t((long)10),vtMissing,vtMissing,
    vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,
    vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,
    vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,
    vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing);
    //打印预览
    wbMyBook.SetSaved(true);
    ExcelApp.SetVisible(true);
    wbMyBook.PrintPreview(_variant_t(false));
    //释放对象
    rgMyRge.ReleaseDispatch();
    wsMysheet.ReleaseDispatch();
    wssMysheets.ReleaseDispatch();
    wbMyBook.ReleaseDispatch();
    wbsMyBooks.ReleaseDispatch();
    ExcelApp.ReleaseDispatch();
    }
    添加完以上程序后，可运行看结果。
     通过类型库接口，将ListCtrl导出为Excel2003，并实现Excel多种功能：ExportToExcel()
    {
     COleVariant
          covTrue((short)TRUE),
          covFalse((short)FALSE),
          covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);   CApplication app;
       CWorkbooks books;
       CWorkbook book;
       CWorksheets sheets;
       CWorksheet sheet;
       CRange range;
       CFont0 font;
       CRange cols;
       CRange resizedrange;
       Cnterior interior;
       CBorders borders;
       CBorder bottomborder;
       CPageSetup myPage;
       CWindow0 myWin;
       // 建立Excel2003服务器.
       if(!app.CreateDispatch("Excel.Application"))
       {
          AfxMessageBox("无法建立Excel2003服务器！");
          return;
       }   //获取 workbook.
       books = app.get_Workbooks();
       book = books.Add (covOptional);   //获取第一个 sheet.
       sheets =book.get_Sheets();
       sheet = sheets.get_Item(COleVariant((short)1));
       sheet.put_Name("表1");   //填写标题.
       range = sheet.get_Range(COleVariant("A1"),COleVariant("A1"));
       range.put_Value2(COleVariant("列1"));
       range = sheet.get_Range(COleVariant("B1"),COleVariant("B1"));
       range.put_Value2(COleVariant("列2"));
       range = sheet.get_Range(COleVariant("C1"),COleVariant("C1"));
       range.put_Value2(COleVariant("列3"));
       range = sheet.get_Range(COleVariant("D1"),COleVariant("D1"));
       range.put_Value2(COleVariant("列4"));
       range = sheet.get_Range(COleVariant("E1"),COleVariant("E1"));
       range.put_Value2(COleVariant("列5"));
       
       //设置标题粗体.
       range = sheet.get_Range(COleVariant("A1"), COleVariant("E1"));
       font = range.get_Font();
       font.put_Bold(covTrue);
       font.put_Name(COleVariant("仿宋_GB2312"));
       font.put_Size(COleVariant(short(14)));
       range.put_RowHeight(COleVariant(short(35)));   //设置行高     //导入数据.
       CString cellNo;
       char cellChar;
       char jump;
       int nItem=m_list.GetItemCount();
       for(int i=0;i<nItem;i++)
       {
        cellChar='A';    ;
        for(int k=0;k<5;k++)
        {
           //添加数据
         cellNo.Format("%s%d",CString(cellChar),i+1）;
         range = sheet.get_Range(COleVariant(cellNo),COleVariant(cellNo));
         range.put_Value2(COleVariant(m_list.GetItemText(i,k+1)));       cellChar++;  
        }
       }
       // 自适应窗格大小
       cellNo.Format("%s%d","E",nItem+1);
       range = sheet.get_Range(COleVariant("A1"), COleVariant(cellNo));
       cols = range.get_EntireColumn();
       cols.AutoFit(); //添加线条.
     range = sheet.get_Range(COleVariant("A1"), COleVariant(cellNo));
     range.put_VerticalAlignment(COleVariant((short)-4108));   //xlVAlignCenter = -4108
     range.put_HorizontalAlignment(COleVariant((short)-4108));
     borders = range.get_Borders();
     borders.put_Weight(COleVariant((short)2));   //xlThin = 2
     range = sheet.get_Range(COleVariant("A2"), COleVariant(cellNo));
     range.put_RowHeight(COleVariant(short(18)));   //设置行高  //设置页脚页眉及标题
     myPage=sheet.get_PageSetup();
     myPage.put_HeaderMargin(1/0.035);              //设置上下及页眉边距，1/0.035:
     myPage.put_TopMargin(2.7/0.035);               //将1厘米转换成 points点数
     myPage.put_BottomMargin(1.5/0.035); 
     myPage.put_CenterHeader("&\"黑体,常规\"&24测试表");  // 需要用斜杠将引号转义，VB中用"转义
     myPage.put_PrintTitleRows("$1:$1");            //1 2行作为必打项
     myPage.put_PrintTitleColumns("$A:$B");         //A B列作为必打项
     myPage.put_Orientation(2);//xlLandscape=2 横向
       
       //冻结窗格
       range = sheet.get_Range(COleVariant("C2"), COleVariant("C2"));
       range.Select();
       myWin=app.get_ActiveWindow();
       myWin.put_FreezePanes(1);
       //显示Excel程序
       app.put_Visible(TRUE);
       app.put_UserControl(TRUE);
    }
      

  2.   

    在开发软件时，经常要将数据输出到Excel 2000中，在Excel 2000中对该数据进行进一步地格式化处理或进行计算处理。在Visual Basic中处理起来较简单，Excel 2000的VB编程帮助中有较为详细的介绍。在Visual C++中如何进行处理了？利用Excel 2000的ActiveX Automate功能，处理起来同VB中类似。但要注意以下几点：对于对象的属性值的读取或赋值，需要用GetProperty()或SetProperty(NewValue)函数，不能象VB中直接通过属性名称取值或赋值。例如：Worksheet.GetCount(), Worksheet.SetName(“Sheet1”)。
    对集合对象中的成员对象的引用，必须使用集合对象的GetItem()函数。例如：Worksheets.GetItem(ColeVariant((long)1))或Worksheets.GetItem(ColeVariant(“Sheet1”))取得第一个工作表。
    在COM接口中，时常用到Variant，BSTR，SafeArray数据类型。Variant数据类型是一个联合，可表示几乎所有的类型的数据，具体用法见MSDN中的相关介绍，类_variant_t是对VARIANT数据类型的封装。在Excel 2000的VB编程帮助中，如果提到某函数或属性需要一个值，该值的数据类型通常是Variant，在封装Excel 2000对象的类定义中，说明了具体需要的数据类型。BSTR是一个包括了字符串和字符串长度的数据结构，类_bstr_t是对BSTR数据类型的封装。在Excel 2000的VB编程帮助中提到的字符串通常指BSTR。具体函数参数或属性的数据类型，见封装该对象的类的定义。SafeArray是一个包括数组和数组边界的结构，数组边界外的内容不允许访问。在Excel 2000的VB编程帮助中提到的数组是指SafeArray。关于SafeArray的处理，请见MSDN的相关帮助。
    对于缺省参数和缺省值。在VB中，函数的参数可以空缺，在VC++中不允许，必须将所有的参数填写完全。如果你希望指定某个参数为缺省值，根据参数数据类型的不同，可指定不同的缺省值。当参数数据类型为字符串时，可以用长度为0的字符串。如果参数是Variant类型，可用常量vtMissing，该常量在comdef.h中定义。也可用_variant_t(DISP_E_PARAMNOTFOUND, VT_ERROR)产生一个Variant对象。
    Excel对象中的集合对象有时包括的子对象是不一定的，例如：Range对象，可以表示Cell的集合，也可以表示Column的集合或Row的集合，Range.GetItem(1)可以返回Cell或Column或Row对象。
    对对象的引用或传递对象，使用IDispatch类对象，有时利用Variant对IDispatch进行包装。
    以下是一段源程序，演示如何启动Excel 2000，利用一个模板文件产生一个新文档，在该文档的”Sheet1”工作表的第一个单元中填写一段文字，设置第一列的列宽，然后调用一个模板中的宏，执行一段程序，最后打印预览该Excel文档。模板文件名称：MyTemplate.xlt。程序在Visual C++ 6.0 sp4，Windows 2000 Professional sp-1下调试通过。
    首先利用Visual C++ 6.0，建立一个MFC基于对话框的工程项目，共享DLL，Win32平台。工程名称ExcelTest。在主对话框中加入一个按钮，
    ID IDC_EXCELTEST
    Caption Test Excel
    双击该按钮，增加成员函数void CExcelTestDlg::OnExceltest()。
    在BOOL CExcelTestApp::InitInstance()中，dlg.DoModal();之前增加代码：
    if (CoInitialize(NULL)!=0)
    {
    AfxMessageBox("初始化COM支持库失败!");
    exit(1);
    }
    在return FALSE; 语句前，加入：
    CoUninitialize();
    选择Menu->View->ClassWizade，打开ClassWizade窗口，选择Add Class->From a type library，选择D:\Program Files\Microsoft Office\office\Excel9.OLB(D:\Program Files\Microsoft Office\是本机上Microsoft Office 2000的安装目录，可根据个人机器上的实际安装目录修改)。选择_Application、Workbooks、_Workbook、Worksheets、_Worksheet、Range，加入新类，分别为_Application、Workbooks、_Workbook、Worksheets、_Worksheet、Range，头文件Excel9.h，源文件Excel9.cpp。
    在ExcelTestDlg.cpp文件的头部，#include "ExcelTestDlg.h"语句之下，增加 ：
    #include "comdef.h"
    #include "Excel9.h"
    在void CExcelTestDlg::OnExceltest() 函数中增加如下代码：
    void CExcelTestDlg::OnExceltest()
    {
    _Application ExcelApp;
    Workbooks wbsMyBooks;
    _Workbook wbMyBook;
    Worksheets wssMysheets;
    _Worksheet wsMysheet;
    Range rgMyRge;
    //创建Excel 2000服务器(启动Excel)
     
    if (!ExcelApp.CreateDispatch("Excel.Application",NULL))
    {
    AfxMessageBox("创建Excel服务失败!");
    exit(1);
    }
    //利用模板文件建立新文档
    wbsMyBooks.AttachDispatch(ExcelApp.GetWorkbooks(),true);
    wbMyBook.AttachDispatch(wbsMyBooks.Add(_variant_t("g:\\exceltest\\MyTemplate.xlt")));
    //得到Worksheets
    wssMysheets.AttachDispatch(wbMyBook.GetWorksheets(),true);
    //得到sheet1
    wsMysheet.AttachDispatch(wssMysheets.GetItem(_variant_t("sheet1")),true);
    //得到全部Cells，此时,rgMyRge是cells的集合
    rgMyRge.AttachDispatch(wsMysheet.GetCells(),true);
    //设置1行1列的单元的值
    rgMyRge.SetItem(_variant_t((long)1),_variant_t((long)1),_variant_t("This Is A Excel Test Program!"));
    //得到所有的列
    rgMyRge.AttachDispatch(wsMysheet.GetColumns(),true);
    //得到第一列
    rgMyRge.AttachDispatch(rgMyRge.GetItem(_variant_t((long)1),vtMissing).pdispVal,true);
    //设置列宽
    rgMyRge.SetColumnWidth(_variant_t((long)200));
    //调用模板中预先存放的宏
    ExcelApp.Run(_variant_t("CopyRow"),_variant_t((long)10),vtMissing,vtMissing,
    vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,
    vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,
    vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,
    vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing);
    //打印预览
    wbMyBook.SetSaved(true);
    ExcelApp.SetVisible(true);
    wbMyBook.PrintPreview(_variant_t(false));
    //释放对象
    rgMyRge.ReleaseDispatch();
    wsMysheet.ReleaseDispatch();
    wssMysheets.ReleaseDispatch();
    wbMyBook.ReleaseDispatch();
    wbsMyBooks.ReleaseDispatch();
    ExcelApp.ReleaseDispatch();
    }
    添加完以上程序后，可运行看结果。
     通过类型库接口，将ListCtrl导出为Excel2003，并实现Excel多种功能：ExportToExcel()
    {
     COleVariant
          covTrue((short)TRUE),
          covFalse((short)FALSE),
          covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);   CApplication app;
       CWorkbooks books;
       CWorkbook book;
       CWorksheets sheets;
       CWorksheet sheet;
       CRange range;
       CFont0 font;
       CRange cols;
       CRange resizedrange;
       Cnterior interior;
       CBorders borders;
       CBorder bottomborder;
       CPageSetup myPage;
       CWindow0 myWin;
       // 建立Excel2003服务器.
       if(!app.CreateDispatch("Excel.Application"))
       {
          AfxMessageBox("无法建立Excel2003服务器！");
          return;
       }   //获取 workbook.
       books = app.get_Workbooks();
       book = books.Add (covOptional);   //获取第一个 sheet.
       sheets =book.get_Sheets();
       sheet = sheets.get_Item(COleVariant((short)1));
       sheet.put_Name("表1");   //填写标题.
       range = sheet.get_Range(COleVariant("A1"),COleVariant("A1"));
       range.put_Value2(COleVariant("列1"));
       range = sheet.get_Range(COleVariant("B1"),COleVariant("B1"));
       range.put_Value2(COleVariant("列2"));
       range = sheet.get_Range(COleVariant("C1"),COleVariant("C1"));
       range.put_Value2(COleVariant("列3"));
       range = sheet.get_Range(COleVariant("D1"),COleVariant("D1"));
       range.put_Value2(COleVariant("列4"));
       range = sheet.get_Range(COleVariant("E1"),COleVariant("E1"));
       range.put_Value2(COleVariant("列5"));
       
       //设置标题粗体.
       range = sheet.get_Range(COleVariant("A1"), COleVariant("E1"));
       font = range.get_Font();
       font.put_Bold(covTrue);
       font.put_Name(COleVariant("仿宋_GB2312"));
       font.put_Size(COleVariant(short(14)));
       range.put_RowHeight(COleVariant(short(35)));   //设置行高     //导入数据.
       CString cellNo;
       char cellChar;
       char jump;
       int nItem=m_list.GetItemCount();
       for(int i=0;i<nItem;i++)
       {
        cellChar='A';    ;
        for(int k=0;k<5;k++)
        {
           //添加数据
         cellNo.Format("%s%d",CString(cellChar),i+1）;
         range = sheet.get_Range(COleVariant(cellNo),COleVariant(cellNo));
         range.put_Value2(COleVariant(m_list.GetItemText(i,k+1)));       cellChar++;  
        }
       }
       // 自适应窗格大小
       cellNo.Format("%s%d","E",nItem+1);
       range = sheet.get_Range(COleVariant("A1"), COleVariant(cellNo));
       cols = range.get_EntireColumn();
       cols.AutoFit(); //添加线条.
     range = sheet.get_Range(COleVariant("A1"), COleVariant(cellNo));
     range.put_VerticalAlignment(COleVariant((short)-4108));   //xlVAlignCenter = -4108
     range.put_HorizontalAlignment(COleVariant((short)-4108));
     borders = range.get_Borders();
     borders.put_Weight(COleVariant((short)2));   //xlThin = 2
     range = sheet.get_Range(COleVariant("A2"), COleVariant(cellNo));
     range.put_RowHeight(COleVariant(short(18)));   //设置行高  //设置页脚页眉及标题
     myPage=sheet.get_PageSetup();
     myPage.put_HeaderMargin(1/0.035);              //设置上下及页眉边距，1/0.035:
     myPage.put_TopMargin(2.7/0.035);               //将1厘米转换成 points点数
     myPage.put_BottomMargin(1.5/0.035); 
     myPage.put_CenterHeader("&\"黑体,常规\"&24测试表");  // 需要用斜杠将引号转义，VB中用"转义
     myPage.put_PrintTitleRows("$1:$1");            //1 2行作为必打项
     myPage.put_PrintTitleColumns("$A:$B");         //A B列作为必打项
     myPage.put_Orientation(2);//xlLandscape=2 横向
       
       //冻结窗格
       range = sheet.get_Range(COleVariant("C2"), COleVariant("C2"));
       range.Select();
       myWin=app.get_ActiveWindow();
       myWin.put_FreezePanes(1);
       //显示Excel程序
       app.put_Visible(TRUE);
       app.put_UserControl(TRUE);
    }
      

  3.   

    我是新来的，不知道怎么回复楼上的，没找到回复的按钮啊，但是楼上的好像没有看清楚我的题目，理解我想要的，我想用basicExcel 修正之后的程序，就是能够识别UNIcode的代码，但是还是谢谢楼上的热心帮助
      

  4.   

    从http://www.codeproject.com/KB/office/BasicExcel.aspx下载的“BasicExcel_demo.zip”解压之后，有以下几个文件：
    BasicExcel.cpp
    BasicExcel.hpp
    BasicExcelVC6.cpp
    BasicExcelVC6.hpp
    example1.xls
    YExcel.cpp如果，我们使用VC6.0，那么需要修改YExcel.cpp，将原来的#include <BasicExcel.hpp>
    using namespace YExcel;修改为：#include "BasicExcelVC6.hpp"
    using namespace YExcel;并通过“Add Files to Project”将BasicExcelVC6.cpp、BasicExcelVC6.hpp加入你的工程中。然后再编译就不会报错了^_^
      

  5.   

    按照楼上的方法 编译后错误如下，求解答 谢谢--------------------Configuration: SmarX5200_CU_ElecSafty - Win32 Release--------------------
    Compiling...
    BasicExcelVC6.cpp
    e:\安规v2.0\smarx5200_cu_elecsafty\basicexcelvc6.cpp(5893) : fatal error C1010: unexpected end of file while looking for precompiled header directive
    Error executing cl.exe.SmarX5200_CU_SmarX5200_CU_ElecSafty.dll - 1 error(s), 0 warning(s)
      

  6.   

    后来我没用这个basicexcel ,就不懂则个类，不好意思啊