excel应用问题！急！在线等待！！！！！！！！！！！

大侠们：  
          我现在要用vb将数据导入到excel中！  
          但是，报表要求有表格！我不知道，那个线怎么画！请大家，帮帮忙！ 问题点数：20、回复次数：4Top

1 楼sbg（宝宝酥）回复于 2004-05-05 12:09:27 得分 0

先用excel作好一个模板，  
   
  Top

2 楼onlineboy（头疼中，时间不够用，而且冲突）回复于 2004-05-05 12:12:44 得分 20

同意楼上的  
  或者在excel里录制画边框的宏，然后把代码复制到程序中去即可。Top

3 楼suntt（两条腿的狗）回复于 2004-05-05 12:29:07 得分 0

同意，用excel做好模板Top

4 楼leolan（史留香）回复于 2004-05-05 12:45:02 得分 0

Private   Sub   SetLine(ByVal   strStart   As   String,   ByVal   strEnd   As   String,   ByVal   xlsWS   As   Excel.Worksheet)  
   
          Dim   i   As   Integer  
           
          With   xlsWS.Range(strStart   &   ":"   &   strEnd)  
                  On   Error   Resume   Next  
                  For   i   =   7   To   12  
                          .Borders(i).LineStyle   =   xlContinuous  
                  Next  
  '                 .Borders(xlEdgeLeft).LineStyle   =   xlContinuous  
  '                 .Borders(xlEdgeTop).LineStyle   =   xlContinuous  
  '                 .Borders(xlEdgeBottom).LineStyle   =   xlContinuous  
  '                 .Borders(xlEdgeRight).LineStyle   =   xlContinuous  
  '                 .Borders(xlInsideVertical).LineStyle   =   xlContinuous  
  '                 .Borders(xlInsideHorizontal).LineStyle   =   xlContinuous  
          End   With          
   
  End   SubTop

相关问题

• excel
• xlcontinuous
• linestyle
• borders
• byval

• 帖主：liu_hand
• onlineboy

• Visual Basic类图书
• Visual Basic类源码下载