La deschiderea Excel, se executa urmatorul cod:

On Error GoTo Workbook_Open_Error
    Dim cv As clsValori
    Set cv = New clsValori
    Dim ew As Worksheet
    Set ew = ActiveWorkbook.Sheets("Valori")
    Dim iRow As Integer
    iRow = 2
    While (Len(ew.Range("A" & iRow).Text) > 0)
        Dim strVal As String
        strVal = cv.GetValue(ew.Range("A" & iRow).Text, DateTime.Now)
        If Len(strVal) > 0 Then
            ew.Range("B" & iRow).Value = strVal
        Else
            ew.Range("C" & iRow).Value = "aveti probleme cu conexiunea internet..."
        End If
        iRow = iRow + 1
    Wend
    
    Exit Sub
Workbook_Open_Error:
    MsgBox "Eroare:" & Err.Description, vbCritical
End Sub

Puteti downloada aplicatia de aici