posts - 25,  comments - 25,  trackbacks - 0

                為了能使得輸出到Excel中的數據顯示表格,可以調用事先設置好的模板,但是不靈活。我花了一個中午的時間摸索出如何設置它了。

                具體代碼如下:

           LPDISPATCH pRange;
           CString   cell;
           int   c,c1,c2;

           _variant_t  vRange1;   // 設置單元格的線;
           _variant_t  vRange2;
           _variant_t  vRange3;
           _variant_t  vRange4;

             c='A';
             c1=j/26;
             c2=j%26;
             if(c1==0)
              cell.Format("%c%d",c2+c,i+1); // i+1 :表示從第二行開始關聯
             else
              cell.Format("%c%c%d",c1+c-1,c2+c-1,i+1);

           VERIFY(pRange = m_worksheet.GetRange(COleVariant(cell)));
             m_range.AttachDispatch(pRange);
             //對齊方式
             Var.vt = VT_I2;
             Var.iVal=-4108;
             m_range.SetHorizontalAlignment(Var);
             m_range.SetVerticalAlignment(Var);
             //
             // 設置單元格的線;
             vRange1.vt =VT_I2;
             vRange1.lVal =1;   // 線的樣式:0- no line; 1-solid; 2-big dot;3-small dot;4-dash dot; 5-dash dot dot;
             vRange2.vt =VT_I2;
             vRange2.lVal =3;  // 線的粗細程度;
             vRange3.vt =VT_I2;
             vRange3.lVal =1;   // 1-black;2-white;3-red;4-green;5-blue; 6-yellow; 7-pink;8-dark blue;
             vRange4.vt = VT_UI4;
             vRange4.uintVal =RGB(0,0,0);  // 我測試后認為,沒有實際意義,只有vRange3起作用
             m_range.BorderAround(vRange1,vRange2,vRange3,vRange4);
             //
             //
             strValue=m_book.GetTextRC(i,j+2);
             strValue.TrimLeft(" ");
             strValue.TrimRight(" ");  
             if(!strValue.IsEmpty())
             {
              m_range.SetValue(COleVariant(strValue));
             }
             m_range.ReleaseDispatch();

          //

           雖然沒有什么高深的技術含量,只是為了讓后面需要的人少走點彎路。

          不當之處,還望指正。

          posted on 2005-05-25 10:04 子玉 閱讀(842) 評論(1)  編輯  收藏

          FeedBack:
          # re: VC下設置Excel單元格的邊框 (轉)[未登錄]
          2008-05-04 15:19 | tony
          將原來的文件刪去就不會出現另存為對話框了,用CFileFind  回復  更多評論
            

          只有注冊用戶登錄后才能發表評論。


          網站導航:
           
          <2005年5月>
          24252627282930
          1234567
          891011121314
          15161718192021
          22232425262728
          2930311234

          常用鏈接

          留言簿(7)

          隨筆檔案

          搜索

          •  

          最新評論

          閱讀排行榜

          評論排行榜

          主站蜘蛛池模板: 任丘市| 秦皇岛市| 大同县| 文化| 门头沟区| 泾阳县| 德阳市| 阳原县| 北碚区| 临夏县| 梁山县| 平果县| 隆昌县| 扶风县| 武安市| 桦甸市| 黄骅市| 临沭县| 太湖县| 平度市| 安福县| 水城县| 井研县| 泰兴市| 山西省| 新龙县| 喜德县| 铜陵市| 安平县| 文昌市| 辽源市| 万山特区| 防城港市| 海兴县| 郧西县| 安龙县| 阿瓦提县| 太仓市| 永川市| 邻水| 仁布县|