主题：数据导出问题？

是添加到后面，还是重新生成一个？

Dim ex As New Exporter
ex.SourceTableName = "维修" '指定导出表
ex.FilePath = "d:\我的文档\Foxtable项目\存档\售后记录.xls" '指定目标文件
If FileSys.FileExists(ex.FilePath) Then
    FileSys.DeleteFile(ex.FilePath, 2, 2)
End If
ex.Format = "Excel" '导出格式为Excel
ex.Filter = "[_Identify]= " & Tables("维修").Current("_Identify") '指定导出当前表的当前行
ex.Export() '开始导出

Dim Book As XLS.Book
Dim sheet As XLS.Sheet
Dim fname As String = "d:\表A.xls"
Dim t As Table = Tables("表A")
If FileSys.FileExists(fname)
    book = new XLS.Book(fname)
    sheet = book.Sheets("表A")
Else
    book = new XLS.Book
    sheet = book.Sheets(0)
    sheet.Name = "表A"
    For i As Integer = 0 To t.Cols.Count - 1
        sheet(0,i).Value = t.Cols(i).Name
    Next
End If

For i As Integer = 0 To t.Cols.Count - 1
    sheet(sheet.Rows.Count, i).Value = t.Current(i)
Next

book.Save(fname)