VC驿站

 找回密码
 加入驿站

QQ登录

只需一步,快速开始

搜索
查看: 135|回复: 0

[交流] CList导出Excel,和打印功能——转

[复制链接]
82_avatar_middle
online_vip 发表于 2018-6-8 10:16:21 | 显示全部楼层 |阅读模式
/*****************************************************************************************
// 参数:
//  pList  需要导出的List控件指针
//  strTitle 导出的数据表标题
// 说明:
//  导出CListCtrl控件的全部数据到Excel文件。Excel文件名由用户通过“另存为”
//  对话框输入指定。创建名为strTitle的工作表,将List控件内的所有数据(包括
//  列名和数据项)以文本的形式保存到Excel工作表中。保持行列关系。
/*****************************************************************************************/
void ExportListToExcel(CListCtrl* pList, CString strTitle)
{
CString warningStr;
if (pList->GetItemCount ()>0) {
  CDatabase database;
  CString sDriver;
  CString sExcelFile;
  CString sSql;
  CString tableName = strTitle;
  
  // 检索是否安装有Excel驱动 "Microsoft Excel Driver (*.xls)"
  sDriver = GetExcelDriver();
  if (sDriver.IsEmpty())
  {
   // 没有发现Excel驱动
   AfxMessageBox("没有安装Excel!/n请先安装Excel软件才能使用导出功能!");
   return;
  }
  
  ///默认文件名
  if (!GetDefaultXlsFileName(sExcelFile))
   return;
  
  // 创建进行存取的字符串
  sSql.Format("DRIVER={%s};DSN='';FIRSTROWHASNAMES=1;READONLY=FALSE;CREATE_DB=/"%s/";DBQ=%s",sDriver, sExcelFile, sExcelFile);
  
  // 创建数据库 (既Excel表格文件)
  if( database.OpenEx(sSql,CDatabase::noOdbcDialog) )
  {
   // 创建表结构
   int i;
   LVCOLUMN columnData;
   CString columnName;
   int columnNum = 0;
   CString strH;
   CString strV;

   sSql = "";
   strH = "";
   columnData.mask = LVCF_TEXT;
   columnData.cchTextMax =100;
   columnData.pszText = columnName.GetBuffer (100);
   for(i=0;pList->GetColumn(i,&columnData);i++)
   {
    if (i!=0)
    {
     sSql = sSql + ", " ;
     strH = strH + ", " ;
    }
    sSql = sSql + " " + columnData.pszText +" TEXT";
    strH = strH + " " + columnData.pszText +" ";
   }
   columnName.ReleaseBuffer ();
   columnNum = i;

   sSql = "CREATE TABLE " + tableName + " ( " + sSql +  " ) ";
   database.ExecuteSQL(sSql);
   
   // 插入数据项
   int nItemIndex;
   for (nItemIndex=0;nItemIndex<pList->GetItemCount ();nItemIndex++){
    strV = "";
    for(i=0;i<columnNum;i++)
    {
     if (i!=0)
     {
      strV = strV + ", " ;
     }
     strV = strV + " '" + pList->GetItemText(nItemIndex,i) +"' ";
    }
   
    sSql = "INSERT INTO "+ tableName
     +" ("+ strH + ")"
     +" VALUES("+ strV + ")";
    database.ExecuteSQL(sSql);
   }
   
  }      
  
  // 关闭数据库
  database.Close();
   
  warningStr.Format("导出文件保存于%s!",sExcelFile);
  AfxMessageBox(warningStr);
}
}
BOOL GetDefaultXlsFileName(CString& sExcelFile)
{
///默认文件名:yyyymmddhhmmss.xls
CString timeStr;
CTime day;
day=CTime::GetCurrentTime();
int filenameday,filenamemonth,filenameyear,filehour,filemin,filesec;
filenameday=day.GetDay();//dd
filenamemonth=day.GetMonth();//mm月份
filenameyear=day.GetYear();//yyyy
filehour=day.GetHour();//hh
filemin=day.GetMinute();//mm分钟
filesec=day.GetSecond();//ss
timeStr.Format("%04d%02d%02d%02d%02d%02d",filenameyear,filenamemonth,filenameday,filehour,filemin,filesec);

sExcelFile =  timeStr + ".xls";
// prompt the user (with all document templates)
CFileDialog dlgFile(FALSE,".xls",sExcelFile);
CString title;
CString strFilter;

title = "导出";
strFilter = "Excel文件(*.xls)";
strFilter += (TCHAR)'/0';   // next string please
strFilter += _T("*.xls");
strFilter += (TCHAR)'/0';   // last string
dlgFile.m_ofn.nMaxCustFilter++;
dlgFile.m_ofn.nFilterIndex = 1;
// append the "*.*" all files filter
CString allFilter;
VERIFY(allFilter.LoadString(AFX_IDS_ALLFILTER));
strFilter += allFilter;
strFilter += (TCHAR)'/0';   // next string please
strFilter += _T("*.*");
strFilter += (TCHAR)'/0';   // last string
dlgFile.m_ofn.nMaxCustFilter++;

dlgFile.m_ofn.lpstrFilter = strFilter;
dlgFile.m_ofn.lpstrTitle = title;

if (dlgFile.DoModal()==IDCANCEL)
  return FALSE; // open cancelled
sExcelFile.ReleaseBuffer();
if (MakeSurePathExists(sExcelFile,true))
{
  if(!DeleteFile(sExcelFile)) // delete the file
  {   
   AfxMessageBox("覆盖文件时出错!");
   return FALSE;
  }
  
   
}
sExcelFile=dlgFile.GetPathName();

return TRUE;
}
/****************************************************************************************/
//名称:GetExcelDriver
//功能:获取ODBC中Excel驱动
//作者:徐景周(jingzhou_xu@163.net)
//组织:未来工作室(Future Studio)
//日期:2002.9.1
/****************************************************************************************/
CString GetExcelDriver()
{
    char szBuf[2001];
    WORD cbBufMax = 2000;
    WORD cbBufOut;
    char *pszBuf = szBuf;
    CString sDriver;

    // 获取已安装驱动的名称(涵数在odbcinst.h里)
    if (!SQLGetInstalledDrivers(szBuf, cbBufMax, &cbBufOut))
        return "";
   
    // 检索已安装的驱动是否有Excel...
    do
    {
        if (strstr(pszBuf, "Excel") != 0)
        {
            //发现 !
            sDriver = CString(pszBuf);
            break;
        }
        pszBuf = strchr(pszBuf, '/0') + 1;
    }
    while (pszBuf[1] != '/0');

    return sDriver;
}

/****************************************************************************************/
// BOOL MakeSurePathExists( CString &Path,bool FilenameIncluded)
// 参数:
//  Path    路径
//  FilenameIncluded 路径是否包含文件名
// 返回值:
//  文件是否存在
// 说明:
//  判断Path文件(FilenameIncluded=true)是否存在,存在返回TURE,不存在返回FALSE
//  自动创建目录
//
/****************************************************************************************/
BOOL MakeSurePathExists( CString &Path,bool FilenameIncluded)
{
int Pos=0;
while((Pos=Path.Find('//',Pos+1))!=-1)
  CreateDirectory(Path.Left(Pos),NULL);
if(!FilenameIncluded)
  CreateDirectory(Path,NULL);
// return ((!FilenameIncluded)?!_access(Path,0):
// !_access(Path.Left(Path.ReverseFind('//')),0));

return !_access(Path,0);
}
   
/****************************************************************************************/
//  BOOL   PrintListCtrl(CListCtrl   &list)  
// 参数:
//  list    需要打印的列表控件
// 返回值:
//  TRUE:    打印成功
//  FALSE:    打印失败
/****************************************************************************************/
BOOL   PrintListCtrl(CListCtrl   &list)   
  {   
   PRINTDLG   pd;   
   pd.lStructSize   =   sizeof(PRINTDLG);   
   pd.Flags   =   PD_RETURNDC;   
   pd.hDC   =   NULL;   
   pd.hwndOwner   =   NULL;   
   pd.hInstance   =   NULL;   
   pd.nMaxPage   =   1;   
   pd.nMinPage   =   1;   
   pd.nFromPage   =   1;   
   pd.nToPage   =   1;   
   pd.nCopies   =   1;   
   pd.hDevMode   =   NULL;   
   pd.hDevNames   =   NULL;   
   //显示打印对话框,由用户来设定纸张大小等。   
   if(!PrintDlg(&pd))   return   FALSE;   
   ASSERT(pd.hDC!=NULL);   
   int   nHorRes   =   GetDeviceCaps(pd.hDC,   HORZRES);   
   int   nVerRes   =   GetDeviceCaps(pd.hDC,   VERTRES);   
   int   nXMargin   =   2;   
   int   nYMargin   =   2;   
   TEXTMETRIC   tm;   
   GetTextMetrics(pd.hDC,   &tm);   
   int   nCharHeight   =   tm.tmHeight;   
   int   nCharWidth   =   tm.tmAveCharWidth;   
   CHeaderCtrl*   pHeader   =   list.GetHeaderCtrl();   
   //获得行,列的个数   
   int   nColCount   =   pHeader->GetItemCount();   
   int   nLineCount   =   list.GetItemCount();   
   int   ColOrderArray[100];   
   COLATT   ca[100];   
   list.GetColumnOrderArray(ColOrderArray,   nColCount);   
   int   nColX   =nXMargin*nCharWidth;   
   //检索各列的信息,确定列标题的内容长度。   
   for(int   i   =0   ;   i<   nColCount;   i++)   
   {   
    ca.nColIndex   =   ColOrderArray;   
    LVCOLUMN   lvc;   
    char   text[100];   
    lvc.mask   =   LVCF_TEXT|LVCF_SUBITEM;   
    lvc.pszText   =   text;   
    lvc.cchTextMax   =   100;   
    list.GetColumn(ca.nColIndex,   &lvc);   
    ca.strColText   =   lvc.pszText;   
    ca.nSubItemIndex   =   lvc.iSubItem;   
    ca.nPrintX   =   nColX;   
    nColX   +=   nCharWidth   *   strlen(ca.strColText);   
    if(nColX   >   nHorRes)   
    {   
     DeleteDC(pd.hDC);   
     AfxMessageBox("字段太多,无法在一行内打印,请试用较大的纸,或横向打印。");   
     return   FALSE;   
    }   
   }   
   DOCINFO   di;   
   di.cbSize   =   sizeof(DOCINFO);   
   di.lpszDocName   =   "ListCtrl   Data   Printing";   
   di.lpszOutput   =   (LPTSTR)   NULL;   
   di.lpszDatatype   =   (LPTSTR)   NULL;   
   di.fwType   =   0;   
   StartDoc(pd.hDC,   &di);   
   StartPage(pd.hDC);   
   //调整各列的宽度,以使各列在后面的打印输出时更均匀的打印在纸上。   
   int   space   =   (nHorRes-nXMargin*nCharWidth-nColX)   /   (nColCount   -1);   
   for(int i  =1;   i<nColCount;   i++)   
   {   
  ca.nPrintX   +=   i*space;   
   }   
   //输出列标题   
   for(int i  =0;   i<nColCount;   i++)   
   {
    TextOut(pd.hDC,   ca.nPrintX,   nYMargin,   
    ca.strColText,   strlen(ca.strColText));   
   }
   int   nMaxLinePerPage   =   nVerRes/nCharHeight   -3;   
   int   nCurPage   =1;   
   //输出各列的数据   
   for(int i=0;   i<nLineCount;   i++)   
   {   
    for(int   j   =0;   j<nColCount;   j++)   
    {   
     if(i+1-(nCurPage-1)*nMaxLinePerPage   >   nMaxLinePerPage)   
     {   
     //新的一页   
     EndPage(pd.hDC);   
     StartPage(pd.hDC);   
     nCurPage   ++;   
     }   
    CString   subitem   =   list.GetItemText(i,   ca[j].nSubItemIndex);   
    TextOut(pd.hDC,   ca[j].nPrintX,nYMargin+(i+1-(nCurPage-1)*nMaxLinePerPage)*nCharHeight,subitem,   strlen(subitem));   
    }   
   }   
   EndPage(pd.hDC);   
   EndDoc(pd.hDC);   
   //打印结束   
   DeleteDC(pd.hDC);   
   return   TRUE;   
  }




上一篇:VS2013减小MFC对话框生成的EXE体积
下一篇:有没有接活的 大神来
您需要登录后才可以回帖 登录 | 加入驿站 qq_login

本版积分规则

关闭

站长提醒上一条 /2 下一条

QQ|小黑屋|手机版|VC驿站 ( 辽ICP备09019393号tongdun|网站地图wx_jqr

GMT+8, 2019-7-22 08:11

Powered by Discuz! X3.4

© 2009-2019 cctry.com

快速回复 返回顶部 返回列表