3,245
社区成员
发帖
与我相关
我的任务
分享
// TODO: 在此添加命令处理程序代码
CFileDialog FileDialog(FALSE,_T("xls"),NULL,OFN_HIDEREADONLY|OFN_OVERWRITEPROMPT, _T("Microsoft Excel 2013(*.xlsx)|*.xlsx|所有文件(*.*)"),this);
if(FileDialog.DoModal()!=IDOK)
{
return;
}
CString cStrFile=FileDialog.GetPathName(); //选择保存路径名称
if(::PathFileExists(cStrFile))
DeleteFile(cStrFile);
//CString cStrFile = _T("E:\\myexcel.xls");
COleVariant covTrue((short)TRUE),covFalse((short)FALSE),covOptional((long)DISP_E_PARAMNOTFOUND,VT_ERROR);
//Font font;
LPDISPATCH lpDisp = NULL;
//创建Excel 服务器(启动Excel)
if(!app.CreateDispatch(_T("Excel.Application"),NULL))
{
AfxMessageBox(_T("启动Excel服务器失败!"));
return;
}
books = app.get_Workbooks();
book = books.Add(covOptional);
sheets = book.get_Worksheets();
sheet = sheets.get_Item(COleVariant((short)1)); //得到第一个工作表
int m_cols = m_devWizard.GetColumnCount(); //获取列数
int m_rows = m_devWizard.GetRowCount(); //获取行数
CString colname;
CString strTemp;
int iRow,iCol;
for(iCol=0; iCol <m_cols; iCol++)//将列表的标题头写入EXCEL
{
GetCellName(1 ,iCol + 1, colname); //(colname就是对应表格的A1,B1,C1,D1)
}
range = sheet.get_Range(COleVariant( _T("A1 ")), COleVariant(colname));
range.put_RowHeight(_variant_t((long)50));//设置行的高度
range.put_VerticalAlignment(COleVariant((short)-4108));//xlVAlignCenter = -4108
COleSafeArray saRet; //COleSafeArray类是用于处理任意类型和维数的数组的类
DWORD numElements[]={m_rows,m_cols}; //行列写入数组
saRet.Create(VT_BSTR, 2, numElements); //创建所需的数组
range = sheet.get_Range(COleVariant( _T("A1 ")),covOptional); //从A2开始
range = range.get_Resize(COleVariant((short)m_rows),COleVariant((short)m_cols)); //表的区域
long index[2];
for( iRow = 1; iRow <= m_rows; iRow++)//将列表内容写入EXCEL
{
for ( iCol = 1; iCol <= m_cols; iCol++)
{
index[0]=iRow-1;
index[1]=iCol-1;
CString szTemp;
szTemp = m_devWizard.GetItemText(iRow-1,iCol-1);
BSTR bstr = szTemp.AllocSysString(); //The AllocSysString method allocates a new BSTR string that is Automation compatible
saRet.PutElement(index,bstr); //把m_list控件中的内容放入saRet
SysFreeString(bstr);
}
}
range.put_Value2(COleVariant(saRet)); //将得到的数据的saRet数组值放入表格
book.SaveCopyAs(COleVariant(cStrFile)); //保存到cStrFile文件
book.put_Saved(true);
books.Close();
book.ReleaseDispatch();
books.ReleaseDispatch();
app.ReleaseDispatch();
app.Quit();
AfxMessageBox(_T("Excel 导出成功!"));