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);
}