void CExcelTestDlg::OnButton1()
{
COleVariant vOpt(DISP_E_PARAMNOTFOUND, VT_ERROR);
_Application ExcelApp;
Workbooks wbsMyBooks;
_Workbook wbMyBook;
Worksheets wssMysheets;
_Worksheet wsMysheet;
Range rgMyRge;
//创建Excel 2000服务器(启动Excel)
if (!ExcelApp.CreateDispatch("Excel.Application",NULL))
{
AfxMessageBox("创建Excel服务失败!");
exit(1);
}
//利用模板文件建立新文档
wbsMyBooks= ExcelApp.GetWorkbooks();
wbMyBook = wbsMyBooks.Open("e:\\doc2\\底图目录.xls",
vOpt, vOpt, vOpt, vOpt,
vOpt, vOpt, vOpt, vOpt,
vOpt, vOpt, vOpt, vOpt) ;
//得到Worksheets
wssMysheets = wbMyBook.GetWorksheets();
//得到sheet1
wsMysheet = wssMysheets.GetItem(_variant_t((long)1));
//得到全部Cells,此时,rgMyRge是cells的集合
rgMyRge = wsMysheet.GetCells();
for(long i=1;i<10;i++)
{
for(long j =0;j<20;j++)
{
rgMyRge = wsMysheet.GetRange(COleVariant("A1"), vOpt);
rgMyRge = rgMyRge.GetOffset(COleVariant(i), COleVariant(j));
rgMyRge.SetValue(COleVariant("d1"));
}
}
ExcelApp.SetVisible(0);
wsMysheet.SetName("tt");
ExcelApp.SetUserControl(0);
wbMyBook.Save();
}
{
COleVariant vOpt(DISP_E_PARAMNOTFOUND, VT_ERROR);
_Application ExcelApp;
Workbooks wbsMyBooks;
_Workbook wbMyBook;
Worksheets wssMysheets;
_Worksheet wsMysheet;
Range rgMyRge;
//创建Excel 2000服务器(启动Excel)
if (!ExcelApp.CreateDispatch("Excel.Application",NULL))
{
AfxMessageBox("创建Excel服务失败!");
exit(1);
}
//利用模板文件建立新文档
wbsMyBooks= ExcelApp.GetWorkbooks();
wbMyBook = wbsMyBooks.Open("e:\\doc2\\底图目录.xls",
vOpt, vOpt, vOpt, vOpt,
vOpt, vOpt, vOpt, vOpt,
vOpt, vOpt, vOpt, vOpt) ;
//得到Worksheets
wssMysheets = wbMyBook.GetWorksheets();
//得到sheet1
wsMysheet = wssMysheets.GetItem(_variant_t((long)1));
//得到全部Cells,此时,rgMyRge是cells的集合
rgMyRge = wsMysheet.GetCells();
for(long i=1;i<10;i++)
{
for(long j =0;j<20;j++)
{
rgMyRge = wsMysheet.GetRange(COleVariant("A1"), vOpt);
rgMyRge = rgMyRge.GetOffset(COleVariant(i), COleVariant(j));
rgMyRge.SetValue(COleVariant("d1"));
}
}
ExcelApp.SetVisible(0);
wsMysheet.SetName("tt");
ExcelApp.SetUserControl(0);
wbMyBook.Save();
}
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货