还以为你附件是代码呢！

Dim i As Long       '行
    Dim sXLSPath As String
    Dim MyExcel As New Excel.Application
    Dim MyBook As Excel.Workbook
    Dim MySheet As Excel.Worksheet
    Dim Input_Path As String        '存储文件名字
    Dim fs As New Scripting.FileSystemObject
    
    Input_Path = App.Path & "\统计资料" & Date & ".xls"
  
    If fs.FileExists(Input_Path) = True Then '判断该文件是否存在，若存在，则删除该文件
        Kill (Input_Path)     '这个判断出问题了。测试再修改。
    End If
    
    temp = MsgBox("确定要导出为Excel文件？", vbYesNo, "导出")
    If temp = vbYes Then
    
        Screen.MousePointer = 11
        Open Input_Path For Output As #1
        Close #1
    
        Set MyExcel = CreateObject("excel.application")
        Set MyBook = MyExcel.Workbooks.Open(Input_Path)
        Set MySheet = MyExcel.ActiveSheet
        MySheet.Range("A1:O1").Select
        
    '    With MyExcel.Selection.Interior
    '        .ColorIndex = 15
    '        .Pattern = xlSolid
    '    End With
    
        For i = 1 To 15
            MySheet.Columns(i).ColumnWidth = 15     '设置Excel的列宽
        Next i
        
        For i = 0 To MSHFG1.Rows - 1
            For j = 0 To MSHFG1.Cols - 1
                MySheet.Cells(i + 1, j + 1) = MSHFG1.TextMatrix(i, j)
            Next j
        Next i
        
        MyBook.SaveAs FileName:=Input_Path, FileFormat:=xlNormal, Password:=""
        
        MyBook.Application.Quit
        MyExcel.Application.Quit
        Set MySheet = Nothing
        Set MyBook = Nothing
        Set MyExcel = Nothing
        Screen.MousePointer = 0
    
        MsgBox "文件导出成功。文件的位置是： " & Input_Path
        
    End If

上面是原代码。
MSHFG1是列表控件

能说说，这时候执行到那行了吗？

我目前这台机器没有安装vb所以不能运行代码，只能凭人工看。

你在“另存为”（SaveAs）的时候出错！
因为该文件在前面“创建”（CreateObject）时就存在了。
不一定对，仅供参考。

我试过了，必须要CreateObject

kill命令好像没执行一样。真不知道怎么弄。

天！我真不知道，你为什么要另存？
    我更不知道我什么地方说不要创建？