如何控制输出到excel的表格，我现在是把数据给予输过去了，如何控制能把这单元格之间能画出线呢？？？/？

Question

'表格头
    .Cells(12, 1).Borders(xlEdgeBottom).LineStyle = xlContinuous
    .Cells(12, 1).Borders(xlEdgeBottom).Weight = xlMedium
    .Cells(12, 2).Borders(xlEdgeBottom).LineStyle = xlContinuous
    .Cells(12, 2).Borders(xlEdgeBottom).Weight = xlMedium
    .Cells(12, 3).Borders(xlEdgeBottom).LineStyle = xlContinuous
    .Cells(12, 3).Borders(xlEdgeBottom).Weight = xlMedium
    .Cells(12, 4).Borders(xlEdgeBottom).LineStyle = xlContinuous
    .Cells(12, 4).Borders(xlEdgeBottom).Weight = xlMedium
    .Cells(12, 5).Borders(xlEdgeBottom).LineStyle = xlContinuous
    .Cells(12, 5).Borders(xlEdgeBottom).Weight = xlMedium

Answer 1

你可以这样：
  With newsheet.Shapes.AddLine(15, 469, 710, 469).Line
    .ForeColor.RGB = RGB(0, 0, 0)
  End With

Answer 2

oSheet.Cells(10 , 6).Borders(xlEdgeBottom).Weight = xlThin
        oSheet.Cells(10 , 6).Borders(xlEdgeTop).Weight = xlThin
        oSheet.Cells(10 , 6).Borders(xlEdgeLeft).Weight = xlThin
        oSheet.Cells(10 , 6).Borders(xlEdgeRight).Weight = xlThin