久久久久久久999_99精品久久精品一区二区爱城_成人欧美一区二区三区在线播放_国产精品日本一区二区不卡视频_国产午夜视频_欧美精品在线观看免费

<delect id="e8o8i"></delect>

標題: MFC 操作EXCEL VS2008 [打印本頁]

作者: heise 時間: 2014-8-18 02:37
標題: MFC 操作EXCEL VS2008
MFC 基于對話框，對EXCEL操作；步驟如下：
1：新建MFC 對話框工程
2：項目->添加類->TypeLib中的MFC類->選擇“從"文件"來源添加類”，位置為excel的安裝路徑->設置好之后，就會出現很多的接口，選擇其中常用的接口接口滿足要求，具體的有5類常用接口：_Application、_Workbook、_Worksheet、Workbooks、Worksheets、Range，這6類會對應生成6個.h文件添加到工程中，以后在工程中直接調用這些類的函數即可完成對excel的各種操作。

3：初始化工作，非常重要，在  BOOL CxxxApp::InitInstance()函數中進行初始化；
A:，該函數是主對話框的初始化函數，在INT_PTR nResponse = dlg.DoModal()之前添加下面代碼
      if (CoInitializeEx(NULL,COINIT_MULTITHREADED)!=0)
{
AfxMessageBox("初始化COM支持庫失敗!");
exit(1);
}
INT_PTR nResponse = dlg.DoModal();
B：在return FALSE;前可加入關閉excel進程以及釋放對象的語句，
if (ExcelSave  == 0) {
book.put_Saved(true);
}
books.Close();
      app.Quit();// 退出
      //釋放對象
range.ReleaseDispatch();
sheet.ReleaseDispatch();
   sheets.ReleaseDispatch();
book.ReleaseDispatch();
books.ReleaseDispatch();
app.ReleaseDispatch();
CoUninitialize();
return FALSE;

4：利用模板建立新的文檔
if(!app.CreateDispatch("Excel.Application"))
{
AfxMessageBox("無法啟動Excel服務器!");
return false;
}
books.AttachDispatch(app.get_Workbooks(),true);
book = books.Add(covOptional);
//得到Worksheets
sheets.AttachDispatch(book.get_Worksheets(),true);
//得到sheet1
sheet.AttachDispatch(sheets.get_Item(_variant_t("sheet1")),true);
//得到全部Cells，此時,rgMyRge是cells的集合
range.AttachDispatch(sheet.get_Cells(),true);

5：excel保存

//選擇目錄按鈕
char szPath[MAX_PATH];    //存放選擇的目錄路徑
CString str;
CString str1;
int temp = 0;
ZeroMemory(szPath, sizeof(szPath));
BROWSEINFO bi;
bi.hwndOwner = m_hWnd;
bi.pidlRoot = NULL;
bi.pszDisplayName = szPath;
bi.lpszTitle = "請選擇文件保存的路徑：";
bi.ulFlags = 0;
bi.lpfn = NULL;
bi.lParam = 0;
bi.iImage = 0;
//彈出選擇目錄對話框
LPITEMIDLIST lp = SHBrowseForFolder(&bi);

if(lp && SHGetPathFromIDList(lp, szPath))
{
      //str.Format("數據文件data.xls保存在 %s",  szPath);
   // AfxMessageBox(str);
temp = 1;
}
else
      AfxMessageBox("無效的目錄，請重新選擇");

///////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////
if (temp == 0) {
return;
}
//居中
CString strlt,strrd;
strlt= "A1 ";
strrd= "E4 ";
//range.AttachDispatch(sheet.get_Range(_variant_t(strlt),_variant_t(strrd)),true);
range.AttachDispatch(sheet.get_UsedRange());
range.put_HorizontalAlignment(_variant_t((long)3));
//book.SaveCopyAs(_variant_t());
//book.SaveCopyAs(_variant_t("C:\\Users\\Administrator\\Desktop\\laaaq.xls"));
str = szPath;
if (str.GetLength() > 3) {
str += "\\data.xls";
} else {
str += "data.xls";
}
book.SaveAs(COleVariant(str),covOptional,covOptional,covOptional,covOptional,covOptional,0,covOptional,covOptional,covOptional,covOptional,covOptional);

6：excel操作舉例
//合并單元格
CString str;
str="節點A";
range=sheet.get_Range(COleVariant("A1"),COleVariant("A1"));
range.put_Value2(COleVariant(str));
range=sheet.get_Range(COleVariant("A1"),COleVariant("C1"));
range.Select();
range.Merge(COleVariant((long)0));
str="節點B";
range=sheet.get_Range(COleVariant("D1"),COleVariant("D1"));
range.put_Value2(COleVariant(str));
range=sheet.get_Range(COleVariant("D1"),COleVariant("F1"));
range.Select();
range.Merge(COleVariant((long)0));
str="節點C";
range=sheet.get_Range(COleVariant("G1"),COleVariant("G1"));
range.put_Value2(COleVariant(str));
range=sheet.get_Range(COleVariant("G1"),COleVariant("I1"));
range.Select();
range.Merge(COleVariant((long)0));
range.AttachDispatch(sheet.get_Cells(),true);
range.put_Item(_variant_t((long)2),_variant_t((long)1),_variant_t("XA"));
range.put_Item(_variant_t((long)2),_variant_t((long)2),_variant_t("YA"));
range.put_Item(_variant_t((long)2),_variant_t((long)3),_variant_t("ZA"));
range.put_Item(_variant_t((long)2),_variant_t((long)4),_variant_t("XB"));
range.put_Item(_variant_t((long)2),_variant_t((long)5),_variant_t("YB"));
range.put_Item(_variant_t((long)2),_variant_t((long)6),_variant_t("ZB"));
range.put_Item(_variant_t((long)2),_variant_t((long)7),_variant_t("XC"));
range.put_Item(_variant_t((long)2),_variant_t((long)8),_variant_t("YC"));
range.put_Item(_variant_t((long)2),_variant_t((long)9),_variant_t("ZC"));

歡迎光臨 (http://www.zg4o1577.cn/bbs/)