24小时热门版块排行榜    

查看: 128  |  回复: 0
当前主题已经存档。

zsglly

木虫 (著名写手)

[交流] VC下设置Excel单元格的边框

为了能使得输出到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();

//  

虽然没有什么高深的技术含量,只是为了让后面需要的人少走点弯路。

不当之处,还望指正。

[ Last edited by 幻影无痕 on 2006-11-27 at 08:15 ]
回复此楼
做人要厚道啊!厚道啊!
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 zsglly 的主题更新
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 26考研报考西工大材料308分求调剂 +4 weizhong123 2026-03-01 4/200 2026-03-02 12:46 by 无际的草原
[考研] 085600 英一数二272求调剂 5+4 vida_a 2026-03-01 10/500 2026-03-02 12:33 by vida_a
[考研] 化工270求调剂 +7 什么名字qwq 2026-03-02 7/350 2026-03-02 11:26 by yuchj
[基金申请] 此成果不能导入原因:元数据必填信息不完整,可 进行补充。 +4 Kittylucky 2026-03-02 5/250 2026-03-02 11:07 by jurkat.1640
[考研] 求调剂 +8 yunziaaaaa 2026-03-01 9/450 2026-03-02 11:03 by 黑!在干嘛
[考研] 化工专硕342,一志愿大连理工大学,求调剂 +6 kyf化工 2026-02-28 7/350 2026-03-02 10:56 by 无际的草原
[考研] 274求调剂 +3 cgyzqwn 2026-03-01 7/350 2026-03-02 10:38 by lature00
[考研] 欢迎采矿、地质、岩土、计算机、人工智能等专业的同学报考 +5 pin8023 2026-02-28 7/350 2026-03-02 10:33 by ZY,先生
[考研] 材料类求调剂 +11 wana_kiko 2026-02-28 14/700 2026-03-02 08:46 by 聪明的大松鼠
[考研] 322求调剂 +3 熊境喆 2026-03-01 3/150 2026-03-02 08:44 by houyaoxu
[基金申请] 本子写完了,给DS兄弟看了,得了92分 +3 Doma 2026-03-01 7/350 2026-03-02 00:00 by jnzsy
[考研] 313求调剂 +3 水流年lc 2026-02-28 3/150 2026-03-01 16:01 by 新能源达人
[考研] 304求调剂 +6 曼殊2266 2026-02-28 7/350 2026-03-01 15:14 by wjLi2017
[考研] 材料284求调剂,一志愿郑州大学英一数二专硕 +10 想上岸的土拨鼠 2026-02-28 10/500 2026-03-01 14:12 by yc258
[考研] 302材料工程求调剂 +4 Doleres 2026-03-01 5/250 2026-03-01 11:52 by liqiongjy
[考研] 调剂 +3 简木ChuFront 2026-02-28 3/150 2026-03-01 11:46 by 王伟要上岸啊
[考研] 317一志愿华南理工电气工程求调剂 +6 Soliloquy_Q 2026-02-28 11/550 2026-03-01 11:14 by 歌liekkas
[论文投稿] 求助coordination chemistry reviews 的写作模板 10+3 ljplijiapeng 2026-02-27 4/200 2026-03-01 09:07 by babero
[论文投稿] Optics letters投稿被拒求助 30+3 luckyry 2026-02-26 4/200 2026-03-01 09:06 by babero
[高分子] 求环氧树脂研发1名 +3 孙xc 2026-02-25 11/550 2026-02-28 16:57 by ichall
信息提示
请填处理意见