0
调试完成了VC读写Excel文件的控件
2011-11-11 22:30:14 PCinstrument 浏览:2611次 【

extern "C" int PASCAL EXPORT SaveExcelFile(MzFileStruct MzF)
{
 long nIndex,nTemp2;
 CString sSql,sBak,sFileTxt;
 CDatabase database;
 char sDriver[40];
 HCURSOR hOldCursor;
 int nNumberOfX,nNumberOfY,nNumberOfZ,nStepX,nStepY,nStepZ,nStartX,nStartY,nStartZ,nTemp4;
 double fTemp1=0.001;
 nNumberOfX=MzF.nNumberOfX;
 nNumberOfY=MzF.nNumberOfY;
 nNumberOfZ=MzF.nNumberOfZ;
 nStepX=MzF.nStepX;
 nStepY=MzF.nStepY;
 nStepZ=MzF.nStepZ;

 nStartX=MzF.nStartX;
 nStartY=MzF.nStartY;
 nStartZ=MzF.nStartZ;
 
 for(int i=0;i<MzF.nGain;i++)
  fTemp1/=10.0;
 if(GetExcelDriver(sDriver))
 {
  MessageBox(NULL,"请安装ODBC数据库驱动.","",MB_OK);
  return 1;
 }
 if(MzF.nTableIndex==0)
 {
  CFileDialog cSaveAs(FALSE,"xls",NULL,OFN_OVERWRITEPROMPT,"EXCEL文件(*.xls)|*.xls|");
  if(cSaveAs.DoModal()!=IDOK)
   return 1;
  sFile=cSaveAs.GetPathName();
  DeleteFile(sFile);
 }

 hOldCursor=GetCursor();
 SetCursor(LoadCursor(NULL,IDC_WAIT));
// sSql.Format("DRIVER={%s};DSN='';FIRSTROWHASNAMES=7;READONLY=FALSE;CREATE_DB=\"%s\";DBQ=%s",sDriver, sFile, sFile);
 sSql.Format("DRIVER={%s};DSN='';FIRSTROWHASNAMES=7;READONLY=FALSE;CREATE_DB=\"%s\";DBQ=%s",sDriver, sFile, sFile);
// MessageBox(NULL,sSql,sSql,MB_OK);
 TRY{
  if( database.OpenEx(sSql,CDatabase::noOdbcDialog) )
  {
   if(MzF.nScanType==SECTION_TYPE_XY)
   {
    sSql.Format("CREATE TABLE Z%d ( 序号 LONG,Y坐标 SMALLINT",MzF.nSheetNum);
   }
   else if(MzF.nScanType==SECTION_TYPE_XZ)
   {

0 条评论
查看更多评论
  •     实在不好意思,小弟初来乍到,没有什么贡献给大家的,还得给大家添麻烦,请先辈多多体谅!    现在要做一个汽车油表盘,就是360度那..

    浏览:3925次 评论:0
    2014-09-16 00:16:25
作者专栏
  • NNN

    注册时间:2024-12-23 09:48:46

  • sltang

    注册时间:2024-12-21 15:45:59

  • samhuang63

    注册时间:2024-12-20 09:42:58

  • csq663347

    注册时间:2024-12-05 16:34:39

  • guohuiming

    注册时间:2024-11-14 08:49:44

Copyright@http://nilab.com.cn all rights reserved 备案号:京ICP备12043750号-1
Powered by qibosoft V9.0 Code © 2003-2017 qibosoft
LABVIEW之家 QQ:181237912; email:Labviewzj@qq.com 项目合作 微信及手机:18510627229