清空代码和导出Excel代码

清空代码：

    Dim ctl As Control
    '删除所有text文本框内容
    For Each ctl In Controls
        If TypeOf ctl Is TextBox Then ctl.Text = ""
    Next ctl
    '删除所有combobox文本框内容
    For Each ctl In Controls
        If TypeOf ctl Is ComboBox Then ctl.Text = ""
    Next ctl

导出Excel代码：

    Dim xlApp As Excel.Application
    Dim xlBpp As Excel.Workbook
    Dim xlSheet As Excel.Worksheet
    
    Set xlApp = New Excel.Application '建立xlApp的引用
    Set xlApp = CreateObject("Excel.application")   '创建Excel对象
    Set xlBook = xlApp.Workbooks.Add  '添加工作簿
    xlApp.SheetsInNewWorkbook = 1 '设置打开工作表数量
    xlApp.Visible = True  '设置Excel可见
    xlApp.Caption = "收取金额"
    xlApp.ActiveSheet.Cells(i, j).Value = "" '给活动工作表中的单元格赋值