C读取Excel类Word文件下载.docx
- 文档编号:5829835
- 上传时间:2023-05-05
- 格式:DOCX
- 页数:18
- 大小:16.70KB
C读取Excel类Word文件下载.docx
《C读取Excel类Word文件下载.docx》由会员分享,可在线阅读,更多相关《C读取Excel类Word文件下载.docx(18页珍藏版)》请在冰点文库上搜索。
//
//DESCRIPTION:
aclassforcontrolexcelfile
//compilewithVC6.0
//CREATEDATE:
2009-11-17
//AUTHOR:
Ä
Ñ
Andy
//QQ:
525908322
//
#ifndef__CEXCEL_H__
#define__CEXCEL_H__
#include"
stdafx.h"
//importmso.dll
#import"
C:
\ProgramFiles\CommonFiles\MicrosoftShared\OFFICE11\mso.dll"
\
rename("
RGB"
"
MSRGB"
)
//importVBE6EXT.OLB
\ProgramFiles\CommonFiles\MicrosoftShared\VBA\VBA6\VBE6EXT.OLB"
raw_interfaces_only,\
Reference"
ignorethis"
),\
VBE"
JOEVBE"
//importexcel.exe
\ProgramFiles\MicrosoftOffice\OFFICE11\excel.exe"
exclude("
IFont"
IPicture"
)\
DialogBox"
),\
ReplaceText"
JOEReplaceText"
CopyFile"
"
JOECopyFile"
FindText"
JOEFindText"
NoPrompt"
JOENoPrompt"
usingnamespaceOffice;
usingnamespaceVBIDE;
usingnamespaceExcel;
constCOleVariantcovTrue((short)TRUE);
constCOleVariantcovFalse((short)FALSE);
constCOleVariantcovOptional((long)DISP_E_PARAMNOTFOUND,VT_ERROR);
classcExcel
{
public:
cExcel();
~cExcel();
voidStartApp(void);
voidCreateWorkBook(void);
voidOpenWorkBook(CStringfilename);
voidSelectAcitveSheet(void);
voidSetSheetName(CStringsheetname);
voidSelectRange(CStringrange);
voidSelectRange(intx,inty);
voidSetBackColor(longcolor);
voidGetFont(void);
voidSetFontName(CStringfontname);
voidSetFontSytle(CStringfontsytle);
voidSetFontSize(longsize);
voidPutValue(CStringstring);
voidPutValue(intx,inty,CStringstring);
CStringGetCString(intx,inty);
doubleGetValue(intx,inty);
voidSave(CStringfilename);
voidSave(CStringpath,CStringfilename);
voidQuit(void);
private:
_ApplicationPtrpApp;
WorkbooksPtrpBooks;
_WorkbookPtrpBook;
SheetsPtrpSheets;
_WorksheetPtrpSheet;
RangePtrpRange;
InteriorPtrpInterior;
FontPtrpFont;
};
#endif//CEXCEL_H
cExcel.cpp
cExcel.h"
#include"
Assert.h"
//FUNCTION:
cExcel
//PARAMETERS:
void
//RETURN:
void
cExcel:
:
cExcel()
pApp=NULL;
pBooks=NULL;
pBook=NULL;
pSheets=NULL;
pSheet=NULL;
pRange=NULL;
pInterior=NULL;
pFont=NULL;
}
~cExcel
~cExcel()
StartApp
openexcel.exe
voidcExcel:
StartApp(void)
CoInitialize(NULL);
pApp.CreateInstance(L"
Excel.Application"
);
pApp->
PutVisible(0,VARIANT_TRUE);
//VARIANT_TRUE
pBooks=pApp->
GetWorkbooks();
CreateWorkBook
create*.xlsfile
CreateWorkBook(void)
assert(pBooks!
=NULL);
pBook=pBooks->
Add((long)xlWorkbook);
OpenWorkBook
open*.xlsfile
OpenWorkBook(CStringfilename)
Open((LPCSTR)filename);
SelectAcitveSheet
SelectAcitveSheet(void)
assert(pBook!
pSheets=pBook->
GetWorksheets();
pSheet=pBook->
GetActiveSheet();
SetSheetName
SetSheetName(CStringsheetname)
assert(pSheet!
pSheet->
PutName((LPCSTR)sheetname);
SelectRange
CStringrange(eg."
A1"
SelectRange(CStringrange)
pRange=pSheet->
GetRange((LPCSTR)range,vtMissing);
intx,inty
SelectRange(intx,inty)
CStringrange;
x=(0==x)?
1:
x;
y=(0==y)?
y;
x=(x>
26)?
(x%26):
(x);
range.Format("
%c%d"
y+'
A'
-1,x);
SelectRange(range);
SetBackColor
longcolor
SetBackColor(longcolor)
assert(pRange!
pInterior=pRange->
GetInterior();
pInterior->
PutColor((long)color);
GetFont
GetFont(void)
assert(pFont!
pFont=pRange->
GetFont();
SetFontName
CStringfontname
SetFontName(CStringfontname)
pFont->
PutName((LPCSTR)fontname);
//(L"
¥
Ê
"
SetFontSytle
CStringfontsytle
SetFontSytle(CStringfontsytle)
PutFontStyle((LPCSTR)fontsytle);
BoldItalic"
SetFontSize
longsize
SetFontSize(longsize)
PutSize((long)size);
PutValue
CStringstring
PutValue(CStringstring)
pRange->
PutValue2((LPCSTR)string);
intx,inty,CStringstring
PutValue(intx,inty,CStringstring)
{
SelectRange(x,y);
PutValue(string);
readsting
CString
CStringcExcel:
GetCString(intx,inty)
CStringresult;
COleVariantvResult;
SYSTEMTIMEst;
CStringstry,strm,strd;
////////////////////////
///////////////////////
vResult=pRange->
GetValue2();
switch(vResult.vt)
{
caseVT_BSTR:
//OLEAutomationstring
result=vResult.bstrVal;
break;
}
caseVT_R8:
//8bytereal
result.Format("
%f"
vResult.dblVal);
caseVT_DATE:
//date
VariantTimeToSystemTime(vResult.date,&
st);
stry.Format("
%d"
st.wYear);
strm.Format("
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 读取Excel类 读取 Excel
![提示](https://static.bingdoc.com/images/bang_tan.gif)