程序代码：

Private Sub ComboTime_GotFocus(Index As Integer)
Dim First As String, Second As String
Dim i As Integer, year As Integer

    ComboTime(Index).Clear
    
    Set rs = New ADODB.Recordset
    rs.Open "SELECT " + Title(3) + " FROM [" & SheetName & "$] group by " + Title(3), cn, adOpenStatic
    
    For i = 0 To rs.RecordCount - 1
        If Index = 0 Then
            If i = 0 Then
                ComboTime(Index).AddItem " "
                First = Mid$(rs.Fields.Item(Title(3)), 1, 4)
            ElseIf i = rs.RecordCount - 1 Then
                Second = Mid$(rs.Fields.Item(Title(3)), 1, 4)
            End If
        Else
            If ComboTime(0).Text <> "" Then
                year = CInt(ComboTime(0).Text)
                If i = 0 Then
                    ComboTime(Index).AddItem " "
                End If
                If Mid$(rs.Fields.Item(Title(3)), 1, 4) = year Then
                    ComboTime(Index).AddItem Mid$(rs.Fields.Item(Title(3)), 5)
                End If
            End If
        End If
        rs.MoveNext
    Next i
    
    If Index = 0 Then
        For i = CInt(First) To CInt(Second)
            ComboTime(Index).AddItem i
        Next i
    End If
    
End Sub

程序代码：

Dim cn As New ADODB.Connection, RS As New ADODB.Recordset, DDX As Integer, NYFX() As String, I As Integer

Private Sub A()
    RS.Open "SELECT left(" + "MONTH" + ",4) as nian FROM [" & "RawData" & "$] group by left(" + "MONTH" + ",4)", cn, adOpenStatic
    ComboTime(0).Clear
    While Not RS.EOF
        ComboTime(0).AddItem RS("nian")
        RS.MoveNext
    Wend
    Set RS = Nothing
End Sub

Private Sub ComboTime_Click(Index As Integer)
Dim Title(3) As String

    Title(3) = "MONTH"
    If Index = 0 Then
        RS.Open "SELECT right(" + Title(3) + ",2) as yue FROM [" & SheetName & "$] where " + Title(3) + " like " + ComboTime(0).Text + "* group by right(" + Title(3) + ",2)", cn, adOpenStatic
        ComboTime(1).Clear
        While Not RS.EOF
            ComboTime(1).AddItem RS("yue")
            RS.MoveNext
        Wend
        Set RS = Nothing
    End If
End Sub

Private Sub Form_Load()
    cn.Open "Data Source=" + App.Path + "\11111.xlsx" + ";" + "Provider=" + "Microsoft.ACE.OLEDB.12.0;" + "Extended Properties=" + "'Excel 12.0;" + "HDR=" + "Yes" + "IMEX=" + "1';"
    Call A
End Sub