请教一下，因导出的excel文件的标题，不适合再次导入foxtable,要修改才行。请教如果才能办到？要达到如下功能：

    1、导出的表，要修改成能再次导入，用于分析。

    2、导出的excel，标题是按日期顺序排列的，顺着业务的不断增加，日期标题会跟随着不断增加。

    谢谢！

这是我的导出代码：

Dim g As New CrossTableBuilder("客户电话频率分析", DataTables("销售代表电话记录"), "[本次电话时间] > #03/01/2015#")

g.HGroups.AddDef("客户编码")

g.HGroups.AddDef("客户名称")

g.VGroups.AddDef("本次电话时间", "{0}月")

g.VGroups.AddDef("本次电话时间", DateGroupEnum.Day, "{0}日")

g.Totals.AddDef("本次电话时间", AggregateEnum.Count, "本次电话时间")

g.HorizontalTotal = True

g.VerticalTotal = True

g.Filter = "[本次电话时间] > #03/01/2015#"

g.Build()

MainTable = Tables("客户电话频率分析")

附件里有导出修改前的excel表，和修改后的excel表。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:电话频率分析（修改前的标题）.xls

Dim flg As New SaveExcelFlags’导出保存为“客户电话频率分析.xls”

flg.RowNumber = True

flg.CellStyle = True

Tables("季度畅销排名").SaveExcel("C:\\Documents and Settings\\Administrator\\桌面\\分析\\客户电话频率分析.xls","客户电话频率分析",flg)

 

Dim ip As New Importer

ip.SourcePath = "C:\\Documents and Settings\\Administrator\\桌面\\分析\\客户电话频率分析.xls" \'指定数据文件

ip.SourceTableName = "客户电话频率分析"\'指定要导入的表

ip.NewTableName ="客户电话频率分析2" \'导入后的表名

ip.Format = "Excel" \'指定导入格式

ip.Import()

    不好意思！我是个菜鸟！

    对上面的问题解决了，可是，问题又来了一个：

    我每次要重新更新“客户电话频率分析”，要删除原来已有的表，用代码删除会重启。只好手工删除，麻烦不说，还会出现错误提示（见附件图），只能用“Ctrl+Alt+Del”强制退出系统。

    有没有好的办法，达到：

    1、能删除旧表；

    2、不重启系统。

    不好意思！剥削各位的智慧了！
此主题相关图片如下：删除已导入的表，出现提示！怎么办？.png

    拜托了！

    谢谢！

’一、先统计

Dim g As New CrossTableBuilder("客户电话频率分析", DataTables("销售代表电话记录"), "[本次电话时间] > #03/01/2015#")

g.HGroups.AddDef("客户编码")

g.HGroups.AddDef("客户名称")

g.VGroups.AddDef("本次电话时间", "{0}月")

g.VGroups.AddDef("本次电话时间", DateGroupEnum.Day, "{0}日")

g.Totals.AddDef("本次电话时间", AggregateEnum.Count, "本次电话时间")

g.HorizontalTotal = True

g.VerticalTotal = True

g.Filter = "[本次电话时间] > #03/01/2015#"

g.Build()

MainTable = Tables("客户电话频率分析")

’二、再导出

Dim flg As New SaveExcelFlags’导出保存为“客户电话频率分析.xls”

DataTables("客户电话频率分析").MultiRowHeader = False
DataTables("客户电话频率分析").BuildHeader()

flg.RowNumber = True

flg.CellStyle = True

Tables("客户电话频率分析").SaveExcel("C:\\Documents and Settings\\Administrator\\桌面\\分析\\客户电话频率分析.xls","客户电话频率分析",flg)

 

 

 ’三、删除已统计的表

DataTables.delete("客户电话频率分析")  \'删除临时表

 

’四、再导入

 

Dim ip As New Importer

ip.SourcePath = "C:\\Documents and Settings\\Administrator\\桌面\\分析\\客户电话频率分析.xls" \'指定数据文件

ip.SourceTableName = "客户电话频率分析"\'指定要导入的表

ip.NewTableName ="客户电话频率分析" \'导入后的表名

ip.Format = "Excel" \'指定导入格式

ip.Import()