求和单元格

Option Explicit

Function SumOfA1s( _
    ByVal WorkbookPath As String, _
    ByVal FirstWorksheetName As String, _
    ByVal LastWorksheetName As String) _
As Double
    Const PROC_TITLE As String = "Sum of A1s"
    On Error GoTo ClearError
    
    Dim wb As Workbook: Set wb = Workbooks.Open(WorkbookPath)
    
    Dim First As Long: First = wb.Worksheets(FirstWorksheetName).Index
    Dim Last As Long: Last = wb.Worksheets(LastWorksheetName).Index
    
    If First > Last Then
        MsgBox "The start date cannot be later than the end date!", _
            vbExclamation, PROC_TITLE
        Goto ProcExit
    End If
    
    Dim Value, i As Long, Result As Double
    
    For i = First To Last
        Value = wb.Worksheets(i).Range("A1").Value
        If IsNumeric(Value) Then
            Result = Result + Value
        End If
    Next i
    
    SumOfA1s = Result

ProcExit:
    On Error Resume Next
        If Not wb Is Nothing Then
            wb.Close SaveChanges:=False
        End If
    On Error GoTo 0
    Exit Function
ClearError:
    MsgBox "Run-time error '" & Err.Number & "':" _
        & vbLf & vbLf & Err.Description, vbCritical, PROC_TITLE
    Resume ProcExit
End Function