vs2010操作 office2010自我笔记

【FAG按顺序添加这些东西】
1.创建一个新的工程，选择mfc application，选择dialog，在advanced features选择automation（这一项我不确定有没有必要，查资料说要选上，我就选上了）
2.创建完工程后，在dialog对话框上右击，选择class wizard（或是ctrl+shift+x)
3.在add class下拉框内选择add class from typelib
4.在add class from下面选择file，然后你的office安装目录下的EXCEL.EXE（我的目录是C:\Program Files (x86)\Microsoft Office\Office14\EXCEL.EXE）
5.在下面添加6个类到我们的工程，（_Application, Worksheets, _Worksheet, Workbooks, _Workbook, Range）注意有的有下划线，别添加错了

【FAG注释掉下面】
把导入的6个类对应的头文件最开始的一句话[注释]

#import "C:\\Program Files (x86)\\Microsoft Office\\Office14\\EXCEL.EXE" no_namespace  

【FAG添加下划线】
把Range这个类自动生成的头文件（我这是CRage.h）里面的
VARIANT DialogBox()
VARIANT _DialogBox()

【FAG添加头文件】

//====6个类的头文件================================
#include "CApplication.h"  
#include "CRange.h"  
#include "CWorkbook.h"  
#include "CWorkbooks.h"  
#include "CWorksheet.h"  
#include "CWorksheets.h" 

//====里面定义变量时用到==============================
#include <map>
#include <utility>
using namespace std;

【FAG使用函数】

void Cfag_EXCEL00Dlg::OnBnClickedButton1()
{
    // TODO: Add your control notification handler code here
    ::CoInitialize(NULL);
    //用到六个excel类
    //要操作表，必须先逐步获取Workbooks->Workbook->Worksheets->Worksheet->Range
    CApplication app;   //先创建一个_Application类，用_Application来创建一个Excel应用程序接口
    CWorkbooks books;   //工作薄集合
    CWorkbook book;     //工作薄
    CWorksheets sheets; //工作表集合
    CWorksheet sheet;   //工作表
    CRange range;       //单元格区域对象

    //star excel
    if (!app.CreateDispatch("Excel.Application"))
    {
        AfxMessageBox("无法启动Excel启动器");
        return ;
    }

    //=======================

    //========================
    //open *.xls
    books.AttachDispatch(app.get_Workbooks());
        //get file path
    LPCTSTR szFilter = _T("txt(*.txt)|*.txt|excel(*.xls)|*.xls|All Filter(*.*)|*.*||");
    CFileDialog dlg(TRUE,NULL,NULL,OFN_HIDEREADONLY,szFilter);
    if (IDOK != dlg.DoModal())
    {
        return ;
    }
    //得到excel的路径
    CString strPath = dlg.GetPathName();

     /*    COleVariant类为VARIANT数据类型的包装，
       在自动化程序中，通常都使用ARIANT数据类型进行参数传递。
           故下列程序中，函数参数都是通过COleVariant类来转换了的。
    */  

    //covOptional 可选参数的VARIANT类型
    COleVariant covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);

    //打开books
    LPDISPATCH lpDisp = books.Open(strPath,covOptional,covOptional,covOptional,
                                    covOptional,covOptional,covOptional,covOptional,
                                    covOptional,covOptional,covOptional,covOptional,
                                    covOptional,covOptional,covOptional);
    //get workbook【得到book】
    book.AttachDispatch(lpDisp);

    //get worksheets【得到sheets】
    sheets.AttachDispatch(book.get_Worksheets());

    //get the current active sheet【得到sheet】
    lpDisp = book.get_ActiveSheet();
    sheet.AttachDispatch(lpDisp);

    //get used regional information【得到已经使用区域的原始信息】
    CRange UsedRange;
    UsedRange.AttachDispatch(sheet.get_UsedRange());

    //get used line numbers【得到已经使用行的数目】
    range.AttachDispatch(UsedRange.get_Rows());
    long iRowNum = range.get_Count();

    //get used column numbers【得到已经使用列的数目】
    range.AttachDispatch(UsedRange.get_Columns());
    long iColNum = range.get_Count();

    //read the starting line and column【读取行和列的开始信息】
    long iStarRow = UsedRange.get_Row();
    long iStarCol = UsedRange.get_Column();

    //read the table values【读取每个单元格的数值】


    for (;iStarRow <= iRowNum;iStarRow++)//控制行循环
    {
        for (iStarCol = UsedRange.get_Column();iStarCol <= iColNum;iStarCol++)//控制列循环
        {   
            //得到sheet中所有单元格，并放入range中
            range.AttachDispatch(sheet.get_Cells());

            //从已经被使用的单元中，选出一个，并放入range中
            range.AttachDispatch(range.get_Item(COleVariant(iStarRow),COleVariant(iStarCol)).pdispVal);

            //取出单元格数据放入vResult结构体中
            COleVariant vResult = range.get_Value2();

           //将vResult结构体变量解析成为CString类型，放入str中。
            CString str;
            if (vResult.vt == VT_BSTR)//character string【如果是中文】
            {
                str = vResult.bstrVal;
            }
            else if (vResult.vt == VT_R8)//8 byte of digital【或是数字】
            {
                str.Format("%f",vResult.dblVal);
            }
            else if (vResult.vt == VT_DATE)//date time【时间】
            {
                SYSTEMTIME st;
                VariantTimeToSystemTime(vResult.date,&st);
            }
            else if (vResult.vt == VT_EMPTY)//blank space【空白区】
            {
                str = "";
            }


            strResultNum.first = iStarRow; //单元格行标
            strResultNum.second = iStarCol;//单元格列标

            strResult[strResultNum] = str;//此位置单元格的字符串
        }
    }

    //release
    sheet.ReleaseDispatch();//释放sheet
    sheets.ReleaseDispatch();//释放sheets
    book.Close(covOptional,COleVariant(strPath),covOptional);//关闭book
    books.Close();//关闭books
    app.Quit();//关闭app
    //CoUninitialize();


}


void Cfag_EXCEL00Dlg::OnBnClickedButton2()
{
    // TODO: Add your control notification handler code here
    ::CoInitialize(NULL);
    //export to excel

    //get the export file path
    CFileDialog dlg(FALSE,NULL,NULL,OFN_HIDEREADONLY,"excel(*.xls)|*.xls|txt(*.txt)|*.txt|All Filter(*.*)|*.*||");
    if (IDOK != dlg.DoModal())
    {
        return ;
    }
    CString fname = dlg.GetPathName();

    //define the objects
    CApplication objApp;
    CWorkbooks objBooks;
    CWorkbook objBook;
    CWorksheets objSheets;
    CWorksheet objSheet;
    CRange objRange;

    COleVariant covOptional((long)DISP_E_PARAMNOTFOUND,VT_ERROR),
                covTrue(    (short)TRUE     ),
                covFalse(   (short)FALSE    ),
                varFormat(  (short)-4143    ),
                varCenter(  (short)-4108    ),
                varLeft(    (short)-4131    ),
                varText(    "TEXT",VT_BSTR  );

    //creat excel
    objApp.m_bAutoRelease = TRUE;
    if (!objApp.CreateDispatch("Excel.Application"))
    {
        AfxMessageBox("Failed to connect to excel!");
        return ;
    }

    //get Workbooks
    objBooks = objApp.get_Workbooks();

    //open excel file
    objBook.AttachDispatch(objBooks.Add(_variant_t("")));

    //get worksheets
    objSheets = objBook.get_Worksheets();

    //get worksheet【获取第一个工作表】
    objSheet = objSheets.get_Item((_variant_t)short(1));

    //set worksheet name
    CString sheetname = "答案设置";
    objSheet.put_Name(sheetname);

    //write to cells
    CString s1;
    CString s;
    pair<long,long> sNum;
    CRange objRange1;
    int row,col;
    CString strRow;
    CString strName = fname;
    char cCell;
    for (row = 1;row <= strResultNum.first;row++)
    {
        for (col = 1;col <= strResultNum.second;col++)
        {
            //get the unit head
            cCell = 'A' + col - 1;//A
            strName.Format(_T("%c"),cCell);//A
            strRow.Format(_T("%d"),row);//1
            strName += strRow;//strName=A1

            s1.Format(strName);
            objRange1 = objSheet.get_Range(_variant_t(s1),_variant_t(s1));//移到A1这个单元格

            //get the unit value【往此格里装值】
            sNum.first = row;
            sNum.second = col;
            s = strResult[sNum];
            objRange1.put_FormulaR1C1(_variant_t(s));
            //【put_FormulaR1C1】返回或设置指定对象的公式
        }
    }

    //save【保存一些后续的工作就行】
    objBook.SaveAs(     _variant_t(fname),
                        varFormat,
                        covOptional,
                        covOptional,
                        covOptional,
                        covOptional,
                        0,
                        covOptional,
                        covOptional,
                        covOptional,
                        covOptional,
                        covOptional
                    );

    //release
    objApp.Quit();
    objRange.ReleaseDispatch();
    objSheet.ReleaseDispatch();
    objSheets.ReleaseDispatch();
    objBook.ReleaseDispatch();
    objBooks.ReleaseDispatch();
}

转载于:https://www.cnblogs.com/fag888/p/5789086.html