如图，进入该窗口后，text1中已经显示班级名称，问题如下：
form_load（）中
1、打开一个excel表
2、添加表头 姓名  旷课时间   旷课次数   旷课时间   学期  学号
3、选择好信息之后，单击提交信息，将combo1.text添加到EXCEL中的A2，依次添加combo2.text、text2.text、combo3.text、combo4.text、combo5.text添加到B2——F2中
4、重新选择信息，单击提交信息，将combo1.text添加到EXCEL中的A3，依次添加combo2.text、text2.text、combo3.text、combo4.text、combo5.text添加到B3——F3中（不能将之前的信息覆盖）
5、重复上述操作，完成后单击“保存信息”，将excel文件另存为（弹出“另存为”窗口）
本人以前只学过一点皮毛，前面的都做好了，做了好几天了，就差最后的这点东西了，请各位前辈帮帮忙，感激涕零！

直接用excel

还请明示！！

这样做的目地是什么啊？、

如果没有数据库，参照版主的建议直接用EXCEL。如果有数据库可以试用下列代码；如果想把很多的查询的汇总到一个表格，修改通用模块可以达到目的，但比较烦
Private Sub Command2_Click()
   If DataGrid1.Visible = True Then
      OutToExcel DataGrid1    '将DataGrid1数据传给Excel，
   Else
     MsgBox "本窗口数据不能传给Excel,抱歉！"
   End If
End Sub

Public Sub OutToExcel(TheGrid As DataGrid)    '可以将此过程放在通用模块中
Set xlapp = CreateObject("excel.application")
Dim xlBook As Object
Dim xlSheet As Object     '建立excel对象的工作薄对象
Set xlBook = xlapp.Workbooks.Add     '建立excel对象的工作表对象
Set xlSheet = xlBook.Worksheets(1)    '下面将DATAGRID中数据导出到EXCEL中
With TheGrid
  .Bookmark = 1
  For i = 1 To .ApproxCount
     .Bookmark = i
        For j = 0 To .Columns.Count - 1
           xlSheet.Cells(1, j + 1).Value = .Columns(j).Caption      '第一行显示表堤
           xlSheet.Cells(i + 1, j + 1).Value = .Columns(j).Text
        Next
  Next
End With
xlapp.Visible = True
End Sub

强烈建议使用数据库，从实际出发，这才是工作中最需要的地方。

建议使用数据库
datagrid导出代码如下
Private Sub Command7_Click()
 Dim excel1 As Excel.Application
    Set excel1 = New Excel.Application
    excel1.Visible = True
    excel1.Workbooks.Open (App.Path & "\程序模版.xls")
    excel1.Workbooks("程序模版.xls").Sheets("确认对账结果").Select
    If excel1.Workbooks("程序模版.xls").ReadOnly = True Then
        excel1.DisplayAlerts = False
        excel1.Application.Quit
        excel1.DisplayAlerts = True
        MsgBox "你已经打开“程序模版.xls”" & Chr(13) & "请关闭原有的“程序模版.xls”，在运行导出到excel。", vbOKOnly, "错误提示"
        Exit Sub
    Else
        excel1.Workbooks("程序模版.xls").Sheets("确认对账结果").Cells.Clear
        excel1.Workbooks("程序模版.xls").Sheets("确认对账结果").Range("A2").CopyFromRecordset Adodc1.Recordset
         With excel1.Workbooks("程序模版.xls").Sheets("确认对账结果")
            .Cells(1, 1) = "地域"
            .Cells(1, 2) = "所属公司"
            .Cells(1, 3) = "酒店名称"
            .Cells(1, 4) = "期间总金额"
            .Cells(1, 5) = "入账日期"
            .Cells(1, 6) = "确认结果"
            .Cells.Font.Size = 9
            .Cells.Replace What:=" ", Replacement:="", LookAt:=xlPart, SearchOrder:= _
                           xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
            .Columns.AutoFit
            .Rows.AutoFit
            .Columns("d:d").NumberFormatLocal = "￥#,##0.00;￥-#,##0.00"
            .Columns("e:e").NumberFormatLocal = "yyyy-mm""月"""
        End With
    End If
End Sub