菜鸟在线求助！

Question

Private Sub Form_Load()
    Dim a As Double
    Dim exlapp1 As Object
    Timer1.Enabled = False
    Set exlapp1 = GetObject("c:\perflogs\book1.csv")
    Set exlapp1 = GetObject(, "excel.application")
    If exlapp1 Is Nothing Then
    MsgBox "nothing"
    Else
    For i = 1 To 19
        m_sum1(i) = 0
        m_sumsquares1(i) = 0
    Next i
    For i = 2 To 61
        For j = 1 To 19
            a = exlapp1.activeworkbook.activesheet.cells(i, j + 1).Value
            Text1.Text = a
            m_sum1(j) = m_sum1(j) + a 'exlapp1.activeworkbook.activesheet.cells(i, j + 1).Value
            m_sumsquares1(j) = m_sumsquares1(j) + a ^ 2 'exlapp1.activeworkbook.activesheet.cells(i, j + 1).Value ^ 2
        Next j
    Next i
    For i = 1 To 19
        m_mean1(i) = m_sum1(i) / 60
        m_stdev1(i) = Sqr(m_sumsquares1(i) / 59 - m_mean1(i) ^ 2)
    Next i
    
    End If
End SubPrivate Sub Timer1_Timer()
    MsgBox "in timer!"
    Set exlapp2 = GetObject("c:\perflogs\book2.csv")
    Set exlapp2 = GetObject(, "excel.application")
    
    For i = 1 To 19
        m_sum2(i) = 0
        m_sumsquares2(i) = 0
    Next i
    For i = 2 To 61
        For j = 1 To 19
            m_sum2(j) = m_sum2(j) + exlapp2.activeworkbook.activesheet.cells(i, j + 1).Value
            m_sumsquares2(j) = m_sumsquares2(j) + exlapp2.activeworkbook.activesheet.cells(i, j + 1).Value ^ 2
        Next j
    Next i
    For i = 1 To 19
        m_mean2(i) = m_sum2(i) / 60
        m_stdev2(i) = Sqr(m_sumsquares2(i) / 59 - m_mean2(i) ^ 2)
    Next i还是多附一些程序，这样可能能看清楚一些！
先谢过各位大虾了。万分感谢！