主题：怎样修改导出的excel表标题？

Dim ip As New Importer
ip.SourcePath = "d:\客户电话频率分析.xls" '指定数据文件
ip.SourceTableName = "客户电话频率分析"'指定要导入的表
ip.NewTableName ="客户电话频率分析" '导入后的表名
ip.Filter = "客户编码 is not null"
ip.Format = "Excel" '指定导入格式
ip.Import()

Dim Book As New XLS.Book(ip.SourcePath)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim t As Table = Tables(ip.NewTableName)
t.StopRedraw()
For n As Integer = 1 To Sheet.Rows.Count -1
    Dim r As Row = t.AddNew()
    For m As Integer = 0 To t.Cols.count - 1
         r(m) = Sheet(n,m).Value
    Next
Next
t.ResumeRedraw()