VC6.0调用excel xp,word 2k

快来打我* 2022-08-24 11:23 215阅读 0赞

1.  //vc6.0调用excel xp,word 2k 
2.  
3.  
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
12. 
13. ("ExitWindows","ExitWindowsEx")
14. 　　\#import "c:/Program Files/Microsoft Office/Office10/excel.exe" rename("DialogBox",
15. 
16. "DialogBoxXL") rename("RGB", "RBGXL") rename("DocumentProperties", "DocumentPropertiesXL")
17. 
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"
22. 
23. no\_namespace
24. 　　\#import "c:/Program Files/Microsoft Office/Office/MSWORD9.OLB" rename
25. 
26. ("ExitWindows","\_ExitWindows")
27. 　　\#import "c:/Program Files/Microsoft Office/Office/excel9.olb" rename("DialogBox",
28. 
29. "DialogBoxXL") rename("RGB", "RBGXL") rename("DocumentProperties", "DocumentPropertiesXL")
30. 
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. 　　\}
73.