Foxtable(狐表) → 用户栏目 → 专家坐堂 → 怎样修改导出的excel表标题？


  共有3630人关注过本帖树形打印复制链接

主题：怎样修改导出的excel表标题？
帅哥哟，离线，有人找我吗？
sbfqpidt
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：128 积分：1568 威望：0 精华：0 注册：2013/7/8 11:51:00 		怎样修改导出的excel表标题？  发帖心情 Post By：2015/5/26 20:59:00 [显示全部帖子]

各位高手：
    请教一下，因导出的excel文件的标题，不适合再次导入foxtable,要修改才行。请教如果才能办到？要达到如下功能：
    1、导出的表，要修改成能再次导入，用于分析。
    2、导出的excel，标题是按日期顺序排列的，顺着业务的不断增加，日期标题会跟随着不断增加。
    谢谢！




这是我的导出代码：
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:电话频率分析（修改后的标题）.xls

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
 回到顶部
帅哥哟，离线，有人找我吗？
sbfqpidt
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：128 积分：1568 威望：0 精华：0 注册：2013/7/8 11:51:00 		  发帖心情 Post By：2015/5/26 21:11:00 [显示全部帖子]

上面是我的统计代码，下面才是我的导出、导入代码：

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()
 回到顶部
帅哥哟，离线，有人找我吗？
sbfqpidt
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：128 积分：1568 威望：0 精华：0 注册：2013/7/8 11:51:00 		  发帖心情 Post By：2015/5/26 21:20:00 [显示全部帖子]

非常感谢大红袍！我已成功用了您的方法！谢谢！

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)
 
Dim ip As New Importer
ip.SourcePath = "C:\Documents and Settings\Administrator\桌面\分析\客户电话频率分析.xls" '指定数据文件
ip.SourceTableName = "客户电话频率分析"'指定要导入的表
ip.NewTableName ="客户电话频率分析2" '导入后的表名
ip.Format = "Excel" '指定导入格式
ip.Import()
 回到顶部
帅哥哟，离线，有人找我吗？
sbfqpidt
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：128 积分：1568 威望：0 精华：0 注册：2013/7/8 11:51:00 		  发帖心情 Post By：2015/5/26 22:44:00 [显示全部帖子]

各位高手：
    不好意思！我是个菜鸟！
    对上面的问题解决了，可是，问题又来了一个：
    我每次要重新更新“客户电话频率分析”，要删除原来已有的表，用代码删除会重启。只好手工删除，麻烦不说，还会出现错误提示（见附件图），只能用“Ctrl+Alt+Del”强制退出系统。
    有没有好的办法，达到：
    1、能删除旧表；
    2、不重启系统。
    不好意思！剥削各位的智慧了！
图片点击可在新窗口打开查看此主题相关图片如下：删除已导入的表，出现提示！怎么办？.png
图片点击可在新窗口打开查看
    拜托了！
    谢谢！
 回到顶部
帅哥哟，离线，有人找我吗？
sbfqpidt
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：128 积分：1568 威望：0 精华：0 注册：2013/7/8 11:51:00 		  发帖心情 Post By：2015/5/26 22:47:00 [显示全部帖子]

手工能将旧表删除，但，就是会不断提示错误！然后只能强制退出。

 回到顶部
帅哥哟，离线，有人找我吗？
sbfqpidt
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：128 积分：1568 威望：0 精华：0 注册：2013/7/8 11:51:00 		  发帖心情 Post By：2015/5/26 22:54:00 [显示全部帖子]

托大红袍的福，我的代码如下：但，要再次删除已产生的旧表，会提示前面上传的错误提示图，请求各位高手帮忙出出主意。谢谢！

’一、先统计

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()
 回到顶部
帅哥哟，离线，有人找我吗？
sbfqpidt
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：128 积分：1568 威望：0 精华：0 注册：2013/7/8 11:51:00 		  发帖心情 Post By：2015/5/26 23:07:00 [显示全部帖子]

尊敬的大红袍：
    有您真的好！非常感谢！
    问题还是有错误提示。麻烦您啦！
图片点击可在新窗口打开查看此主题相关图片如下：还是有提示呀.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
sbfqpidt
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：128 积分：1568 威望：0 精华：0 注册：2013/7/8 11:51:00 		  发帖心情 Post By：2015/5/26 23:12:00 [显示全部帖子]

时间太晚了！谢谢大红袍！您早点休息吧！您是我们这些菜鸟的福音！

 回到顶部
帅哥哟，离线，有人找我吗？
sbfqpidt
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：128 积分：1568 威望：0 精华：0 注册：2013/7/8 11:51:00 		再导入后，列类型怎么是两种？怎样统一？  发帖心情 Post By：2015/5/28 21:23:00 [显示全部帖子]

高手的例子检验列的类型：


For Each dc As DataCol In DataTables("客户电话频率分析").DataCols
    Output.Show(dc.DataType.Name)
Next



这是我借用高手的例子，检验出的列类型：怎样把String、Double统一？因为不统一，本来有数据的，导入后数据为空。

String
String
Double
String
Double
String
String
Double
String
Double
Double
Double
String
Double
String
String
String
String
Double
Double
String
String
Double
Double
Double
String
Double
Double
Double
Double
Double
Double
String
Double
Double
 回到顶部
帅哥哟，离线，有人找我吗？
sbfqpidt
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：128 积分：1568 威望：0 精华：0 注册：2013/7/8 11:51:00 		  发帖心情 Post By：2015/5/28 21:27:00 [显示全部帖子]

这是导出的表，准备导入。

 回到顶部
总数 17 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07813 秒, 6 次数据查询