VC 操作Excel 自适应宽度和高度

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