Excel VBA中打开文件的对话框

Sub ClearBlank()

    Dim Fl, i%

    Dim Wb As Workbook

    Dim Sh As Worksheet

    Fl = Application.GetOpenFilename("ExcelFile,*.xls", , "Please Select:", , True)

    For i = 1 To UBound(Fl)

        Workbooks.Open Fl(i)

        Set Wb = ActiveWorkbook

        For Each Sh In Wb.Sheets

            Sh.Rows("1:" & Sh.[A:A].Find("班别", , , 1).Row - 1).Delete

        Next

        Wb.Close True

    Next

End Sub