VC下操作Excel源码示例

1. // Copyright (c) Microsoft Corporation. All rights reserved.
2. //
3. // This source code is only intended as a supplement to the
4. // Microsoft Visual C++ Language Reference and related
5. // electronic documentation provided with Microsoft Visual C++.
6. // See these sources for detailed information regarding the
7. // Microsoft Visual C++ product.
9. // NOTE: This example will only work with Excel10 in OfficeXP
10. // Compile with cl /GX comexcel.cpp
11. #include "stdafx.h"
14. #define OFFICE2007 1
15. #define OFFICEXP 2
16. #define OFFICE2000 3
18. // Default Settings
19. #define OFFICE_VER OFFICE2007
20. #define USE_PROGID 1
21. #define USE_LIBID 0
23. #define _M2STR(x) #x
24. #define M2STR(x) _M2STR(x)
27. // Ignore hard wired default paths if MSDLL_PATH is
28. // defined from the command line
29. #ifndef MSDLL_PATH
31. // Paths to required MS OFFICE files.
32. // Make sure these paths are correct for your machine
33. #pragma message ("Make sure the path to MSO DLL is correct.")
34. #if OFFICE_VER == OFFICE2007
35. #define _MSDLL_PATH "C:\Program Files\Common Files\Microsoft Shared\Office12\MSO.DLL"
36. #elif OFFICE_VER == OFFICEXP
37. #define _MSDLL_PATH "C:\Program Files\Common Files\Microsoft Shared\Office11\MSO.DLL"
38. #elif OFFICE_VER == OFFICE2000
39. #define _MSDLL_PATH "C:\Program Files\Microsoft Office\Office\MSO9.dll"
40. #endif
42. #else
43. #define _MSDLL_PATH M2STR(MSDLL_PATH)
44. #endif
46. //
47. // Delete the *.tlh files when changing import qualifiers
48. #import _MSDLL_PATH rename("RGB", "MSRGB")
51. #ifdef VBE6EXT_PATH
52. #import M2STR(VBE6EXT_PATH)
53. #else
54. #import "C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLB"
55. #endif
57. #if USE_PROGID
58. #import "progid:Excel.Sheet" auto_search auto_rename rename_search_namespace("Office12")
60. #elif USE_LIBID
61. #import "libid:{00020813-0000-0000-C000-000000000046}" auto_search auto_rename version(1.3) lcid(0) no_search_namespace
62. #else
64. // Ignore hard wired default paths if MSDLL_PATH is
65. // defined from the command line
66. #ifndef MSEXCEL_PATH
68. #pragma message ("Make sure the path to excel.exe is correct")
69. #if OFFICE_VER == OFFICE2007
70. #define _MSEXCEL_PATH "C:\Program Files\Microsoft Office\Office12\excel.exe"
71. #elif OFFICE_VER == OFFICEXP
72. #define _MSEXCEL_PATH "C:\Program Files\Microsoft Office\Office11\excel.exe"
73. #elif OFFICE_VER == OFFICE2000
74. #define _MSEXCEL_PATH "C:\Program Files\Microsoft Office\Office\excel.exe"
75. #endif
77. #else
78. #define _MSEXCEL_PATH M2STR(MSEXCEL_PATH)
79. #endif
81. #import _MSEXCEL_PATH auto_search auto_rename dual_interfaces
82. #endif // USE_LIBID
86. void dump_com_error(_com_error &e)
87. {
88. _tprintf(_T("Oops - hit an error!\n"));
89. _tprintf(_T("\a\tCode = %08lx\n"), e.Error());
90. _tprintf(_T("\a\tCode meaning = %s\n"), e.ErrorMessage());
91. _bstr_t bstrSource(e.Source());
92. _bstr_t bstrDescription(e.Description());
93. _tprintf(_T("\a\tSource = %s\n"), (LPCTSTR) bstrSource);
94. _tprintf(_T("\a\tDescription = %s\n"), (LPCTSTR) bstrDescription);
95. }
97. // If this is placed in the scope of the smart pointers, they must be
98. // explicitly Release(d) before CoUninitialize() is called. If any reference
99. // count is non-zero, a protection fault will occur.
100. struct StartOle {
101. StartOle() { CoInitialize(NULL); }
102. ~StartOle() { CoUninitialize(); }
103. } _inst_StartOle;
105. void main()
106. {
107. using namespace Excel;
109. _ApplicationPtr pXL;
111. try {
112. pXL.CreateInstance(L"Excel.Application");
114. pXL->Visible[0] = VARIANT_TRUE;
116. WorkbooksPtr pBooks = pXL->Workbooks;
117. _WorkbookPtr pBook = pBooks->Add((long)xlWorksheet);
119. _WorksheetPtr pSheet = pXL->ActiveSheet;
122. try {
123. // This one will fail; it is done on purpose to demonstrate the error.
124. pSheet->Name = "Market Share?";
125. } catch (_com_error &e) {
126. dump_com_error(e);
127. }
129. pSheet->Name = "Market Share!";
131. // When using parameterized properties, optional args must be explicitly dealt with.
132. pSheet->Range["A2"][vtMissing]->Value2 = "Company A";
133. pSheet->Range["B2"][vtMissing]->Value2 = "Company B";
134. pSheet->Range["C2"][vtMissing]->Value2 = "Company C";
135. pSheet->Range["D2"][vtMissing]->Value2 = "Company D";
137. // Of course, you can call a parameterized property as a method and then optional args are implicit.
138. pSheet->GetRange("A3")->Value2 = 75.0;
139. pSheet->GetRange("B3")->Value2 = 14.0;
140. pSheet->GetRange("C3")->Value2 = 7.0;
141. pSheet->GetRange("D3")->Value2 = 4.0;
143. Sleep(1000);
145. RangePtr pRange = pSheet->Range["A2:D3"][vtMissing];
146. _ChartPtr pChart = pBook->Charts->Add();
148. pChart->ChartWizard((Range*) pRange, (long) xl3DPie, 7L, (long) xlRows,
149. 1L, 0L, 2L, "Market Share");
151. Sleep(6000);
153. pBook->Saved[0] = VARIANT_TRUE;
154. pXL->Quit();
155. } catch(_com_error &e) {
156. dump_com_error(e);
157. }
159. }   

来源：http://read.pudn.com/downloads100/doc/fileformat/411493/C++/ComTypeLibfor7/comexcel/excel10/comexcel.cpp__.htm