|
请使用QQ关联注册PLM之家,学习更多关于内容,更多精彩原创视频供你学习!
您需要 登录 才可以下载或查看,没有账号?注册
x
通过VC实现对Excel表格的操作的方法有多种,如:通过ODBC数据库实现,通过解析Excel表格文件,通过OLE/COM的实现。本文主要研究通过OLE/COM实现对Excel表格的操作。2 Y1 M# k" V K4 e
4 c) v5 B1 A1 w+ w5 o% t
( v, H# X, l$ M! s1、添加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; } x: A) N1 P6 O ?/ Z2 p
2、导入并封装Excel中的接口 Excel作为OLE/COM库插件,定义好了各类交互的接口,这些接口是跨语言的接口。VC可以通过导入这些接口,并通过接口来对Excel的操作。 由于本文只关心对Excel表格中的数据的读取,主要关注几个_Application、Workbooks、_Workbook、Worksheets、_Worksheet、Range等几个接口。Excel的各类接口的属性、方法可以通过MSDN的Office Development进行查询。 VS2010导入OLE/COM组件的接口的步骤为:Project->Class Wizard->Add Class->MFC Class From TypeLib,先选择要导入的组件所在的路径,即Excel.exe所在的路径,然后再选择 要导入的Excel类型库中的接口。 在完成接口导入后,VS2010将自动为导入的接口创建相应的实现类,用于对接口属性和方法的实现。由于标准的C++没有属性访问器,只能添加一个两个存取函数来实现对属性的访问,通过在属性名称前加上get_和put_前缀分别实现对属性的读写操作。即,由VC自动完成C++类对接口的封装。
" j6 Y- C- k( `! t: Z/ F; T本文所导入的接口对应的类和头文件的说明如下所示:
0 _ z4 d( ~5 ?6 s3 k* n: wExcel接口 | 导入类 | 头文件 | 说明 | _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 | 一定数量的单元格,可对单元格进行单个或多个单元格进行操作。 | " O- s8 T$ i* C
$ Y) w, L+ _) @3、导入Excel的整个类型库 接口对应类只是对接口的属性和方法进行了封装,而Excel中的数据类型,如枚举类型却并为并不能使用,因此,为了更方便的操作Excel,还需要导入Excel的数据类型。 通过查看导入接口对应的头文件可以发现,在所有导入接口的头文件中,都会有这么行: #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的相关库。 更改后的导入类型库的代码如下:
# W: q3 u& @) L! _ S/*导入Office的类型库*/ #import "C: \\Program Files\\Common Files\\Microsoft Shared\\OFFICE12\\MSO.DLL" \ rename("RGB", "MSORGB") \ rename("DocumentProperties", "MSODocumentProperties") using namespace Office; ' n6 e6 O' f6 l% A$ I& k
/*导入VB的类型库*/ #import "C: \\Program Files\\Common Files\\Microsoft Shared\\VBA\\VBA6\\VBE6EXT.OLB" using namespace VBIDE; ' _5 u9 x1 f% b* n1 M2 ^
/*导入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; " w. l+ B2 H8 G
编译程序后,会在Deb UG或Release目录下生成三个文件mso.tlh、vbe6ext.tlh和excel.tlh。通过打开文件可知,该三个文件的命名空间分别是Office、VBIDE和Excel。导入了Excel的整个类型库后,就可以使用Excel中的所有类型了。 ' J% E O6 k* Q2 L, b x
4、操作Excel步骤 操作Excel的主要步骤如下: (1)创建一个Excel应用程序。 (2)得到Workbook的容器。 (3)打开一个Workbook或者创建一个Workbook。 (4)得到Workbook中的Worksheet的容器。 (5)打开一个Worksheet或者创建一个WorkSheet。 (6)通过Range对WorkSheet中的单元格进行读写操作。 (7)保存Excel。 (8)释放资源。
( y( T, V$ E, v4 I" I3 ]; D5、批量处理Excel表格 VC通过OLE/COM操作Excel,是通过进程间的组件技术。因此,每次读写Excel中的单元格时,都要进行进程间的切换。当数据量大,如果一个单元格一个单元格的读取,主要的时间都花费在进程切换中。因此读取多个单元格,将可有效的提高程序的运行效率。 对多个单元格的读写操作可以通过CRange中以下两个成员函数来完成。 VARIANT get_Value2(); void put_Value2(VARIANT& newValue); 其中,输入参数newValue只要输入一个二维数组,即可实现向Excel中一次写入多个单元格的值。 其中,VARIANT中实现二维数据的方法可参考 当然,在对CRange类进行操作之前,要设置CRange类对应的单元格。
! x! L6 i# C3 N. C7 H$ V6、Excel表格的保存 (1)如果要保存打开的工作簿,使用CWorkbook类的Save函数就可以保存工作簿,原文件将被覆盖。 (2)如果是新创建的工作簿,或者是要另存为,可使用CWorkbook类的SaveAs函数。 SaveAs的参数比较多。其中,第1个参数是设置要保存文件的路径;第2个参数是设置文件的格式,可在MSDN中查看枚举类型XlFileFormat来了解Excel的文件格式。经过测试,在本文所用的测试环境中,Excel2003的文件格式是xlExcel8,Excel2007的文件格式是xlExcel4。
1 M5 I# O/ g$ j) _7、获取当前Excel的版本 可以通过CApplication的get_Version函数来获得Excel的版本,其中,Excel2007的主版本号是12,Excel2003的主版本号是11。 5 r% Y! z7 Y- R$ `, [" a
m_LisTCtrl.SetExtendedStyle(LVS_REPORT | LVS_EX_FULLROWSELECT);8 {: S" ?6 B. @$ |/ ~3 L+ s
& }5 t3 H; r8 J9 P% O
CApplication ExcelApp;9 a4 y, A1 b- _7 P% V+ ?8 a
CWorkbooks books;1 F/ ~6 w; Y4 f. z9 h- q6 Q! n& \
CWorkbook book;# ` x" q$ T" n/ O
CWorksheets sheets;. g0 N6 c( r3 }0 v) @9 E
CWorksheet sheet;
# j' W& ~- S& c' o6 C# T CRange range;3 [3 Y; x n' [4 @
LPDISPATCH lpDisp = NULL;
% o+ I" ]/ J# i) W6 U4 M1 F& x
( k* W6 ~2 }) ]2 p9 c, q) H( u- A$ \9 u //创建Excel 服务器(启动Excel)
P$ ?8 e" Y# k8 i7 J! M6 y if(!ExcelApp.CreateDispatch(_T("Excel.Application"),NULL)). E+ V. i. S4 a* G @* m+ T
{
4 G6 a' U! l- p5 ^+ ]0 ^- E AfxMessageBox(_T("启动Excel服务器失败!"));
2 D% V7 l& R- L; X! c6 B( C2 E return -1;
9 C% \. ?1 G' t) k; d- ? }
& c; F+ k) j: d
5 r/ M# { H6 o /*判断当前Excel的版本*/1 i/ W: O( _' A8 ^
CString strExcelVersion = ExcelApp.get_Version();
& N# k. \2 g: m) r; H int iStart = 0;/ U3 |9 @. s ?; H4 S8 h3 V
strExcelVersion = strExcelVersion.Tokenize(_T("."), iStart);3 ~9 |8 R: l$ c9 c' ]( W) t' D8 N
if (_T("11") == strExcelVersion)
; M# [8 T5 h9 R4 W: J. e4 a* v {
" ] X) C; ? D% |* g6 [ AfxMessageBox(_T("当前Excel的版本是2003。"));6 ] y% i' N% L: U& a7 r( w1 A
}
, W9 y; `2 W8 e6 ~1 ]: \5 h else if (_T("12") == strExcelVersion)9 w3 B0 T" s3 b1 c. O+ I- w
{
0 d7 E8 z8 Y# O# t+ \ AfxMessageBox(_T("当前Excel的版本是2007。"));
/ p7 A! g. `* E+ l: n }$ {5 K" q) R8 `: D9 ~* ?" k* [
else
7 m Q) v8 B0 e, }& R9 q {# U- ]. A. Y0 G8 V
AfxMessageBox(_T("当前Excel的版本是其他版本。"));
' M! L0 R0 _: o9 h, Y+ y }1 Y# J# ?! s, M% g, e# V. O
% L0 w2 X7 s: B4 j* Q
ExcelApp.put_Visible(TRUE);
1 G4 p/ f7 ~( y- A# T+ S ExcelApp.put_UserControl(FALSE);
! ?- H% y1 v9 h' K4 b7 E& C2 h9 P! |+ \/ E, o( f0 o2 z, l& ~0 m
/*得到工作簿容器*/8 B, \ N) T6 Z' W" }) P
books.AttachDispatch(ExcelApp.get_Workbooks());
! U/ g/ M. D% s2 h1 u) W
7 T0 ^! W x4 A# z/ D5 B$ A /*打开一个工作簿,如不存在,则新增一个工作簿*/
1 t& W+ l6 }, n k6 [# T; X CString strBookPath = _T("C:\\tmp.xls");
0 ^# A6 x, |# _& T& M) ] try
6 C5 m2 T& e' U5 d6 g, ] {/ _+ M; Z7 S' l; ^, O* y
/*打开一个工作簿*/- K0 p0 p T3 s# Q5 t, A- @2 G6 z
lpDisp = books.Open(strBookPath, ! [3 Z& o; o5 r& w' S- r
vtMissing, vtMissing, vtMissing, vtMissing, vtMissing,
% _8 Y. h; o, R8 d vtMissing, vtMissing, vtMissing, vtMissing, vtMissing,
) \7 @' Z3 b# [9 n. Y vtMissing, vtMissing, vtMissing, vtMissing);! P; t: y; l4 ~* ^) U( w
book.AttachDispatch(lpDisp);
% C" T# l# h, k8 w5 R4 g5 G3 h }' l( s* y/ K' b! g d
catch(...)% ^2 n4 y+ o( @: y
{" C# c- _2 E& g# W
/*增加一个新的工作簿*/6 F& i1 C) I2 L+ E
lpDisp = books.Add(vtMissing);& ~$ s: p; ?; z! L3 r
book.AttachDispatch(lpDisp);' B- o- t9 Q+ l! [ f+ G# N
}! b/ X# d& J# _2 R) c* y
) |! e: ~9 K' Z; T
/ Y+ _: D1 o, X0 l8 x8 T /*得到工作簿中的Sheet的容器*/
D* }% h" e& A( h$ ~& ^3 a$ U sheets.AttachDispatch(book.get_Sheets());
' h3 ~; o X6 X) W
: o5 y1 l+ U+ R1 i1 }4 I3 M5 O /*打开一个Sheet,如不存在,就新增一个Sheet*/
0 s6 M. O; A! { CString strSheetName = _T("NewSheet");
9 r( K2 S# O: L# N6 V( k2 t, a try
: ?# p) W' z$ _: J9 V& m- N, g3 w' a {2 f% s6 |/ A4 s6 Q! A' ] W0 _2 o: w
/*打开一个已有的Sheet*/
1 ]& h+ C: v% H) {, L; t8 u lpDisp = sheets.get_Item(_variant_t(strSheetName));
& ^$ U1 s2 l/ |6 t sheet.AttachDispatch(lpDisp);7 M2 ~3 j7 y# p; u
}
' Y, x) {( r" {8 X3 O6 w" n6 Q catch(...)2 K6 l0 G* I# o- `6 h6 w; ~8 i$ w" _
{
3 m1 b1 o" R+ k8 s2 M @ /*创建一个新的Sheet*/" p. j7 O6 k6 @8 t' V
lpDisp = sheets.Add(vtMissing, vtMissing, _variant_t((long)1), vtMissing);
/ E5 \2 X/ x J- A- o sheet.AttachDispatch(lpDisp);! l3 M9 A2 E. N
sheet.put_Name(strSheetName);- M) s: A) W& C; Q2 E& r" i" a# y
}' ^/ y0 X! ]* o: ]
/ o" v& h- @' D, @
system("pause");# ~. a& `1 t' B7 u
( @8 O5 G: h3 i# o8 m6 c- x! d* `- Z
/*向Sheet中写入多个单元格,规模为10*10 */
, W# V6 p1 s8 D1 s( F# r lpDisp = sheet.get_Range(_variant_t("A1"), _variant_t("J10"));* O7 V5 c$ W) T: g
range.AttachDispatch(lpDisp);6 a+ B' w8 q; Y5 _6 ~* Z, g
: y! w3 |; z$ Z. l+ o( m" I+ d
VARTYPE vt = VT_I4; /*数组元素的类型,long*/, [& \( Q4 F2 _0 E# ?; M
SAFEARRAYBOUND sabWrite[2]; /*用于定义数组的维数和下标的起始值*/
. u8 m0 `' e% w6 m8 {& A: P sabWrite[0].cElements = 10;( T c4 m* }- p# O, [! B
sabWrite[0].lLbound = 0;3 }. c/ ]$ u" h& e* }
sabWrite[1].cElements = 10;
' V8 a8 @( ~/ M' `. ? sabWrite[1].lLbound = 0;, i& `9 D. H2 a
) I# w7 s( T& [7 A COleSafeArray olesaWrite;
- t: p* r5 O& F5 {" P2 ~; [; f olesaWrite.Create(vt, sizeof(sabWrite)/sizeof(SAFEARRAYBOUND), sabWrite);" q) t0 n$ I9 W. e+ s
& T+ H! [9 q- V; M) a
/*通过指向数组的指针来对二维数组的元素进行间接赋值*/% R/ u# z5 @1 @ y4 \/ {* T
long (*pArray)[2] = NULL;
! m" T" H$ W1 e: _+ P olesaWrite.AccessData((void **)&pArray);1 N1 @6 c5 T* @/ B9 e1 H. i8 Y
memset(pArray, 0, sabWrite[0].cElements * sabWrite[1].cElements * sizeof(long));
\3 ^ w; I7 ^
9 G1 Q$ b y5 r) V' |- p7 \& h0 o" k /*释放指向数组的指针*/
; W. @: M! Y! _. ~1 B/ i olesaWrite.UnaccessData();
8 A r; Q! ~% c pArray = NULL;
4 i5 F. o, S, T
$ Y) Y2 P' |5 R7 C /*对二维数组的元素进行逐个赋值*/0 k. w4 h6 Y& Z! t0 t
long index[2] = {0, 0};. S3 Z- E# y b5 W# p4 S
long lFirstLBound = 0;
4 n" b9 @0 E: V9 i. a long lFirstUBound = 0;
* ^' {* V% Q: ~1 V+ q0 W3 Q E long lSecondLBound = 0;
9 D! L- ^! N- w9 x2 h long lSecondUBound = 0;
& L6 k; ]% ?; ] olesaWrite.GetLBound(1, &lFirstLBound);
$ c5 Z1 r9 Y3 n olesaWrite.GetUBound(1, &lFirstUBound);
; g% h0 d* P2 \7 c olesaWrite.GetLBound(2, &lSecondLBound);
9 ~1 r6 ^, Z8 O% k. ?$ }. X8 f olesaWrite.GetUBound(2, &lSecondUBound);
3 W g, C- t- z for (long i = lFirstLBound; i <= lFirstUBound; i++)3 \8 ~0 g/ j% P( a
{
6 ?' ]( H5 K5 t: w index[0] = i;1 n! ~! |, c. a% f7 z
for (long j = lSecondLBound; j <= lSecondUBound; j++)
9 P, x- A# T* }% Q! d {
! I% X+ [2 G% [0 M index[1] = j;
, _# a' ]3 ]* ?; z1 N long lElement = i * sabWrite[1].cElements + j;
! T9 I7 _; J. o% e5 D5 ]" U, k olesaWrite.PutElement(index, &lElement);7 U* ?. A4 X; x1 Q8 U% g7 l
}' T! L+ }( o8 O
}
$ q. g O- s$ h" n% y+ [
: \ l4 ? b8 E* } /*把ColesaWritefeArray变量转换为VARIANT,并写入到Excel表格中*/; Y; v9 V/ A; S/ O7 ^& W- C
VARIANT varWrite = (VARIANT)olesaWrite;$ h5 F: X6 O, a1 E
range.put_Value2(varWrite);
; {& M( j) R" @! K' ]! N+ @7 L9 {. _$ x: A- \# ?5 e
system("pause");2 q9 h# Y9 F4 Y3 @
6 k6 d4 m* D' N, ]4 _' P /*根据文件的后缀名选择保存文件的格式*/6 }; X0 M" {+ ]
CString strSaveAsName = _T("C:\\new.xlsx");
4 {, {# L2 M1 a4 i+ d7 n& h8 H CString strSuffix = strSaveAsName.Mid(strSaveAsName.ReverseFind(_T('.')));) k- j7 e' j- K# {
XlFileFormat NewFileFormat = xlOpeNXMLWorkbook;" Q% h- ~) c3 U3 K5 Z O0 g; ^
if (0 == strSuffix.CompareNoCase(_T(".xls")))
, X3 d) x' I3 C, U! ^ {1 @/ ], }1 B3 x" h0 P9 Q k
NewFileFormat = xlExcel8;
- \. c: g6 r2 O5 G* V: s, H0 p% t6 R& A }, q* _8 y3 E- |; O# P6 t( f1 M
book.SaveAs(_variant_t(strSaveAsName), _variant_t((long)NewFileFormat), vtMissing, vtMissing, vtMissing,
3 v) t+ Y; e; U: E$ s: Z$ F$ X8 D vtMissing, 0, vtMissing, vtMissing, vtMissing,
7 r$ D {, g& v# _7 P0 G! \2 G vtMissing, vtMissing);
K; t3 X( H3 J4 |* j4 _, G' E* q
8 b/ e1 N! p$ ^* l# c" B system("pause");# ]4 C6 p1 ^, j- _% ]! @9 O" f
& W( W1 L$ o. H% d9 g& n/ p
/*读取Excel表中的多个单元格的值,在listctrl中显示*/
# L" P, n3 |- _1 l a$ r- @ VARIANT varRead = range.get_Value2();2 D2 R; |0 v5 V$ ]+ u! I
COleSafeArray olesaRead(varRead);- K$ \% X# F% Q
2 [6 ?3 a7 h0 Z: x! ^3 t+ N) h, Q
VARIANT varItem;
( B7 @* c3 X+ T0 f! M# m. u CString strItem;
$ O5 \0 S) ~3 @9 J7 t2 _0 E5 x) C, Q lFirstLBound = 0;
* O' y# U) \) l: ?0 F% S& Z lFirstUBound = 0;% r& F6 C1 V+ |8 s
lSecondLBound = 0;
" [1 [4 \) k/ r- f. @4 {' u. a lSecondUBound = 0;
; m' [, v6 V7 \4 d5 Z7 w5 w* |4 e olesaRead.GetLBound(1, &lFirstLBound);
7 S" c3 N( s- W+ a" M0 p# q! x olesaRead.GetUBound(1, &lFirstUBound);
8 a9 S) t! a3 s3 p& H: [ olesaRead.GetLBound(2, &lSecondLBound);
" Q. U8 n- _5 H3 F1 T; h olesaRead.GetUBound(2, &lSecondUBound);8 K: H. O! }: }8 a, o5 s
memset(index, 0, 2 * sizeof(long));
. s* l: j; W W1 o4 z- y# A/ F m_ListCtrl.InsertColumn(0, _T(""), 0, 100);) e4 X3 _# v/ l9 J+ p
for (long j = lSecondLBound; j<= lSecondUBound; j++)( d' P2 y) o2 D$ Q2 d* C9 m! w
{
1 r2 C. m# ] F! ~: i$ w4 s* K CString strColName = _T("");4 V' o5 U$ W2 ^, \; z1 [0 u
strColName.Format(_T("%d"), j);
$ K& ]$ x4 \1 T9 A, S% e2 S' [ m_ListCtrl.InsertColumn(j, strColName, 0, 100);1 \4 K) m) z4 X2 g
}
% T. Y5 ~! \" s2 D) f# t for (long i = lFirstLBound; i <= lFirstUBound; i++)7 z" O& P0 ?3 ^$ T0 X
{
' }# U3 Y! {1 m0 T+ e CString strRowName = _T("");
+ M; G& a6 P, S( L5 [, k& c# h, W strRowName.Format(_T("%d"), i);3 I3 i5 s/ l. S8 q
m_ListCtrl.InsertItem(i-1, strRowName);0 r1 ~" M! P# N8 s3 ]3 A
9 ?& ^% B1 S& ?3 m0 K% \% ` index[0] = i;
% b. {7 S [7 b1 _$ G- p5 A3 a8 c for (long j = lSecondLBound; j <= lSecondUBound; j++)
: E4 I* m$ S5 L9 m: M( j {0 d2 X3 d! ^. j7 Z3 v. E) Q/ a
index[1] = j;( i, A& ]' G% M9 l! i4 \0 t3 g
olesaRead.GetElement(index, &varItem);
; a! N2 |/ [9 p# d7 w* ~+ q: Y) Q
! D% Y* e, \0 p, I; ^- B switch (varItem.vt)3 n& [! L+ d4 R9 J3 O
{; W4 v0 |2 U) m/ G0 i
case VT_R8:
0 b/ o+ p+ h$ m) {+ `; g# q6 r {
, W; R0 v- X2 @& l% y" D strItem.Format(_T("%d"), (int)varItem.dblVal);# O' H/ B: C( Z* }0 ?* K# U
}
2 T. w( z" [7 x
; g0 F2 ~, S: ]+ E, Y+ r8 w/ ^ case VT_BSTR:
! q" @' }' c+ ?1 }9 E {
4 A; I( |& J% e, G strItem = varItem.bstrVal;* S$ M4 V7 a/ c+ d
}2 t8 T1 g2 B5 {9 z) _ [
, N4 G; H" b0 b( Y* B# y. t6 P case VT_I4:- F* E* x, X* [6 i/ y- e0 O
{( S0 a4 M9 ~# m" |5 g+ r* |
strItem.Format(_T("%ld"), (int)varItem.lVal);
, G# \1 o# p- `6 _, S }7 S3 P1 T3 ~4 a4 i8 V# {
' y8 z- N# k3 y4 f
default:. d c( p4 I" b7 @- [# l
{
2 ]3 `2 w& h7 x" p# u6 ]; Q5 E6 M1 F2 \" K* {7 S3 a) n
}1 l2 J( K% u# c# e0 b6 T
}8 u: y. \! C9 X/ x% W% y/ G7 e3 j F
. \/ ~2 F/ z: a m_ListCtrl.SetItemText(i-1, j, strItem);
$ h& X9 g6 G/ [1 v( k }
- k. v: o3 }% ]; x- V$ V) \; s& R; S }" e3 {0 t6 W% V' N" H$ @
7 e& z& X& p0 v$ ^7 V c# y$ q: \& A5 w7 V& H
0 |5 C: K( S/ [
/*释放资源*/
% [+ S4 [- Z1 ]0 ]' R6 B1 Z sheet.ReleaseDispatch();
2 B' x: b. }7 o- x( E- W sheets.ReleaseDispatch();
8 ~1 i3 q) R' q. x) k7 M7 e/ u book.ReleaseDispatch();
+ D# e) l. o1 X, ]! S1 \ books.ReleaseDispatch();1 M2 T" f$ o; P
ExcelApp.Quit();
3 K! @1 [" o& Y1 \$ m: ] ExcelApp.ReleaseDispatch();[url=][/url]
, e" i( X' `' C, X
6 v7 l; e) S6 e% s7 O7 Q$ ?* e7 g) X |
|