MFC vc++6 读写Excel

1.Ctrl+W 执行 ClassWizard

2.Add Class.../From a type Library... 在 Office 目录中，找到你想使用的类型库。（excel.exe）根据需要添加，（可以全部）(2003)

3.包含头文件#include "excel.h"

4.详见msdn：Automating Microsoft Office 97 and Microsoft Office 2000（搜索主题）->参见MFC example

5.拷贝msdn代码测试

//添加第5列
oRange = oSheet.GetRange(COleVariant("F1"), vOpt);
oRange.SetValue2(COleVariant("YYY"));
Font oFont = oRange.GetFont();
oFont.SetSize(COleVariant((long)50));
oFont.SetColor(COleVariant((long)0xFF0000));

//设置链接

[cpp] view plain copy print ?

1. void CExcelTest8Dlg::OnBtnExcel()
2. {
3. // TODO: Add your control notification handler code here
5. COleVariant vOpt((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
7. _Application oApp;
8. oApp.CreateDispatch("Excel.Application");
9. if (!oApp)
10. {
11. AfxMessageBox("Cannot start Excel.");
12. return;
13. }
15. //Get the Workbooks collection so that you can add a new workbook
16. Workbooks oBooks = oApp.GetWorkbooks();
17. _Workbook oBook = oBooks.Add(vOpt);
19. //Get the Worksheets collection of the new Workbook so that
20. //you can get the IDispatch for the first WorkSheet
21. Worksheets oSheets = oBook.GetWorksheets();
22. _Worksheet oSheet = oSheets.GetItem(COleVariant((short)1));
24. //*** ADD DATA TO THE WORKSHEET
26. //Add Headers to Row 1 of the worksheet
27. Range oRange;
28. oRange = oSheet.GetRange(COleVariant("A1"), vOpt);
29. oRange.SetValue2(COleVariant("Date"));
30. oRange = oSheet.GetRange(COleVariant("B1"), vOpt);
31. oRange.SetValue2(COleVariant("Order #"));
32. oRange = oSheet.GetRange(COleVariant("C1"), vOpt);
33. oRange.SetValue2(COleVariant("Amount"));
34. oRange = oSheet.GetRange(COleVariant("D1"), vOpt);
35. oRange.SetValue2(COleVariant("Tax"));
37. //Create a safe array that is NUMROWS x 3 --
38. //column 1 will contain dates column 2 will contain strings
39. //and column 2 will contain numbers
40. COleSafeArray sa;
41. DWORD dwElements[2];
42. dwElements[0]= NUMROWS; //Number of rows
43. dwElements[1]= 3; //Number of columns
44. sa.Create(VT_VARIANT, 2, dwElements);
46. //Populate the safe array with the data
47. long index[2];
48. long lRow;
49. COleVariant vTemp;
50. COleDateTime vDateTime;
51. CString s;
53. for(lRow=0;lRow<=NUMROWS-1;lRow++)
54. {
55. index[0] = lRow;
57. //Fill the first column with dates
58. index[1] = 0;
59. vDateTime.SetDate(1999, rand()%12, rand()%28);
60. sa.PutElement(index, (COleVariant)vDateTime);
62. //Fill the second column with strings
63. index[1] = 1;
64. s.Format("ORDR%d", lRow+1000);
65. vTemp = s;
66. sa.PutElement(index, vTemp);
68. //Fill the third column with numbers
69. index[1] = 2;
70. vTemp = (long)rand();
71. sa.PutElement(index, vTemp);
72. }
74. //Fill a range, starting at A2 with the data in
75. //the safe array
76. oRange = oSheet.GetRange(COleVariant("A2"), vOpt);
77. oRange = oRange.GetResize(COleVariant((short)NUMROWS),
78. COleVariant((short)3));
79. oRange.SetValue2(sa);
80. sa.Detach();
82. //*** ADD FORMULAS TO THE WORKSHEET
84. //Fill the fourth column with a formula to compute the
85. //sales tax. Note that the formula uses a "relative"
86. //cell reference so that it fills properly.
87. oRange = oSheet.GetRange(COleVariant("D2"), vOpt);
88. oRange = oRange.GetResize(COleVariant((long)NUMROWS),
89. COleVariant((long)1));
90. oRange.SetFormula(COleVariant("=C2*0.07"));
92. //*** FORMAT THE WORKSHEET
93. oRange = oSheet.GetRange(COleVariant("A1"), COleVariant("D1"));
94. Font oFont = oRange.GetFont();
95. oFont.SetBold(COleVariant((short)TRUE));//Apply Bold to Headers
96. oRange = oRange.GetEntireColumn();
97. oRange.AutoFit(); //AutoFit the columns 1:4
99. //Make Excel visible and give the user control
100. oApp.SetVisible(TRUE);
101. oApp.SetUserControl(TRUE);
104. }

void CExcelTest8Dlg::OnBtnExcel() { // TODO: Add your control notification handler code here COleVariant vOpt((long)DISP_E_PARAMNOTFOUND, VT_ERROR); _Application oApp; oApp.CreateDispatch("Excel.Application"); if (!oApp) { AfxMessageBox("Cannot start Excel."); return; } //Get the Workbooks collection so that you can add a new workbook Workbooks oBooks = oApp.GetWorkbooks(); _Workbook oBook = oBooks.Add(vOpt); //Get the Worksheets collection of the new Workbook so that //you can get the IDispatch for the first WorkSheet Worksheets oSheets = oBook.GetWorksheets(); _Worksheet oSheet = oSheets.GetItem(COleVariant((short)1)); //*** ADD DATA TO THE WORKSHEET //Add Headers to Row 1 of the worksheet Range oRange; oRange = oSheet.GetRange(COleVariant("A1"), vOpt); oRange.SetValue2(COleVariant("Date")); oRange = oSheet.GetRange(COleVariant("B1"), vOpt); oRange.SetValue2(COleVariant("Order #")); oRange = oSheet.GetRange(COleVariant("C1"), vOpt); oRange.SetValue2(COleVariant("Amount")); oRange = oSheet.GetRange(COleVariant("D1"), vOpt); oRange.SetValue2(COleVariant("Tax")); //Create a safe array that is NUMROWS x 3 -- //column 1 will contain dates column 2 will contain strings //and column 2 will contain numbers COleSafeArray sa; DWORD dwElements[2]; dwElements[0]= NUMROWS; //Number of rows dwElements[1]= 3; //Number of columns sa.Create(VT_VARIANT, 2, dwElements); //Populate the safe array with the data long index[2]; long lRow; COleVariant vTemp; COleDateTime vDateTime; CString s; for(lRow=0;lRow<=NUMROWS-1;lRow++) { index[0] = lRow; //Fill the first column with dates index[1] = 0; vDateTime.SetDate(1999, rand()%12, rand()%28); sa.PutElement(index, (COleVariant)vDateTime); //Fill the second column with strings index[1] = 1; s.Format("ORDR%d", lRow+1000); vTemp = s; sa.PutElement(index, vTemp); //Fill the third column with numbers index[1] = 2; vTemp = (long)rand(); sa.PutElement(index, vTemp); } //Fill a range, starting at A2 with the data in //the safe array oRange = oSheet.GetRange(COleVariant("A2"), vOpt); oRange = oRange.GetResize(COleVariant((short)NUMROWS), COleVariant((short)3)); oRange.SetValue2(sa); sa.Detach(); //*** ADD FORMULAS TO THE WORKSHEET //Fill the fourth column with a formula to compute the //sales tax. Note that the formula uses a "relative" //cell reference so that it fills properly. oRange = oSheet.GetRange(COleVariant("D2"), vOpt); oRange = oRange.GetResize(COleVariant((long)NUMROWS), COleVariant((long)1)); oRange.SetFormula(COleVariant("=C2*0.07")); //*** FORMAT THE WORKSHEET oRange = oSheet.GetRange(COleVariant("A1"), COleVariant("D1")); Font oFont = oRange.GetFont(); oFont.SetBold(COleVariant((short)TRUE));//Apply Bold to Headers oRange = oRange.GetEntireColumn(); oRange.AutoFit(); //AutoFit the columns 1:4 //Make Excel visible and give the user control oApp.SetVisible(TRUE); oApp.SetUserControl(TRUE); }

补充：

HYPERLINK的格式和Excel中的文件格式差不多，只是在vc中要在字符串中加入转义字符