vc6操作Excel2003

来源：互联网发布：bc优化编辑：程序博客网时间：2024/06/06 08:34

void CTestExcelDlg::OnButton1()
{
// TODO: Add your control notification handler code here
_Application app;
Workbooks books;
_Workbook book;
Worksheets sheets;
_Worksheet sheet;
Range range;
Font font;
Range cols;

if( !app.CreateDispatch("Excel.Application") ){
this->MessageBox("无法创建Excel应用！");
return;
}
books.AttachDispatch(app.GetWorkbooks(),true);
app.SetVisible(false);
COleVariant covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);

book.AttachDispatch(books.Add(covOptional));
sheets.AttachDispatch(book.GetWorksheets(),true);
app.SetVisible(true);
sheet.AttachDispatch(sheets.GetItem(_variant_t((long)1)));
range.AttachDispatch(sheet.GetCells(),true);
range.SetItem(_variant_t((long)1),_variant_t((long)1),_variant_t("test"));
sheet.AttachDispatch(sheets.GetItem(_variant_t((long)2)));
range.AttachDispatch(sheet.GetCells(),true);
range.SetItem(_variant_t((long)1),_variant_t((long)1),_variant_t("test"));
sheet.AttachDispatch(sheets.GetItem(_variant_t((long)3)));
range.AttachDispatch(sheet.GetCells(),true);
sheet.Copy(vtMissing,_variant_t(sheet));

app.SetUserControl(TRUE);

book.SaveAs(COleVariant("C://a.xls"),covOptional,
  covOptional,covOptional,
  covOptional,covOptional,(long)0,covOptional,covOptional,covOptional,covOptional,
  covOptional);
}