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

Question

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

Answer 1

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

Answer 2

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 Sub