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


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

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


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/5/26 21:07:00 [显示全部帖子]

导出之前，关闭多层标题即可

 

DataTables("表A").MultiRowHeader = False
DataTables("表A").BuildHeader()
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/5/26 21:13:00 [显示全部帖子]

Dim flg As New SaveExcelFlags'导出保存为"客户电话频率分析.xls"
flg.RowNumber = True
flg.CellStyle = True
DataTables("季度畅销排名").MultiRowHeader = False
DataTables("季度畅销排名").BuildHeader()
Tables("季度畅销排名").SaveExcel("C:\Documents and Settings\Administrator\桌面\分析\客户电话频率分析.xls","客户电话频率分析",flg)

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


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/5/26 22:51:00 [显示全部帖子]

 用代码删除也不需要重启啊，不重启也可以。手工删除也不可能。

 

 如，删除代码

 

Dim Builder As New ADOXBuilder
Builder.Open()
With Builder
    .DeleteTable("表B")
End With
Builder.Close()
DataTables.Unload("表B")

 

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


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/5/26 22:55:00 [显示全部帖子]

删除表看8楼。
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/5/26 23:27:00 [显示全部帖子]

 代码没什么问题，导入的表换一个名字。

 

 不行，就请上传具体例子
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/5/28 21:27:00 [显示全部帖子]

 做个简单的例子上传上来看看。

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


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/5/28 21:38:00 [显示全部帖子]

 什么意思？上传的文件怎么操作出现问题。

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


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/5/28 21:44:00 [显示全部帖子]

导出的时候，可以不导出第一列行号。

 

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

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

flg.RowNumber = False

flg.CellStyle = True

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

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


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/5/28 21:44:00 [显示全部帖子]

 动态添加表达式，参考

 

 http://www.foxtable.com/help/topics/1428.htm

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


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/5/28 22:00:00 [显示全部帖子]

数据丢失的情况，导入代码这样写

 

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()

 回到顶部
总数 11 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.04688 秒, 5 次数据查询