精华内容
下载资源
问答
  • Microsoft Visual Basic for Applications (VBA) 是近几...本文许多解决方案重构问题进行了分析,这些问题是您在使用 Visual Basic 语言将 VBA 解决方案重构到 Visual Studio 2005 Tools for Office 时可能会遇到的。
  • VS2010操作Excel编程

    2017-07-25 09:03:53
    通过VC实现对Excel表格的操作的方法有多种,如:通过ODBC数据库实现,通过解析Excel表格文件,通过OLE/COM的实现。...Microsoft Visual Studio 2010 Microsoft Office Excel 20071、添加OLE/COM支持。 首先,应

    通过VC实现对Excel表格的操作的方法有多种,如:通过ODBC数据库实现,通过解析Excel表格文件,通过OLE/COM的实现。本文主要研究通过OLE/COM实现对Excel表格的操作。

    本文源码的应用环境说明:
    Windows XP SP3
    Microsoft Visual Studio 2010
    Microsoft Office Excel 2007

    1、添加OLE/COM支持。
    首先,应用程序必须添加对OLE/COM的支持,才能导入OLE/COM组件。
    本文使用的是MFC对话框程序,在创建工程的向导中选中Automation选项即可为程序自动添加相应的头文件和OLE库初始化代码。
    通过查看源代码,可以知道在stdafx.h的头文件中,添加了OLE/COM很多类所需添加的头文件。

    include

    #import "D:\Program Files\Microsoft Office\Office12\EXCEL.EXE" no_namespace

    这行代码的作用是导入Excel整个类型库到工程中。
    由VS2010自动产生的导入代码存在以下几个问题:
    (1)如果导入了多个接口,每个头文件都会把类型库导入一次,如果引用多个头文件,会导致类型库重复导入。
    (2)Excel类型库中有些类型会跟MFC类库的某些类型冲突。
    (3)Excel类型库的某些类型跟其他Office和VB的某些库相关,如果不导入相关库,将导致这些类型无法使用。。
    以上三点问题的解决方法如下:
    (1)仅在_Application接口对应头文件中导入Excel类型库。
    (2)对冲突的类型进行重命名。
    (3)在导入Excel类型库之前,先导入Office和VB的相关库。
    更改后的导入类型库的代码如下:

    #import "C:\Program Files\Common Files\Microsoft Shared\OFFICE12\MSO.DLL"
    rename("RGB", "MSORGB")
    rename("DocumentProperties", "MSODocumentProperties")
    using namespace Office;
    #import "C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXusing namespace VBIDE;
    #import "D:\Program Files\Microsoft Office\Office12\EXCEL.EXE"
    rename("DialogBox", "ExcelDialogBox")
    rename("RGB", "ExcelRGB")
    rename("CopyFile", "ExcelCopyFile")
    rename("ReplaceText", "ExcelReplaceText")
    no_auto_excludenamespace Excel;

    编译程序后,会在Debug或Release目录下生成三个文件mso.tlh、vbe6ext.tlh和excel.tlh。通过打开文件可知,该三个文件的命名空间分别是Office、VBIDE和Excel。导入了Excel的整个类型库后,就可以使用Excel中的所有类型了。

    4、操作Excel步骤
    操作Excel的主要步骤如下:
    (1)创建一个Excel应用程序。
    (2)得到Workbook的容器。
    (3)打开一个Workbook或者创建一个Workbook。
    (4)得到Workbook中的Worksheet的容器。
    (5)打开一个Worksheet或者创建一个WorkSheet。
    (6)通过Range对WorkSheet中的单元格进行读写操作。
    (7)保存Excel。
    (8)释放资源。

    5、批量处理Excel表格
    VC通过OLE/COM操作Excel,是通过进程间的组件技术。因此,每次读写Excel中的单元格时,都要进行进程间的切换。当数据量大,如果一个单元格一个单元格的读取,主要的时间都花费在进程切换中。因此读取多个单元格,将可有效的提高程序的运行效率。
    对多个单元格的读写操作可以通过CRange中以下两个成员函数来完成。
    VARIANT get_Value2();
    void put_Value2(VARIANT& newValue);
    其中,输入参数newValue只要输入一个二维数组,即可实现向Excel中一次写入多个单元格的值。
    其中,VARIANT中实现二维数据的方法可参考
    http://www.cnblogs.com/xianyunhe/archive/2011/09/13/2174703.html
    当然,在对CRange类进行操作之前,要设置CRange类对应的单元格。

    6、Excel表格的保存
    (1)如果要保存打开的工作簿,使用CWorkbook类的Save函数就可以保存工作簿,原文件将被覆盖。
    (2)如果是新创建的工作簿,或者是要另存为,可使用CWorkbook类的SaveAs函数。
    SaveAs的参数比较多。其中,第1个参数是设置要保存文件的路径;第2个参数是设置文件的格式,可在MSDN中查看枚举类型XlFileFormat来了解Excel的文件格式。经过测试,在本文所用的测试环境中,Excel2003的文件格式是xlExcel8,Excel2007的文件格式是xlExcel4。

    7、获取当前Excel的版本
    可以通过CApplication的get_Version函数来获得Excel的版本,其中,Excel2007的主版本号是12,Excel2003的主版本号是11。

    8、示例源代码
    主要代码如下:

    m_ListCtrl.SetExtendedStyle(LVS_REPORT | LVS_EX_FULLROWSELECT);
    
    CApplication ExcelApp;
    CWorkbooks books;
    CWorkbook book;
    CWorksheets sheets;
    CWorksheet sheet;
    CRange range;
    LPDISPATCH lpDisp = NULL;
    
    //创建Excel 服务器(启动Excel)
    if(!ExcelApp.CreateDispatch(_T("Excel.Application"),NULL))
    {
    AfxMessageBox(_T("启动Excel服务器失败!"));
    return -1;
    }
    
    CString strExcelVersion = ExcelApp.get_Version();
    int iStart = 0;
    strExcelVersion = strExcelVersion.Tokenize(_T("."), iStart);
    if (_T("11") == strExcelVersion)
    {
    AfxMessageBox(_T("当前Excel的版本是2003。"));
    }
    else if (_T("12") == strExcelVersion)
    {
    AfxMessageBox(_T("当前Excel的版本是2007。"));
    }
    else
    {
    AfxMessageBox(_T("当前Excel的版本是其他版本。"));
    }
    
    ExcelApp.put_Visible(TRUE);
    ExcelApp.put_UserControl(FALSE);
    
    books.AttachDispatch(ExcelApp.get_Workbooks());
    
    
    CString strBookPath = _T("C:\tmp.xls");
    try
    {
    
    lpDisp = books.Open(strBookPath, 
    vtMissing, vtMissing, vtMissing, vtMissing, vtMissing,
    vtMissing, vtMissing, vtMissing, vtMissing, vtMissing, 
    vtMissing, vtMissing, vtMissing, vtMissing);
    book.AttachDispatch(lpDisp);
    }
    catch(...)
    {
    
    lpDisp = books.Add(vtMissing);
    book.AttachDispatch(lpDisp);
    }
    
    sheets.AttachDispatch(book.get_Sheets());
    
    CString strSheetName = _T("NewSheet");
    try
    {
    lpDisp = sheets.get_Item(_variant_t(strSheetName));
    sheet.AttachDispatch(lpDisp);
    }
    catch(...)
    {
    
    lpDisp = sheets.Add(vtMissing, vtMissing, _variant_t((long)1), vtMissing);
    sheet.AttachDispatch(lpDisp);
    sheet.put_Name(strSheetName);
    }
    
    system("pause");
    
    lpDisp = sheet.get_Range(_variant_t("A1"), _variant_t("J10"));
    range.AttachDispatch(lpDisp);
    
    VARTYPE vt = VT_I4; 
    SAFEARRAYBOUND sabWrite[2]; 
    sabWrite[0].cElements = 10;
    sabWrite[0].lLbound = 0;
    sabWrite[1].cElements = 10;
    sabWrite[1].lLbound = 0;
    
    COleSafeArray olesaWrite;
    olesaWrite.Create(vt, sizeof(sabWrite)/sizeof(SAFEARRAYBOUND), sabWrite);
    
    long (*pArray)[2] = NULL;
    olesaWrite.AccessData((void **)&pArray);
    memset(pArray, 0, sabWrite[0].cElements * sabWrite[1].cElements * sizeof(long));
    
    olesaWrite.UnaccessData();
    pArray = NULL;
    
    long index[2] = {0, 0};
    long lFirstLBound = 0;
    long lFirstUBound = 0;
    long lSecondLBound = 0;
    long lSecondUBound = 0;
    olesaWrite.GetLBound(1, &lFirstLBound);
    olesaWrite.GetUBound(1, &lFirstUBound);
    olesaWrite.GetLBound(2, &lSecondLBound);
    olesaWrite.GetUBound(2, &lSecondUBound);
    for (long i = lFirstLBound; i <= lFirstUBound; i++)
    {
    index[0] = i;
    for (long j = lSecondLBound; j <= lSecondUBound; j++)
    {
    index[1] = j;
    long lElement = i * sabWrite[1].cElements + j; 
    olesaWrite.PutElement(index, &lElement);
    }
    }
    
    VARIANT varWrite = (VARIANT)olesaWrite;
    range.put_Value2(varWrite);
    
    system("pause");
    
    CString strSaveAsName = _T("C:\new.xlsx");
    CString strSuffix = strSaveAsName.Mid(strSaveAsName.ReverseFind(_T('.')));
    XlFileFormat NewFileFormat = xlOpenXMLWorkbook;
    if (0 == strSuffix.CompareNoCase(_T(".xls")))
    {
    NewFileFormat = xlExcel8;
    }
    book.SaveAs(_variant_t(strSaveAsName), _variant_t((long)NewFileFormat), vtMissing, vtMissing, vtMissing, 
    vtMissing, 0, vtMissing, vtMissing, vtMissing, 
    vtMissing, vtMissing);
    
    system("pause");
    
    
    VARIANT varRead = range.get_Value2();
    COleSafeArray olesaRead(varRead);
    
    VARIANT varItem;
    CString strItem;
    lFirstLBound = 0;
    lFirstUBound = 0;
    lSecondLBound = 0;
    lSecondUBound = 0;
    olesaRead.GetLBound(1, &lFirstLBound);
    olesaRead.GetUBound(1, &lFirstUBound);
    olesaRead.GetLBound(2, &lSecondLBound);
    olesaRead.GetUBound(2, &lSecondUBound);
    memset(index, 0, 2 * sizeof(long));
    m_ListCtrl.InsertColumn(0, _T(""), 0, 100);
    for (long j = lSecondLBound; j<= lSecondUBound; j++)
    {
    CString strColName = _T("");
    strColName.Format(_T("%d"), j);
    m_ListCtrl.InsertColumn(j, strColName, 0, 100);
    }
    for (long i = lFirstLBound; i <= lFirstUBound; i++)
    {
    CString strRowName = _T("");
    strRowName.Format(_T("%d"), i);
    m_ListCtrl.InsertItem(i-1, strRowName);
    
    index[0] = i;
    for (long j = lSecondLBound; j <= lSecondUBound; j++)
    {
    index[1] = j;
    olesaRead.GetElement(index, &varItem);
    
    switch (varItem.vt)
    {
    case VT_R8:
    {
    strItem.Format(_T("%d"), (int)varItem.dblVal);
    }
    
    case VT_BSTR:
    {
    strItem = varItem.bstrVal;
    }
    
    case VT_I4:
    {
    strItem.Format(_T("%ld"), (int)varItem.lVal);
    }
    
    default:
    {
    
    }
    }
    
    m_ListCtrl.SetItemText(i-1, j, strItem);
    }
    }
    sheet.ReleaseDispatch();
    sheets.ReleaseDispatch();
    book.ReleaseDispatch();
    books.ReleaseDispatch();
    ExcelApp.Quit();
    ExcelApp.ReleaseDispatch();

    示例源代码的工程文件的下载链接如下:
    http://files.cnblogs.com/xianyunhe/ReadWriteExcel.rar

    参考资料
    (1)http://www.cnblogs.com/xianyunhe/archive/2011/09/13/2174703.html
    (2)http://hfp0601.blog.163.com/blog/static/228483522011031104718762/
    (3)http://www.cppblog.com/sleepwom/archive/2009/10/03/97804.html
    (4)http://www.rondebruin.nl/saveas.htm

    展开全文
  • 最近在研究Office编程,发现了这个领域也是非常非常的有趣,而且,市场也是大大的有.今天遇到的一个课题是:用VS2008编写一个COM组件,并在Excel中用VBA...[Com Class],则不需要定义接口,可以直接类进行编程,这个类是...

    最近在研究Office编程,发现了这个领域也是非常非常的有趣,而且,市场也是大大的有.今天遇到的一个课题是:用VS2008编写一个COM组件,并在Excel中用VBA调用这个COM组件实现一些功能.以下是示例代码:

    1,创建一个Class Library Project.并编写如下代码(如果选择[New Item]->[Com Class],则不需要定义接口,可以直接对类进行编程,这个类是COM可见的)

    ContractedBlock.gifExpandedBlockStart.gif.NET Code
    Imports System
    Imports System.Runtime.InteropServices

    <Guid("b9c7ce7b-86f4-4406-9f0d-9b2e2c844859")> <ComVisible(True)> Public Interface ITest
        
    Function GetTest() As Integer
    End Interface


    <Guid("ca1bd88b-4211-49cb-9211-70f6e1d414db")> <ComVisible(True)> Public Class TestClass
        
    Implements ITest

        
    Public Sub New()

        
    End Sub

        
    Public Function GetTest() As Integer Implements ITest.GetTest
            
    Return 100
        
    End Function
    End Class

     

    2,编译,使用签名为程序集构建强命名,在项目属性[signing]节,选中[Sign the assembly]复选框,你可以新建key file,也可以使用现有的.强命名对Excel 2007调用来讲,似乎不是必须的,这个可以理解,因为Excel 2007已经内置了对.NET的很多支持.但是如果针对Excel 2000,如果不使用强命名的程序集,你将会看到"自动化错误"(Excel 2003应该也是一样,不过我没有测试过).

    3,使用regasm工具对程序集(这里是ClassLibrary1.dll)进行COM组件的注册.如果是Excel 2000/2003的应用,务必使用"/tlb"和"/codebase"选项,有关这两个选项的说明,MSDN上都有,非常详细.

    4,对于Excel 2007来讲,这里就可以直接在VBA中使用了.但是如果是Excel 2000/Excel 2003,还需要编辑一个配置文件,内容如下,保存成"Excel.exe.config"文件,并copy到Excel执行文件目录.这是因为Excel 2000/Excel 2003默认支持的运行时不是2.0版.

    ContractedBlock.gifExpandedBlockStart.gifConfig
    <configuration>

    <startup>

    <supportedRuntime version="v2.0.50727" />

    </startup>

    </configuration>

     

    5,打开Excel,按下[Alt]+[F11]开始编辑宏.在VBA界面选择[Tools]->[References],选择引用自己刚刚注册的COM组件ClassLibrary1.键入以下VBA代码,保存宏,并在Excel中选择一个单元格,可以看到显示结果.

    ContractedBlock.gifExpandedBlockStart.gifVBA Code
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim a As ClassLibrary2.ITest

    Set a = New ClassLibrary2.TestClass

    Sheet1.Cells(
    11= a.GetTest

    End Sub

     

    结语:如果是Excel 2007的应用,网上资料很多,Google一下无数条.不过我恰好遇到的客户端是Excel 2000,花了很大力气才找到这个办法.特此记录,希望对自己对别人都有用.

    转载于:https://www.cnblogs.com/makemelaugh/archive/2008/11/05/1327512.html

    展开全文
  • 通过VC实现对Excel表格的操作的方法有多种,如:通过ODBC数据库实现,通过解析Excel表格文件,通过OLE/COM的实现。本文主要研究通过OLE/COM实现...Microsoft Visual Studio 2010 Microsoft Office Excel 2007

    通过VC实现对Excel表格的操作的方法有多种,如:通过ODBC数据库实现,通过解析Excel表格文件,通过OLE/COM的实现。本文主要研究通过OLE/COM实现对Excel表格的操作。

     

    本文源码的应用环境说明:

    Windows XP SP3

    Microsoft Visual Studio 2010

    Microsoft Office Excel 2007

     

    1、添加OLE/COM支持。

    首先,应用程序必须添加对OLE/COM的支持,才能导入OLE/COM组件。

    本文使用的是MFC对话框程序,在创建工程的向导中选中Automation选项即可为程序自动添加相应的头文件和OLE库初始化代码。

    通过查看源代码,可以知道在stdafx.h的头文件中,添加了OLE/COM很多类所需添加的头文件。

    #include <afxdisp.h>        // MFC 自动化类

    同时,在应用程序类的InitInstance函数中,添加了OLE/COM的初始化代码,如下所示:

    // 初始化 OLE 库

    if (!AfxOleInit())

    {

    AfxMessageBox(IDP_OLE_INIT_FAILED);

    return FALSE;

    }
     

    2、导入并封装Excel中的接口

    Excel作为OLE/COM库插件,定义好了各类交互的接口,这些接口是跨语言的接口。VC可以通过导入这些接口,并通过接口来对Excel的操作。

    由于本文只关心对Excel表格中的数据的读取,主要关注几个_ApplicationWorkbooks_WorkbookWorksheets_WorksheetRange等几个接口。Excel的各类接口的属性、方法可以通过MSDNOffice Development进行查询。

    VS2010导入OLE/COM组件的接口的步骤为:Project->Class Wizard->Add Class->MFC Class From TypeLib,先选择要导入的组件所在的路径,即Excel.exe所在的路径,然后再选择

    要导入的Excel类型库中的接口。

    在完成接口导入后,VS2010将自动为导入的接口创建相应的实现类,用于对接口属性和方法的实现。由于标准的C++没有属性访问器,只能添加一个两个存取函数来实现对属性的访问,通过在属性名称前加上get_put_前缀分别实现对属性的读写操作。即,由VC自动完成C++类对接口的封装。

     

    本文所导入的接口对应的类和头文件的说明如下所示:

     

    Excel接口

    导入类

    头文件

    说明

    _Application

    CApplicaton

    Application.h

    Excel应用程序。

    Workbooks

    CWorkbooks

    Workbooks.h

    工作簿的容器,里面包括了Excel应用程序打开的所有工作簿

    _Workbook

    CWorkbook

    Workbook.h

    单个工作簿。

    Worksheets

    CWorksheets

    Worksheets.h

    单个工作簿中的Sheet表格的容器,包括该工作簿中的所有Sheet

    _Worksheet

    CWorksheet

    Worksheet.h

    单个Sheet表格。

    Range

    CRange

    Range.h

    一定数量的单元格,可对单元格进行单个或多个单元格进行操作

     

    3、导入Excel的整个类型库

    接口对应类只是对接口的属性和方法进行了封装,而Excel中的数据类型,如枚举类型却并为并不能使用,因此,为了更方便的操作Excel,还需要导入Excel的数据类型。

    通过查看导入接口对应的头文件可以发现,在所有导入接口的头文件中,都会有这么行:

    #import "D:\\Program Files\\Microsoft Office\\Office12\\EXCEL.EXE" no_namespace

    这行代码的作用是导入Excel整个类型库到工程中。

    VS2010自动产生的导入代码存在以下几个问题:

    1)如果导入了多个接口,每个头文件都会把类型库导入一次,如果引用多个头文件,会导致类型库重复导入。

    2Excel类型库中有些类型会跟MFC类库的某些类型冲突。

    3Excel类型库的某些类型跟其他OfficeVB的某些库相关,如果不导入相关库,将导致这些类型无法使用。。

    以上三点问题的解决方法如下:

    1)仅在_Application接口对应头文件中导入Excel类型库。

    2)对冲突的类型进行重命名。

    3)在导入Excel类型库之前,先导入OfficeVB的相关库。

    更改后的导入类型库的代码如下:

     

    /*导入Office的类型库*/

    #import "C:\\Program Files\\Common Files\\Microsoft Shared\\OFFICE12\\MSO.DLL" \

    rename("RGB", "MSORGB") \

    rename("DocumentProperties", "MSODocumentProperties")

    using namespace Office;

     

    /*导入VB的类型库*/

    #import "C:\\Program Files\\Common Files\\Microsoft Shared\\VBA\\VBA6\\VBE6EXT.OLB"

    using namespace VBIDE;

     

    /*导入Excel的类型库*/

    #import "D:\\Program Files\\Microsoft Office\\Office12\\EXCEL.EXE" \

    rename("DialogBox", "ExcelDialogBox") \

    rename("RGB", "ExcelRGB") \

    rename("CopyFile", "ExcelCopyFile") \

    rename("ReplaceText", "ExcelReplaceText") \

    no_auto_exclude

    Using namespace Excel;

     

    编译程序后,会在DebugRelease目录下生成三个文件mso.tlhvbe6ext.tlhexcel.tlh。通过打开文件可知,该三个文件的命名空间分别是OfficeVBIDEExcel。导入了Excel的整个类型库后,就可以使用Excel中的所有类型了。

     

    4、操作Excel步骤

    操作Excel的主要步骤如下:

    1)创建一个Excel应用程序。

    2)得到Workbook的容器。

    3)打开一个Workbook或者创建一个Workbook

    4)得到Workbook中的Worksheet的容器。

    5)打开一个Worksheet或者创建一个WorkSheet

    6)通过RangeWorkSheet中的单元格进行读写操作。

    7)保存Excel

    8)释放资源。

     

    5、批量处理Excel表格

    VC通过OLE/COM操作Excel,是通过进程间的组件技术。因此,每次读写Excel中的单元格时,都要进行进程间的切换。当数据量大,如果一个单元格一个单元格的读取,主要的时间都花费在进程切换中。因此读取多个单元格,将可有效的提高程序的运行效率。

    对多个单元格的读写操作可以通过CRange中以下两个成员函数来完成。

    VARIANT get_Value2();

    void put_Value2(VARIANT& newValue);

    其中,输入参数newValue只要输入一个二维数组,即可实现向Excel中一次写入多个单元格的值。

    其中,VARIANT中实现二维数据的方法可参考

    http://www.cnblogs.com/xianyunhe/archive/2011/09/13/2174703.html

    当然,在对CRange类进行操作之前,要设置CRange类对应的单元格。

     

    6Excel表格的保存

    1)如果要保存打开的工作簿,使用CWorkbook类的Save函数就可以保存工作簿,原文件将被覆盖。

    2)如果是新创建的工作簿,或者是要另存为,可使用CWorkbook类的SaveAs函数。

    SaveAs的参数比较多。其中,第1个参数是设置要保存文件的路径;第2个参数是设置文件的格式,可在MSDN中查看枚举类型XlFileFormat来了解Excel的文件格式。经过测试,在本文所用的测试环境中,Excel2003的文件格式是xlExcel8Excel2007的文件格式是xlExcel4

     

    7、获取当前Excel的版本

    可以通过CApplicationget_Version函数来获得Excel的版本,其中,Excel2007的主版本号是12Excel2003的主版本号是11

     

    8、示例源代码

    主要代码如下:

     

        m_ListCtrl.SetExtendedStyle(LVS_REPORT | LVS_EX_FULLROWSELECT);
    
        CApplication ExcelApp;
        CWorkbooks books;
        CWorkbook book;
        CWorksheets sheets;
        CWorksheet sheet;
        CRange range;
        LPDISPATCH lpDisp = NULL;
    
        //创建Excel 服务器(启动Excel)
        if(!ExcelApp.CreateDispatch(_T("Excel.Application"),NULL))
        {
            AfxMessageBox(_T("启动Excel服务器失败!"));
            return -1;
        }
    
        /*判断当前Excel的版本*/
        CString strExcelVersion = ExcelApp.get_Version();
        int iStart = 0;
        strExcelVersion = strExcelVersion.Tokenize(_T("."), iStart);
        if (_T("11") == strExcelVersion)
        {
            AfxMessageBox(_T("当前Excel的版本是2003。"));
        }
        else if (_T("12") == strExcelVersion)
        {
            AfxMessageBox(_T("当前Excel的版本是2007。"));
        }
        else
        {
            AfxMessageBox(_T("当前Excel的版本是其他版本。"));
        }
    
        ExcelApp.put_Visible(TRUE);
        ExcelApp.put_UserControl(FALSE);
    
        /*得到工作簿容器*/
        books.AttachDispatch(ExcelApp.get_Workbooks());
    
        /*打开一个工作簿,如不存在,则新增一个工作簿*/
        CString strBookPath = _T("C:\\tmp.xls");
        try
        {
            /*打开一个工作簿*/
            lpDisp = books.Open(strBookPath, 
                vtMissing, vtMissing, vtMissing, vtMissing, vtMissing,
                vtMissing, vtMissing, vtMissing, vtMissing, vtMissing, 
                vtMissing, vtMissing, vtMissing, vtMissing);
            book.AttachDispatch(lpDisp);
        }
        catch(...)
        {
            /*增加一个新的工作簿*/
            lpDisp = books.Add(vtMissing);
            book.AttachDispatch(lpDisp);
        }
        
    
        /*得到工作簿中的Sheet的容器*/
        sheets.AttachDispatch(book.get_Sheets());
    
        /*打开一个Sheet,如不存在,就新增一个Sheet*/
        CString strSheetName = _T("NewSheet");
        try
        {
            /*打开一个已有的Sheet*/
            lpDisp = sheets.get_Item(_variant_t(strSheetName));
            sheet.AttachDispatch(lpDisp);
        }
        catch(...)
        {
            /*创建一个新的Sheet*/
            lpDisp = sheets.Add(vtMissing, vtMissing, _variant_t((long)1), vtMissing);
            sheet.AttachDispatch(lpDisp);
            sheet.put_Name(strSheetName);
        }
    
        system("pause");
    
        /*向Sheet中写入多个单元格,规模为10*10 */
        lpDisp = sheet.get_Range(_variant_t("A1"), _variant_t("J10"));
        range.AttachDispatch(lpDisp);
    
        VARTYPE vt = VT_I4; /*数组元素的类型,long*/
        SAFEARRAYBOUND sabWrite[2]; /*用于定义数组的维数和下标的起始值*/
        sabWrite[0].cElements = 10;
        sabWrite[0].lLbound = 0;
        sabWrite[1].cElements = 10;
        sabWrite[1].lLbound = 0;
    
        COleSafeArray olesaWrite;
        olesaWrite.Create(vt, sizeof(sabWrite)/sizeof(SAFEARRAYBOUND), sabWrite);
    
        /*通过指向数组的指针来对二维数组的元素进行间接赋值*/
        long (*pArray)[2] = NULL;
        olesaWrite.AccessData((void **)&pArray);
        memset(pArray, 0, sabWrite[0].cElements * sabWrite[1].cElements * sizeof(long));
    
        /*释放指向数组的指针*/
        olesaWrite.UnaccessData();
        pArray = NULL;
    
        /*对二维数组的元素进行逐个赋值*/
        long index[2] = {0, 0};
        long lFirstLBound = 0;
        long lFirstUBound = 0;
        long lSecondLBound = 0;
        long lSecondUBound = 0;
        olesaWrite.GetLBound(1, &lFirstLBound);
        olesaWrite.GetUBound(1, &lFirstUBound);
        olesaWrite.GetLBound(2, &lSecondLBound);
        olesaWrite.GetUBound(2, &lSecondUBound);
        for (long i = lFirstLBound; i <= lFirstUBound; i++)
        {
            index[0] = i;
            for (long j = lSecondLBound; j <= lSecondUBound; j++)
            {
                index[1] = j;
                long lElement = i * sabWrite[1].cElements + j; 
                olesaWrite.PutElement(index, &lElement);
            }
        }
    
        /*把ColesaWritefeArray变量转换为VARIANT,并写入到Excel表格中*/
        VARIANT varWrite = (VARIANT)olesaWrite;
        range.put_Value2(varWrite);
    
        system("pause");
    
        /*根据文件的后缀名选择保存文件的格式*/
         CString strSaveAsName = _T("C:\\new.xlsx");
        CString strSuffix = strSaveAsName.Mid(strSaveAsName.ReverseFind(_T('.')));
        XlFileFormat NewFileFormat = xlOpenXMLWorkbook;
        if (0 == strSuffix.CompareNoCase(_T(".xls")))
        {
            NewFileFormat = xlExcel8;
        }
        book.SaveAs(_variant_t(strSaveAsName), _variant_t((long)NewFileFormat), vtMissing, vtMissing, vtMissing, 
            vtMissing, 0, vtMissing, vtMissing, vtMissing, 
            vtMissing, vtMissing);
    
        system("pause");
    
        /*读取Excel表中的多个单元格的值,在listctrl中显示*/
        VARIANT varRead = range.get_Value2();
        COleSafeArray olesaRead(varRead);
    
        VARIANT varItem;
        CString strItem;
        lFirstLBound = 0;
        lFirstUBound = 0;
        lSecondLBound = 0;
        lSecondUBound = 0;
        olesaRead.GetLBound(1, &lFirstLBound);
        olesaRead.GetUBound(1, &lFirstUBound);
        olesaRead.GetLBound(2, &lSecondLBound);
        olesaRead.GetUBound(2, &lSecondUBound);
        memset(index, 0, 2 * sizeof(long));
        m_ListCtrl.InsertColumn(0, _T(""), 0, 100);
        for (long j = lSecondLBound; j<= lSecondUBound; j++)
        {
            CString strColName = _T("");
            strColName.Format(_T("%d"), j);
            m_ListCtrl.InsertColumn(j, strColName, 0, 100);
        }
        for (long i = lFirstLBound; i <= lFirstUBound; i++)
        {
            CString strRowName = _T("");
            strRowName.Format(_T("%d"), i);
            m_ListCtrl.InsertItem(i-1, strRowName);
    
            index[0] = i;
            for (long j = lSecondLBound; j <= lSecondUBound; j++)
            {
                index[1] = j;
                olesaRead.GetElement(index, &varItem);
    
                switch (varItem.vt)
                {
                case VT_R8:
                    {
                        strItem.Format(_T("%d"), (int)varItem.dblVal);
                    }
    
                case VT_BSTR:
                    {
                        strItem = varItem.bstrVal;
                    }
    
                case VT_I4:
                    {
                        strItem.Format(_T("%ld"), (int)varItem.lVal);
                    }
    
                default:
                    {
    
                    }
                }
    
                m_ListCtrl.SetItemText(i-1, j, strItem);
            }
        }
    
    
    
        /*释放资源*/
        sheet.ReleaseDispatch();
        sheets.ReleaseDispatch();
        book.ReleaseDispatch();
        books.ReleaseDispatch();
        ExcelApp.Quit();
        ExcelApp.ReleaseDispatch();


    示例源代码的工程文件的下载链接如下:

    http://files.cnblogs.com/xianyunhe/ReadWriteExcel.rar


    展开全文
  • 使用方法Visual Studio 2005中默认提供了封装好的Microsoft Office 2003的.Net Excel编程模型。图中所显示的是已经安装了Office2005之后VS2005所带的.Net Excel模型。大家可以看到名为“Microsoft Excel 12.0 Object...

    1 使用COM组件操控Excel的优势和缺点

    2.使用方法

    Visual Studio 2005中默认提供了封装好的Microsoft Office 2003的.Net Excel编程模型。图中所显示的是已经安装了Office2005之后VS2005所带的.Net Excel模型。大家可以看到名为“Microsoft Excel 12.0 Object Library”的COM组件。

    由于Excel的版本一直在升级,如果我们需要操作更新版本的Excel文件,但又没有安装最新的Office,这个时候我们就需要手工进行Excel COM组件的封装。

    这个时候我们需要使用 Framework v2.0 SDK tools中的一个工具tlbimp.exe-类型库导入程序(http://msdn2.microsoft.com/zh-cn/library/tt0cf3sx(VS.80).aspx),默认安装位置在。C:\Program Files\Microsoft Visual Studio 8\SDK\v2.0\Bin 把需要封装的Excel的主程序(excel.exe)复制到 tlbimp工具所在目录下。

    执行命令: tlbimp excel.exe /out:excel.dll

    生成封装好的excel.dll。然后就可对excel.dll进行引用。成功引用后,引用下会出现

    1.Excel2.Microsoft.Office.Core3.Microsoft.Office.Interop.Excel三个类库。

    其中:1为我们手工封装的Excel COM组件。2、3为我们直接引用的安装在VS2005中的Excel COM组件。如果使用VS2005内置COM组件,1将不会出现,如使用手工封装的COM组件2、3就不会出现。

    3.使用的基本流程

    a.建立一个Excel进程

    Microsoft.Office.Interop.Excel.Application app1 =

    new Microsoft.Office.Interop.Excel.Application();

    b.设置进程的界面是否可见

    app1.Visible = true;

    c.建立或打开一个 Workbook对象

    生成新Workbook:

    Workbook book1 = app1.Workbooks.Add(Type.Missing);

    或打开已有Workbook

    Workbook book1 = app1.Workbooks.Open("D:\test.xlsx", Type.Missing,

    Type.Missing, Type.Missing, Type.Missing, Type.Missing,

    Type.Missing, Type.Missing, Type.Missing, Type.Missing,

    Type.Missing, Type.Missing, Type.Missing, Type.Missing,

    Type.Missing);

    d.生成一个Sheet对象

    Worksheet sheet1 = (Worksheet)book1.Sheets[1];

    e.设置访问区域

    Range rng1 = sheet1.get_Range(“A1:C3,E2:G6”, Type.Missing); //设置操作区域为个不连续区域

    f.对访问区域进行操作

    rng1.NumberFormatLocal = “@”; //格式设置为文本

    rng1.Value2 = “2006147214E00045”; //对操作区域赋值

    g.保存操作过程

    app1.DisplayAlerts = false;//不显示保存对话框

    book1.Save();//保存修改

    h.对于要处理多个Excel文件的程序还需要关闭book1并保存修改数据。

    book1.Close(Type.Missing, "D:\test.xlsx", Type.Missing);

    i.关闭Excel进程

    app1.Quit();

    展开全文
  • WorkspaceUtils175.zip A Visual Studio add-in provides a number of useful workspace-related functions(673KB)<END><br>85,solesby.zip Some useful macros for MS Visual Studio(3KB) <END><br>86,...
  • Visual Basic 2008高级编程(第5 版) 3 .6 .1使用继承的场合................151 3 .6 .2继承和多接口................... 153 3 .6 .3多级继承...........................158 3.6.4 “ 脆弱”的基类问题........ ...
  • 现在的VSTO图书和文档通常都不是为VBA开发者写的,它假设开发者熟悉Visual Studio、面向对象编程和NET Framework。这就不难理解为什么它把重点更多地放在VSTO的功能和如何使用笨重的Office对象模型。
  •  二、集成测试环境——Microsoft Test Manager  在过去的...通过业界的调查和分析,我们发现70%的软件测试工作仍然是通过手工或者简单的脚本来完成的,在测试团队中不具备编程能力和仅有基本脚本编写能
  • Visual Basic 2010 & .NET4 高级编程(第6版)-文字版 第I部分 语言结构和环境 第1章 visual studio 2010 3 1.1 visual studio 2010:从express到ultimate的各种版本 4 1.2 visual basic的关键字和语法 7 ...
  • 第1章 visual studio 2010 3 1.1 visual studio 2010:从express到ultimate的各种版本 4 1.2 visual basic的关键字和语法 7 1.2.1 控制台应用程序 10 1.2.2 从项目模板上创建项目 11 1.2.3 solution ...
  • 第1章 visual studio 2010 3 1.1 visual studio 2010:从express到ultimate的各种版本 4 1.2 visual basic的关键字和语法 7 1.2.1 控制台应用程序 10 1.2.2 从项目模板上创建项目 11 1.2.3 solution explorer...
  • 第1章 visual studio 2010 3 1.1 visual studio 2010:从express到ultimate的各种版本 4 1.2 visual basic的关键字和语法 7 1.2.1 控制台应用程序 10 1.2.2 从项目模板上创建项目 11 1.2.3 solution explorer...
  • 第1章 visual studio 2010 3 1.1 visual studio 2010:从express到ultimate的各种版本 4 1.2 visual basic的关键字和语法 7 1.2.1 控制台应用程序 10 1.2.2 从项目模板上创建项目 11 1.2.3 solution explorer...
  • visual studio 2015下使用MFC实现可视化编程,并对Excel文件进行读写操作 开发环境:Visual Studio 2015、Office2016(版本可以随意) 一、创建MFC项目 创建MFC测试demo,这里我直接创建一个基于对话框的MFC应用...
  • 您可以选择第二部分的哪些章节,只要您只对Excel开发感兴趣,可以阅读第3章至第5章,然后跳到本书第3部分。 第三部分VSTO办公编程 本书第三部分由第13至20章组成,介绍了Visual Studio 2005 Tools for Office为...
  • VisualStudio2008+SP1环境下纯C语言调用Excel12(Excel2007)功能实现过程中碰到的问题做下简单总结。 正文 参考[1]和参考[3]的编程思路用纯C语言调用Excel2007( OLE对象)。 第一步:我们要利用OLE Viewer、...
  • 第二部分:.NET中的Office编程本书前两章介绍了Office对象模型和Office PIA。... 如果您只对Excel开发感兴趣,请阅读第3章至第5章。如果您只对Word开发感兴趣,请阅读第6章至第9章。如果您只对Outlook开发感兴趣,请...
  • Visual_C++精彩实例详解

    2010-03-23 21:20:19
    第14章 Excel编程 第15章 拨号上网实例 第16章 FTP协议编程 第17章 Telnet协议编程 第18章 Email协议编程 第19章 基于UDP协议的网段扫描器 第20章 具有异形窗口的网络电话 第21章 电影播放器 第22章 AVI视频制作编程...
  • Visual Basic 2010入门经典.part1.rar

    热门讨论 2012-09-26 11:30:12
    1.3 理解 Visual Studio 2010 22 1.4 修改对象的属性 23 1.4.1 对象的命名 23 1.4.2 设置窗体的Text属性 24 1.4.3 保存项目 25 1.4.4 为窗体添加图标 25 1.4.5 改变窗体的大小 26 1.5 在窗体中添加控件 27 ...
  • Visual Basic 2010入门经典.part2.rar

    热门讨论 2012-09-26 11:47:21
    1.3 理解 Visual Studio 2010 22 1.4 修改对象的属性 23 1.4.1 对象的命名 23 1.4.2 设置窗体的Text属性 24 1.4.3 保存项目 25 1.4.4 为窗体添加图标 25 1.4.5 改变窗体的大小 26 1.5 在窗体中添加控件 27 ...
  • 第14章 Excel编程 第15章 拨号上网实例 第16章 FTP协议编程 第17章 Telnet协议编程 第18章 Email协议编程 第19章 基于UDP协议的网段扫描器 第20章 具有异形窗口的网络电话 第21章 电影播放器 第22章 AVI视频制作编程...
  • 第14章 Excel编程 第15章 拨号上网实例 第16章 FTP协议编程 第17章 Telnet协议编程 第18章 Email协议编程 第19章 基于UDP协议的网段扫描器 第20章 具有异形窗口的网络电话 第21章 电影播放器 第22章 AVI视频制作编程...
  • 第14章 Excel编程 第15章 拨号上网实例 第16章 FTP协议编程 第17章 Telnet协议编程 第18章 Email协议编程 第19章 基于UDP协议的网段扫描器 第20章 具有异形窗口的网络电话 第21章 电影播放器 第22章 AVI视频制作编程...
  • 第14章 Excel编程 第15章 拨号上网实例 第16章 FTP协议编程 第17章 Telnet协议编程 第18章 Email协议编程 第19章 基于UDP协议的网段扫描器 第20章 具有异形窗口的网络电话 第21章 电影播放器 第22章 AVI视频制作编程...

空空如也

空空如也

1 2 3 4
收藏数 72
精华内容 28
关键字:

studiovisual对excel编程