excel文件处理问题

Question

有一个excel文件，内容如下：
A       B     C
小明    2班   90
小红    2班   75
如花    1班   60
花猪    3班   40
光蛋    2班   59想将B列的分为一类，就是3个班，生成3个excel文件：1班.xls/2班.xls/3班.xls1班.xls:
A       B     C
如花    1班   602班.xls:
A       B     C
小明    2班   90
小红    2班   75
光蛋    2班   593班.xls
A       B     C
花猪    3班   40如何用VBA自动生成3个文件啊，我是VBA菜鸟，最好提供源码，谢谢！

Answer 1

Dim cn As New ADODB.Connection
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheetcn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
           "Data Source=C:\My Documents\Book1.xls;" & _
           "Extended Properties=""Excel 8.0;"""
cn.OpenSet xlApp = New Excel.Application
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.ActiveSheet
xlSheet.Cells(1, 1).Value = "A"
xlSheet.Cells(1, 2).Value = "B"
xlSheet.Cells(1, 3).Value = "C"xlBook.SaveAs "C:\My Documents\1班.xls"
xlBook.Close False
cn.Execute "INSERT INTO [Sheet1$] IN ""C:\My Documents\1班.xls"" ""Excel 8.0;""" & _
    " SELECT * FROM [Sheet1$] Where [B] = '1班'"以上生成1班.xls，其他同理。