CApplication ExcelApp;
CWorkbooks books;
CWorkbook book;
CWorksheets sheets;
CWorksheet sheet;
CRange range;
LPDISPATCH lpDisp = NULL;
LPDISPATCH lpDisp1 = NULL;
//创建Excel 服务器(启动Excel)
if(!ExcelApp.CreateDispatch(_T("Excel.Application"),NULL))
{
AfxMessageBox(_T("启动Excel服务器失败!"));
return ;
}
ExcelApp.put_Visible(TRUE);
ExcelApp.put_UserControl(FALSE);
/*得到工作簿容器*/
books.AttachDispatch(ExcelApp.get_Workbooks());
CString strBookPath = _T("E:\\测试.xls");
try
{
/*打开一个工作簿*/
lpDisp = books.Open(strBookPath,
vtMissing, vtMissing, vtMissing, vtMissing, vtMissing,
vtMissing, vtMissing, vtMissing, vtMissing, vtMissing,
vtMissing, vtMissing, vtMissing, vtMissing);
book.AttachDispatch(lpDisp);
}
catch(...){}
/*得到工作簿中的Sheet的容器*/
sheets.AttachDispatch(book.get_Sheets());
CString strSheetName;
strSheetName = _T("XXXX表");
lpDisp = sheets.get_Item(_variant_t(strSheetName );
sheet.AttachDispatch(lpDisp);
range =sheet.get_Columns();
range.AutoFit();
range =sheet.get_Rows();
range.AutoFit();
sheet.ReleaseDispatch();
sheets.ReleaseDispatch();
book.ReleaseDispatch();
books.ReleaseDispatch();
ExcelApp.Quit();
ExcelApp.ReleaseDispatch();
VC 操作Excel 自适应宽度和高度
最新推荐文章于 2023-06-27 15:36:50 发布