VC中如何操作Excel文件？

RiskyWei 2004-02-26 05:20:40
希望在VC里建立一个新Excel文件，并对其进行数据添加、修改以及删除操作，该如何实现？我导入Excel9.olb类型库后，不知道该怎么操作，请大家指点，最好给出示列代码，谢谢了
...全文
26 点赞 收藏 5
写回复
5 条回复
切换为时间正序
当前发帖距今超过3年，不再开放新的回复
发表回复
yhthy 2004-04-21
实现 part2：

BOOL CExcel::NewFile()
{
CloseFile();

VARIANT result;

if (! GetProperty(m_pExcel,L"Workbooks",result))
{
CString strError;
strError.Format(_T("Cannot add workbooks"));
AfxMessageBox(strError);
return FALSE;
}

m_pWorkbooks = result.pdispVal;

m_dispparams.cArgs = 0;
m_dispparams.cNamedArgs = 0;

if (! Execute(m_pWorkbooks,L"Add",&result))
{
CString strError;
strError.Format(_T("Cannot add new work book"));
AfxMessageBox(strError);
return FALSE;
}

m_pWorkbook = result.pdispVal;

return TRUE;
}

void CExcel::SaveFile()
{
if (m_pWorkbook!=NULL)
{
m_dispparams.cArgs = 0;
m_dispparams.cNamedArgs = 0;
Execute(m_pWorkbook,L"Save",NULL);
}
}

void CExcel::CloseFile()
{
if (m_pWorkbook!=NULL)
{
VARIANT value;
value.vt = VT_BOOL;
value.boolVal = VARIANT_TRUE;
SetProperty(m_pWorkbook,L"Saved",value);

m_dispparams.cArgs = 0;
m_dispparams.cNamedArgs = 0;
Execute(m_pWorkbook,L"Close",NULL);

m_pWorkbook->Release();
m_pWorkbook = NULL;
}

if (m_pWorkbooks!=NULL)
{
m_dispparams.cArgs = 0;
m_dispparams.cNamedArgs = 0;
Execute(m_pWorkbooks,L"Close",NULL);

m_pWorkbooks->Release();
m_pWorkbooks = NULL;
}
}

BOOL CExcel::SaveAs(CString strPath)
{
if (m_pWorkbook!=NULL)
{
m_dispparams.cArgs = 1;
m_dispparams.cNamedArgs = 0;
m_dispparams.rgvarg[0].vt = VT_BSTR;
m_dispparams.rgvarg[0].bstrVal = SysAllocString(CComBSTR(strPath));
BOOL ret = Execute(m_pWorkbook,L"SaveAs",NULL);
SysFreeString(m_dispparams.rgvarg[0].bstrVal);
if ( ret == FALSE )
AfxMessageBox("Cannot save file");
return ret;
}
return FALSE;
}

BOOL CExcel::OpenWorksheet(CString strName)
{
CloseWorksheet();

VARIANT result;

m_dispparams.cArgs = 1;
m_dispparams.cNamedArgs = 0;
m_dispparams.rgvarg[0].vt = VT_BSTR;
m_dispparams.rgvarg[0].bstrVal = SysAllocString(CComBSTR(strName));

if (! IndexedProperty(m_pWorkbook,L"Worksheets",result))
{
SysFreeString(m_dispparams.rgvarg[0].bstrVal);
CString strError;
strError.Format(_T("Cannot open Worksheet %s."),strName);
AfxMessageBox(strError);
return FALSE;
}

SysFreeString(m_dispparams.rgvarg[0].bstrVal);
m_pSheet = result.pdispVal;


m_dispparams.cArgs = 0;
m_dispparams.cNamedArgs = 0;
Execute(m_pSheet,L"Activate",NULL);

return TRUE;
}

BOOL CExcel::AddWorksheet(CString strName, CString strBefore/*=""*/)
{
VARIANT result;
IDispatch* pWorksheets;

if (! GetProperty(m_pWorkbook,L"Worksheets",result))
{
CString strError;
strError.Format(_T("Cannot open worksheets"));
AfxMessageBox(strError);
return FALSE;
}
pWorksheets = result.pdispVal;

if (!strBefore.IsEmpty())
{
if (!OpenWorksheet(strBefore))
{
pWorksheets->Release();
return FALSE;
}
}
m_dispparams.cArgs = 0;
m_dispparams.cNamedArgs = 0;
Execute(pWorksheets, L"Add", &result);

if (m_pSheet)
m_pSheet->Release();
m_pSheet = result.pdispVal;

// rename
VARIANT value;
value.vt = VT_BSTR;
value.bstrVal = SysAllocString(CComBSTR(strName));
SetProperty(m_pSheet, L"Name", value);
SysFreeString(value.bstrVal);

pWorksheets->Release();

return TRUE;
}

void CExcel::CloseWorksheet()
{
if (m_pSheet!=NULL)
{
m_pSheet->Release();
m_pSheet = NULL;
}
}

CString CExcel::ReadCell(int nRow, int nCol)
{
if (m_pSheet == NULL)
return ("");

VARIANT result;

m_dispparams.cArgs = 2;
m_dispparams.cNamedArgs = 0;
m_dispparams.rgvarg[0].vt = VT_I4;
m_dispparams.rgvarg[0].lVal = nCol;
m_dispparams.rgvarg[1].vt = VT_I4;
m_dispparams.rgvarg[1].lVal = nRow;

if (! IndexedProperty(m_pSheet,L"Cells",result))
{
CString strError;
strError.Format(_T("Cannot open Cell(%d,%d)."),nRow,nCol);
AfxMessageBox(strError);
return("");
}
m_pCell = result.pdispVal;
GetProperty(m_pCell,L"Value",result);
CString strValue = "";
if ( result.vt == VT_BSTR )
{
strValue = result.bstrVal;
SysFreeString(result.bstrVal);
}
m_pCell->Release();

return strValue;
}

BOOL CExcel::WriteCell(int nRow, int nCol, CString strValue)
{
if (m_pSheet == NULL)
return FALSE;

VARIANT result;

m_dispparams.cArgs = 2;
m_dispparams.cNamedArgs = 0;
m_dispparams.rgvarg[0].vt = VT_I4;
m_dispparams.rgvarg[0].lVal = nCol;
m_dispparams.rgvarg[1].vt = VT_I4;
m_dispparams.rgvarg[1].lVal = nRow;

if (! IndexedProperty(m_pSheet,L"Cells",result))
{
CString strError;
strError.Format(_T("Cannot open Cell(%d,%d)."),nRow,nCol);
AfxMessageBox(strError);
return FALSE;
}
m_pCell = result.pdispVal;
VARIANT value;
value.vt = VT_BSTR;
value.bstrVal = SysAllocString(CComBSTR(strValue));
SetProperty(m_pCell,L"Value",value);
SysFreeString(value.bstrVal);
m_pCell->Release();

return TRUE;
}


void CExcel::Scroll(long lTopLine)
{
VARIANT result;

GetProperty(m_pExcel,L"ActiveWindow",result);
IDispatch* pActiveWindow = result.pdispVal;

VARIANT value;
value.vt = VT_I4;
value.lVal = lTopLine;
SetProperty(pActiveWindow,L"ScrollRow",value);

pActiveWindow->Release();

return;
}
 回复 赞
yhthy 2004-04-21
实现：
// Excel.cpp: implementation of the CExcel class.
//
//////////////////////////////////////////////////////////////////////

#include "stdafx.h"
#include "atlbase.h"
#include "Excel.h"

#ifdef _DEBUG
#undef THIS_FILE
static char THIS_FILE[]=__FILE__;
#define new DEBUG_NEW
#endif

//////////////////////////////////////////////////////////////////////
// Construction/Destruction
//////////////////////////////////////////////////////////////////////

CExcel::CExcel()
{
m_pExcel = NULL;
m_pWorkbooks = NULL;
m_pWorkbook = NULL;
m_pSheet = NULL;
m_pCell = NULL;

m_dispparams.cArgs = 0;
m_dispparams.cNamedArgs = 0;
m_dispparams.rgvarg = new VARIANTARG[MAX_DISP_ARGS];
m_dispparams.rgdispidNamedArgs = new DISPID[MAX_DISP_ARGS+1];
}

CExcel::~CExcel()
{
CloseWorksheet();

CloseFile();

EndExcel();

delete[] m_dispparams.rgdispidNamedArgs;
delete[] m_dispparams.rgvarg;
}

inline BOOL CExcel::SetProperty(IDispatch* pIDispatch, LPOLESTR szMember, const VARIANT& value)
{
HRESULT hr;
DISPID dispid;

m_dispparams.rgvarg[0] = value;
m_dispparams.rgdispidNamedArgs[0] = DISPID_PROPERTYPUT;
m_dispparams.cArgs = 1;
m_dispparams.cNamedArgs = 1;

hr = pIDispatch->GetIDsOfNames(IID_NULL,&szMember,1,LOCALE_USER_DEFAULT,&dispid);

if (SUCCEEDED(hr))
{
hr = pIDispatch->Invoke(dispid,IID_NULL,LOCALE_USER_DEFAULT,
DISPATCH_PROPERTYPUT,&m_dispparams,NULL,NULL,NULL);

if (SUCCEEDED(hr))
{
return TRUE;
}
}

return FALSE;
}

inline BOOL CExcel::GetProperty(IDispatch* pIDispatch, LPOLESTR szMember, VARIANT& value)
{
HRESULT hr;
DISPID dispid;

m_dispparams.cArgs = 0;
m_dispparams.cNamedArgs = 0;

hr = pIDispatch->GetIDsOfNames(IID_NULL,&szMember,1,LOCALE_USER_DEFAULT,&dispid);

if (SUCCEEDED(hr))
{
hr = pIDispatch->Invoke(dispid,IID_NULL,LOCALE_USER_DEFAULT,
DISPATCH_PROPERTYGET,&m_dispparams,&value,NULL,NULL);

if (SUCCEEDED(hr))
{
return TRUE;
}
}

return FALSE;
}

inline BOOL CExcel::IndexedProperty(IDispatch* pIDispatch, LPOLESTR szMember, VARIANT& value)
{
HRESULT hr;
DISPID dispid;

hr = pIDispatch->GetIDsOfNames(IID_NULL,&szMember,1,LOCALE_USER_DEFAULT,&dispid);

if (SUCCEEDED(hr))
{
hr = pIDispatch->Invoke(dispid,IID_NULL,LOCALE_USER_DEFAULT,
DISPATCH_PROPERTYGET,&m_dispparams,&value,NULL,NULL);

if (SUCCEEDED(hr))
{
return TRUE;
}
}

return FALSE;
}

inline BOOL CExcel::Execute(IDispatch* pIDispatch, LPOLESTR szMember, VARIANT* pResult)
{
HRESULT hr;
DISPID dispid;

hr = pIDispatch->GetIDsOfNames(IID_NULL,&szMember,1,LOCALE_USER_DEFAULT,&dispid);

if (SUCCEEDED(hr))
{
EXCEPINFO excep;
excep.pfnDeferredFillIn = NULL;
unsigned int uiArgErr;

hr = pIDispatch->Invoke(dispid,IID_NULL,LOCALE_USER_DEFAULT,
DISPATCH_METHOD,&m_dispparams,pResult,&excep,&uiArgErr);

if (SUCCEEDED(hr))
{
return TRUE;
}
else
{
// free exception structure information
SysFreeString(excep.bstrSource);
SysFreeString(excep.bstrDescription);
SysFreeString(excep.bstrHelpFile);

return FALSE;
}
}
else
{
return FALSE;
}
}

BOOL CExcel::StartExcel(BOOL bShow)
{
EndExcel();

CLSID clsExcel;

/* Obtain the CLSID that identifies EXCEL.APPLICATION
* This value is universally unique to Excel versions 5 and up, and
* is used by OLE to identify which server to start. We are obtaining
* the CLSID from the ProgID.
*/
HRESULT hr;
if (FAILED((hr=CLSIDFromProgID(L"Excel.Application", &clsExcel))))
{
AfxMessageBox(_T("Cannot start Excel."));
return FALSE;
}

// start a new copy of Excel, grab the IDispatch interface
if (FAILED((hr=CoCreateInstance(clsExcel, NULL, CLSCTX_LOCAL_SERVER,
IID_IDispatch, reinterpret_cast<void**>(&m_pExcel)))))
{
AfxMessageBox(_T("Cannot start Excel."));
return FALSE;
}

ShowExcel(bShow);

return TRUE;
}

void CExcel::EndExcel()
{
if (m_pExcel!=NULL)
{
m_dispparams.cArgs = 0;
m_dispparams.cNamedArgs = 0;
Execute(m_pExcel,L"Quit",NULL);

m_pExcel->Release();
m_pExcel = NULL;
}

return;
}

void CExcel::ShowExcel(BOOL bShow)
{
VARIANT value;
value.vt = VT_BOOL;

if (bShow)
{
value.boolVal = VARIANT_TRUE;
}
else
{
value.boolVal = VARIANT_FALSE;
}

SetProperty(m_pExcel,L"Visible",value);
}

BOOL CExcel::OpenFile(CString strPath)
{
CloseFile();

VARIANT result;

if (! GetProperty(m_pExcel,L"Workbooks",result))
{
CString strError;
strError.Format(_T("Cannot open %s."),strPath);
AfxMessageBox(strError);
return FALSE;
}

m_pWorkbooks = result.pdispVal;

m_dispparams.cArgs = 1;
m_dispparams.cNamedArgs = 0;
m_dispparams.rgvarg[0].vt = VT_BSTR;
m_dispparams.rgvarg[0].bstrVal = SysAllocString(CComBSTR(strPath));

if (! Execute(m_pWorkbooks,L"Open",&result))
{
SysFreeString(m_dispparams.rgvarg[0].bstrVal);

CString strError;
strError.Format(_T("Cannot open %s."),strPath);
AfxMessageBox(strError);
return FALSE;
}

SysFreeString(m_dispparams.rgvarg[0].bstrVal);
m_pWorkbook = result.pdispVal;

return TRUE;
}

 回复 赞
yhthy 2004-04-21
下面是包装过的在vc里面操作excel的类。非常好用！
// Excel.h: interface for the CExcel class.
//
//////////////////////////////////////////////////////////////////////

#if !defined(AFX_EXCEL_H__0A939963_A41F_11D4_9EFB_0080C8F5E7B3__INCLUDED_)
#define AFX_EXCEL_H__0A939963_A41F_11D4_9EFB_0080C8F5E7B3__INCLUDED_

#if _MSC_VER > 1000
#pragma once
#endif // _MSC_VER > 1000

#define MAX_DISP_ARGS 20

class CExcel
{
public:
CExcel();
virtual ~CExcel();

BOOL StartExcel(BOOL bShow);
void EndExcel();
BOOL OpenFile(CString strPath);
BOOL NewFile();
BOOL SaveAs(CString strPath);
void SaveFile();
void CloseFile();
BOOL OpenWorksheet(CString strName);
BOOL AddWorksheet(CString strName, CString strBefore="");
void CloseWorksheet();
CString ReadCell(int nRow, int nCol);
BOOL WriteCell(int nRow, int nCol, CString strValue);
void Scroll(long lTopLine);

private:
void ShowExcel(BOOL bShow);

//COM Operation
BOOL SetProperty(IDispatch* pIDispatch, LPOLESTR szMember, const VARIANT& value);
BOOL GetProperty(IDispatch* pIDispatch, LPOLESTR szMember, VARIANT& value);
BOOL IndexedProperty(IDispatch* pIDispatch, LPOLESTR szMember, VARIANT& value);
BOOL Execute(IDispatch* pIDispatch, LPOLESTR szMember, VARIANT* pResult);

private:
IDispatch* m_pExcel;
IDispatch* m_pWorkbooks;
IDispatch* m_pWorkbook;
IDispatch* m_pSheet;
IDispatch* m_pCell;

DISPPARAMS m_dispparams;
};

#endif // !defined(AFX_EXCEL_H__0A939963_A41F_11D4_9EFB_0080C8F5E7B3__INCLUDED_)
 回复 赞
babam 2004-04-21
微软的网站里有例子啊！既然知道导入excel.olb就应该看见了啊
 回复 赞
snap2008cn 2004-04-20
我想下面的link对你有所帮助
http://www.vckbase.com/document/viewdoc/?id=231
 回复 赞
相关推荐
visual c++ vc odbc 操作excel文件xls.zip vc++ odbc 操作excel文件xls.zip
VC 演示Excel文件的导入导出操作.rar VC 演示Excel文件的导入导出操作，一共完成了两种功能，一种是生成Excel文件，另一种是从Excel文件导入，这两种功能对于编写一些信息管理系统非常有用，我们经常需要将系统内的数据导出为Excle文件，或都从Excel中向...
VC建立excel文件并操作表格内容的例子工程 VC建立excel文件并操作表格内容的例子工程 分别演示了： 打开一个excel文件 写入各项内容 建立一个表格内容 发表博客为：https://thanklife.blog.csdn.net/article/details/119383499
vc 生成和导入Excel文件.rar vc 操作Excel，生成Excel文件，从Excel文件导入数据到DatGrid中，内部包括一个好用的Exce操作类，可扩展出很多Excel操作。
VC如何创建EXCEL文件 通过程序展示了VC++如何创建，访问EXCEL文件，简单易懂，让你对EXCEL操作有一个基本的了解
VC操作excel文件 里面含有读写excel文件的各种方法介绍和别人封装的CSpreadSheet类，是vc读写excel文件不可或缺的重要资源
VC操作Excel文件 在vs2008实现Excel文件的操作 完整源代码 在vs2008编译器上运行成功 另外 附加文档说明 非常详细
VC++（VS2010）读写Excel文件代码（附示例） 工作或学习中可能需要实现基于VC读\写Excel文件的功能，本人最近也遇到了该问题。中间虽经波折，但是最终还是找到了解决问题的办法。 在此跟大家分享，希望对跟我同样迷茫过的同学们有所帮助。 1、程序功能 1...
VC读取操作EXCEL VC读取操作EXCEL 很好的vc操作excel文件的实例
VC操作EXCEL 使用VC读取两个EXECL表，根据INI文件对两个表的字段进行数据匹配，将源文件数据拷贝至目标文件。
VC6.0下操作EXCEL读写的例子，使用第三方类CSpreadSheet 本例子只完成了创建EXCEL表、行写入、单元格读写和显示。 只支持字符串读写，中文没测试。
VC打印word，excel文本文件的方法 主要介绍了VC打印word，excel文本文件的方法,是VC操作文本文件中非常实用的技巧,需要的朋友可以参考下
VC对Excel文件操作 本程序通VC对Excel文件的操作，达到抛砖引玉的思维
VC6.0读取Excel文件数据 文件存储在Excel文件中，因此第一步是能够在程序中方便地读取表格数据，这里用的是VC6.0 MFC。文章内容仅供参考，程序不完整。 完整的VC6.0相关程序，需要的可以下载：...
vc同时读取多个excel文件&vc操作excel的相关资料 vc同时读取多个excel文件 vc操作excel的相关资料
在VC中如何创建Excel文档？ 在VC中操作Excel一般被认为较难，而创建Excel文档更被认为很难。 以下程序段可以帮助你。
vc操作excel,读写excel,包括图片操作 vc操作excel,读写excel,包括图片操作.
通过VC操作Excel的类 附带了两个文件夹，主要区别在于excel9.h和excel9.cpp,简单版的只封装了常用的excel接口,文件小巧,如果需要深入调用excel的可利用功能完整版下的excel接口。由于需求不同，封装类提供的功能不够强大，需要用户根据...
VC读写Excel操作并显示漂亮气泡提示 内容索引:VC/C++源码,文件操作,Excel　VC漂亮气泡提示及Excel读写操作例子，通过本文及配套示例源码你可以更加灵活的控制Excel表格文件，其中包括创建新Excel文件、写入表格数据、读取表格数据(包括对原建Excel文件...
vc6读写操作excel2007的简单demo 包括创建，读写，保存excel,供大家参考
发帖
工具平台和程序库
创建于2007-09-28

2.4w+

社区成员

2.7w+

社区内容

C/C++ 工具平台和程序库
申请成为版主
帖子事件
创建了帖子
2004-02-26 05:20
社区公告
暂无公告