VC6.0调用excel xp,word 2k

1. //vc6.0调用excel xp,word 2k
4. 　　#include <ole2.h>
5. 　　#include <stdio.h>
6. 　　#pragma warning (disable:4146 4192 4786 4081)
7. 　　#define USE_OFFICEXP 1
8. 　　#ifdef USE_OFFICEXP
9. 　　#import "C:/Program Files/Common Files/Microsoft Shared/Office10/MSO.DLL" 
10. 　　#import "c://Program Files//Common Files/Microsoft Shared/VBA/VBA6/VBE6EXT.olb" 
11. 　　#import "c:/Program Files/Microsoft Office/Office10/MSWORD.olb" rename
13. ("ExitWindows","ExitWindowsEx")
14. 　　#import "c:/Program Files/Microsoft Office/Office10/excel.exe" rename("DialogBox", 
16. "DialogBoxXL") rename("RGB", "RBGXL") rename("DocumentProperties", "DocumentPropertiesXL") 
18. exclude("IFont","IPicture")
19. 　　#else
20. 　　#import "c:/Program Files/Microsoft Office/Office/MSO9.dll"
21. 　　#import "C:/Program Files/Common Files/Microsoft Shared/VBA/VBA6/VBE6EXT.OLB" 
23. no_namespace 
24. 　　#import "c:/Program Files/Microsoft Office/Office/MSWORD9.OLB" rename
26. ("ExitWindows","_ExitWindows")
27. 　　#import "c:/Program Files/Microsoft Office/Office/excel9.olb" rename("DialogBox", 
29. "DialogBoxXL") rename("RGB", "RBGXL") rename("DocumentProperties", "DocumentPropertiesXL") 
31. exclude("IFont","IPicture")
32. 　　#endif
33. 　　int main(int argc, char* argv[])
34. 　　{
35. 　　VARIANT varItem;
36. 　　varItem.vt = VT_I4;
37. 　　varItem.intVal = 1;
38. 　　 ::CoInitialize(NULL);
39. 　　 CLSID clsid;
40. 　　 
41. 　　#if 0
42. 　　CLSIDFromProgID(L"Word.Application", &clsid); 
43. 　　Word::_ApplicationPtr pApp;
44. 　　pApp.CreateInstance (clsid,NULL);
45. 　　pApp ->PutVisible (VARIANT_TRUE);
46. 　　pApp ->GetDocuments() ->Add();
47. 　　Word::_DocumentPtr pWordDocument =pApp-> GetActiveDocument();
48. 　　Word::SelectionPtr pSelection = pApp ->GetSelection(); 
49. 　　pSelection ->TypeText("badguy");
50. 　　#endif
51. 　　#if 1
52. 　　CLSIDFromProgID(L"Excel.Application", &clsid); 
53. 　　Excel::_ApplicationPtr pApp;
54. 　　pApp .CreateInstance (clsid,NULL);
55. 　　pApp ->PutVisible (0,VARIANT_TRUE);
56. 　　Excel::_WorkbookPtr pWorkbook = pApp ->GetWorkbooks () ->Add ();
57. 　　Excel::_WorksheetPtr pSheet = pWorkbook ->GetWorksheets () ->GetItem (varItem); 
58. 　　Excel::RangePtr pRange = pSheet ->GetUsedRange(0);
59. 　　int iColCnt = pRange ->GetColumns() ->GetCount();
60. 　　printf("used columns is %d/n",iColCnt);
61. 　　int iRowCnt = pRange ->GetRows() ->GetCount();
62. 　　printf("used rows is %d/n",iRowCnt);
63. 　　pRange = pSheet ->GetRange(OLESTR("A1"));
64. 　　pRange ->Value2 = OLESTR("SOME");
65. 　　Excel::InteriorPtr pInterior= pRange ->GetInterior ();
66. 　　varItem.intVal = 0xff0000;
67. 　　pInterior ->PutColor (varItem); 
68. 　　pSheet ->PrintPreview ();
69. 　　#endif
70. 　　 ::CoUninitialize();
71. 　　 return 0;
72. 　　}