• <ins id="pjuwb"></ins>
    <blockquote id="pjuwb"><pre id="pjuwb"></pre></blockquote>
    <noscript id="pjuwb"></noscript>
          <sup id="pjuwb"><pre id="pjuwb"></pre></sup>
            <dd id="pjuwb"></dd>
            <abbr id="pjuwb"></abbr>

            VC操作Excel時SaveAs另存為時選擇保存時警告處理

            如何自動執行將 Excel 工作表保存為 HTML 文件中使用 Visual c + +

            http://support.microsoft.com/kb/199691/zh-cn





            VC操作Excel,當用SaveAs保存Excel時,如果待保存路徑下已經存在該Excel,則會彈出一個對話框提示你當前路徑下已經存在該Excel,是否替換,下面有三個按鈕:“是”、“否”、“取消”。如果選擇了“取消”則會彈出一個錯誤警告對話框。

            可以按照如下方法解決這個問題:在SaveAs之前添加代碼: _Application ExcelApp; ExcelApp.SetAlertBeforeOverwriting(FALSE); ExcelApp.SetDisplayAlerts(FALSE);  

            在Office2003版Office所生成的Excel.cpp文件中,類_Workbook的SaveAs函數,其函數原型如下:     void   SaveAs(const   VARIANT&   Filename,       const   VARIANT&   FileFormat,       const   VARIANT&   Password,       const   VARIANT&   WriteResPassword,       const   VARIANT&   ReadOnlyRecommended,       const   VARIANT&   CreateBackup,       long   AccessMode,       const   VARIANT&   ConflictResolution,       const   VARIANT&   AddToMru,       const   VARIANT&   TextCodepage,       const   VARIANT&   TextVisualLayout,       const   VARIANT&   Local);

            參數含義參考如下:   Question:       Nothing   like   trying   to   learn/teach   yourself   something   new   to   make   you   humble.   Winbatch   99p,   Excel   97.       I'm   loading   a   tab   delimited   file   {M:\somedir\myfile.txt}   into   Excel   using   OLE   to   manipulate   it   some   &   want   to   save   it   as   an   Excel   .xls   file   {M:\somedir\myfile.txt}.           I   can   get   the   file   to   save   under   the   new   name,   i.e.   with   the   .xls   extension   but   it's   still   in   tab   delimited   format,   NOT   Excel's   native   file   format.   The   following   is   from   a   macro   I   recorded   while   doing   the   action   I   want   to   automate:   ActiveWorkbook.SaveAs   FileName:="M:\TMI_Data\Processed\FEB00.xls",   FileFormat:=xlNormal,   Password:="",   WriteResPassword:="",   ReadOnlyRecommended:=False,   CreateBackup:=False           I   can   get   the   following   code   to   save   the   file   and   add   the   filename   to   the   MRU   list.           fileXL   ="M:\TMI_Data\Processed\FEB00.xls"         Awkbk=ObjXL.ActiveWorkbook       savefile=Awkbk.SaveAs   (fileXL)   ;   this   works           OR       savefile=Awkbk.SaveAs   (   fileXL,   ,   ,   ,   ,   ,@True   )   ;   this   works   the   @True   adds   the   file   to   the   MRU   list.         But,   whenever   I   try   to   insert   something   in   the   position   that   I   think   the   fileformat   stuff   is   supposed   to   go   I   get   1261   OLE   exception   errors   or   3250   OLE   Object   error   :   Problem   occurred   formatting   parameters.   I'm   wondering   if   it's   a   Named   parameter   ?   If   I'm   understanding   the   docs   correctly   (big   IF)   a   named   parameter   would   go   after   all   the   positional   parameters   ?   T/F   ?       I've   tried   a   lot   of   permutations   &   combinations   &   haven't   stumbled   up   on   something   that'll   work   yet.           How   does   one   differentiate   between   /tell   one   from   the   other   on   Named   vice   positional   parameters   ?   I've   looked   in   the   VBA   help   &   haven't   stumbled   onto   anything.           Answer:       Sounds   like   you   almost   have   it.   Positional   parameters   first,   then   the   ::   then   the   parameter=value   pairs   for   the   named   parameters.       Question   (cont'd):       I'm   just   not   grasping   something   here.       I've   tried   the   line   :           savefile=Awkbk.SaveAs   (   fileXL,   ,   ,   ,   ,   ,   ,   ,   ,   ,   ::FileFormat   =   "xlNormal")           with   0   to   10   commas   for   "positional   parameters"   between   the   "fileXL"   &   the   "::".       With   0   or   1   comma   I   get   1261   OLE   exception   Error   &   the   following   entry   from   wwwbatch.ini           [OLE   Exception]     Microsoft   Excel=Unable   to   get   the   SaveAs   property   of   the   Workbook   class         With   2   to   10   commas   I   get   NO   ERRORS,   BUT   while   it   saves   with   an   .xls   extension   it   is   still   Tab   delimited.       How   can   you   tell   if   a   parameter   is   a   "Named   Parameter"   ?           The   VBA   docs   make   the   stuff   all   look   like   "Positional   parameters"           Answer:       Maybe   there   are   three   required   parameters?           Maybe   xlNormal   is   not   a   tring   but   a   constant   and   we   have   to   figure   out   what   number   it   is?           Maybe   cut   and   paste   the   SaveAs   documentation   here   and   we   can   stare   at   it.           Bit   of   an   OLE   tip   that   I   found   a   bit   by   accident.       If   you   want   to   know   whether   something   is   a   string   or   a   constant,   do   it   in   VBA   -   in   this   case,   something   like           var=xlNormal         If   it   bombs   out,   it's   a   string.   If   it   doesn't,   it'll   return   a   value   for   you   to   plug   into   your   scripts.       Here's   the   docs   for   the   "SaveAs   Method"   clipped   direct   from   the   VBA   help   :   Saves   changes   to   the   sheet   (Syntax   1)   or   workbook   (Syntax   2)   in   a   different   file.       Syntax   1       expression.SaveAs(Filename,   FileFormat,   Password,   WriteResPassword,   ReadOnlyRecommended,   CreateBackup,   AddToMru,   TextCodePage,   TextVisualLayout)         Syntax   2     expression.SaveAs(Filename,   FileFormat,   Password,   WriteResPassword,   ReadOnlyRecommended,   CreateBackup,   AccessMode,   ConflictResolution,   AddToMru,   TextCodePage,   TextVisualLayout)         expression   Required.   An   expression   that   returns   a   Chart   or   Worksheet   object   (Syntax   1)   or   a   Workbook   object   (Syntax   2).       Filename   Optional   Variant.   A   string   that   indicates   the   name   of   the   file   to   be   saved.   You   can   include   a   full   path;   if   you   don't,   Microsoft   Excel   saves   the   file   in   the   current   folder.       FileFormat   Optional   Variant.   The   file   format   to   use   when   you   save   the   file.   For   a   list   of   valid   choices,   see   the   FileFormat   property.       Password   Optional   Variant.   A   case-sensitive   string   (no   more   than   15   characters)   that   indicates   the   protection   password   to   be   given   to   the   file.       WriteResPassword   Optional   Variant.   A   string   that   indicates   the   write-reservation   password   for   this   file.   If   a   file   is   saved   with   the   password   and   the   password   isn't   supplied   when   the   file   is   opened,   the   file   is   opened   as   read-only.       ReadOnlyRecommended   Optional   Variant.   True   to   display   a   message   when   the   file   is   opened,   recommending   that   the   file   be   opened   as   read-only.       CreateBackup   Optional   Variant.   True   to   create   a   backup   file.       AccessMode   Optional   Variant.   The   workbook   access   mode.   Can   be   one   of   the   following   XlSaveAsAccessMode   constants:   xlShared   (shared   list),   xlExclusive   (exclusive   mode),   or   xlNoChange   (don't   change   the   access   mode).   If   this   argument   is   omitted,   the   access   mode   isn't   changed.   This   argument   is   ignored   if   you   save   a   shared   list   without   changing   the   file   name.   To   change   the   access   mode,   use   the   ExclusiveAccess   method.       ConflictResolution   Optional   Variant.   Specifies   the   way   change   conflicts   are   resolved   if   the   workbook   is   a   shared   list.   Can   be   one   of   the   following   XlSaveConflictResolution   constants:   xlUserResolution   (display   the   conflict-resolution   dialog   box),   xlLocalSessionChanges   (automatically   accept   the   local   user's   changes),   or   xlOtherSessionChanges   (accept   other   changes   instead   of   the   local   user's   changes).   If   this   argument   is   omitted,   the   conflict-resolution   dialog   box   is   displayed.       AddToMru   Optional   Variant.   True   to   add   this   workbook   to   the   list   of   recently   used   files.   The   default   value   is   False.       TextCodePage   Optional   Variant.   Not   used   in   U.S.   English   Microsoft   Excel.       TextVisualLayout   Optional   Variant.   Not   used   in   U.S.   English   Microsoft   Excel.           Resolution:       GREAT   Tip   --   I   inserted   your   line   into   the   macro   &   then   stepped   thru   it.   It   returned   a   value   of   -4143.   I   plugged   it   into   the   command   like   so:       savefile=Awkbk.SaveAs   (   fileXL,   -4143   ,   ,   ,   ,   ,@True   )         and   SHAZAM   it   works   !   It   would   have   been   A   WHILE   before   I'd   have   stumbled   on   to   that.   Thanks   Again.

            參考鏈接: http://topic.csdn.net/t/20050121/15/3743958.html http://topic.csdn.net/t/20050324/11/3876932.html




            ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
            本人參考網上做法,利用模板實現了VC對EXCEL的操作,但是存在以下問題:

              1.第一次運行程序,點擊保存時沒問題,當第二次運行程序時,會彈出對話框,提示已經存在文件,是否替換(是、否、取消),當點擊“否”的時候會彈出警告對話框,程序中斷;
              2.程序運行后,第一次點擊保存時,不會出錯,接著再次點擊保存時,就會出現警告:無法找到模板......;即程序運行后不能實現多次保存。
              3.程序在關閉后,為何在任務管理器的進程里并沒有結束,即不能實現程序在后臺也關閉。
              以下是源代碼,有勞哪位大俠解惑!不勝感激!
              
              void CTEST::OnConnect()  
            {
             // TODO: Add your control notification handler code here
             _Application _app;
              _Workbook _workBook;
             _Worksheet _workSheet;
             Worksheets workSheets;
             Workbooks workBooks;
             Range range;
              _Application ExcelApp;  
             ExcelApp.SetAlertBeforeOverwriting(FALSE);  
             ExcelApp.SetDisplayAlerts(FALSE);   
            // LPDISPATCH lpDisp;
             char path[MAX_PATH];
             //VARIANT _variant_t;
             if (CoInitialize(NULL) != 0)
             {
              AfxMessageBox("初始化COM支持庫失敗!");
              exit(1);
             }  
              if(!_app.CreateDispatch("Excel.Application", NULL))
             {
              MessageBox("創建Excel服務失敗!", "信息提示", MB_OK);
              return ;
             }
             //利用模板建立新文檔
             _app.SetUserControl(true);
              //_app.SetVisible(true);
             CFileDialog fileDlg(false);
             fileDlg.m_ofn.lpstrFilter="Text Files(*.xls)\0ALL Files(*.*)\0*.*\0\0";
             fileDlg.m_ofn.lpstrDefExt="xls";
             GetCurrentDirectory(MAX_PATH,path);
             CString strPath=path;
             CString Path,Name;
             strPath+="\\模板";
              workBooks=_app.GetWorkbooks();
             _workBook=workBooks.Add(_variant_t(strPath));
              workSheets=_workBook.GetWorksheets();
             _workSheet=workSheets.GetItem(COleVariant((short)1));
             range=_workSheet.GetCells();
             range.SetItem(_variant_t((long)1), _variant_t((long)3), _variant_t("寫入數據了"));
             range.SetItem(_variant_t((long)2), _variant_t((long)3), _variant_t("寫入數據了"));
             range.SetItem(_variant_t((long)3), _variant_t((long)3), _variant_t("寫入數據了"));
             range.SetItem(_variant_t((long)4), _variant_t((long)3), _variant_t("寫入數據了"));  
             if(IDOK==fileDlg.DoModal())//這里實現“另存為”對話框
             {
              Path=fileDlg.GetPathName();
             Name=fileDlg.GetFileName();
             //保存數據   
             _workSheet.SaveAs(Path,vtMissing,vtMissing,vtMissing,vtMissing,
              vtMissing,vtMissing,vtMissing,vtMissing,vtMissing);
             ///////////////////////////////////////////////////////////////////////////////////////////////////
             }  
             range.ReleaseDispatch();
             _workSheet.ReleaseDispatch();
             workSheets.ReleaseDispatch();
             _workBook.ReleaseDispatch();
             workSheets.ReleaseDispatch();
             _app.ReleaseDispatch();
              _workBook.Close(vtMissing,COleVariant(Path),vtMissing);
             workBooks.Close();
             _app.Quit();
             CoUninitialize();
            }


            以上幾個問題已經解決,倒騰了一晚上。

            (1)將char path[MAX_PATH];
            GetCurrentDirectory(MAX_PATH,path);
             CString strPath=path;定義成全局變量,   

            (2)workBook.Close(vtMissing,COleVariant(Path),vtMissing);  

              改成_ COleVariant aver((long)DISP_E_PARAMNOTFOUND, VT_ERROR); workBook.Close(aver,COleVariant(Path),aver);

            這樣的話問題就解決了。




            posted on 2010-10-15 10:16 wrh 閱讀(6642) 評論(0)  編輯 收藏 引用

            導航

            <2010年10月>
            262728293012
            3456789
            10111213141516
            17181920212223
            24252627282930
            31123456

            統計

            常用鏈接

            留言簿(19)

            隨筆檔案

            文章檔案

            收藏夾

            搜索

            最新評論

            閱讀排行榜

            評論排行榜

            久久只这里是精品66| 久久精品九九亚洲精品| 99久久精品国产一区二区| 91久久精品91久久性色| 国产精品久久久久AV福利动漫| 99精品久久精品| 久久精品国产福利国产琪琪| 国内精品久久久久影院亚洲 | 99麻豆久久久国产精品免费| 99久久久精品免费观看国产| 88久久精品无码一区二区毛片| 国产精品久久久久久久久久免费| 亚洲欧洲精品成人久久奇米网| 久久久久高潮毛片免费全部播放| 精品熟女少妇a∨免费久久| 国产精品丝袜久久久久久不卡| 日日狠狠久久偷偷色综合96蜜桃 | 久久99精品国产99久久6| 亚洲精品国产综合久久一线| 久久久久成人精品无码中文字幕 | 久久精品a亚洲国产v高清不卡| 国产精品久久久久乳精品爆| 色妞色综合久久夜夜| 国产精品gz久久久| 精品久久人妻av中文字幕| 久久久精品国产Sm最大网站| 精品久久久久久成人AV| 久久国内免费视频| 久久996热精品xxxx| 国产人久久人人人人爽| 久久人人爽人人爽人人片AV高清| 久久久久一级精品亚洲国产成人综合AV区| 久久久久久精品成人免费图片| 久久精品国产只有精品66| 久久精品一区二区| 精品国产福利久久久| 日产精品久久久久久久| 久久人妻AV中文字幕| 久久精品卫校国产小美女| 亚洲国产成人久久综合野外| 久久一区二区免费播放|