[5分]根据筛选导出EXCEL，自动命名Sheet1等

Dim xlapp  As Object
    Dim i      As Byte
    Dim str    As String
    Set xlapp = CreateObject("excel.application")
    With xlapp
        .Visible = False
        .displayalerts = False
        .workbooks.Add
        If .activeworkbook.sheets.Count > 1 Then
            For i = 2 To .activeworkbooks.sheets.Count
                .sheets(i).Delete
            Next
        End If

        For i = 1 To 3
            .sheets.Add
            str = Choose(i, "基本信息 子窗体", "工作履历 子窗体", "学历经历 子窗体")
            Me.Controls(str).SetFocus
            SendKeys "^a", True
            SendKeys "^c", True
            .Visible = True
            .range("A1").select
            SendKeys "^v", True
            .Visible = False
            .activesheet.Name = Replace(str, " 子窗体", "")
        Next i
        .sheets(4).Delete
        .Save
        .Visible = True
        .displayalerts = True
    End With

    Set xlapp = Nothing