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（"
升级会员 