Foxtable(狐表) → 用户栏目 → 专家坐堂 → 批量设置编程导出的Excel格式


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

主题：批量设置编程导出的Excel格式
帅哥哟，离线，有人找我吗？
飞云
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：472 积分：5579 威望：0 精华：0 注册：2015/4/5 14:08:00 		批量设置编程导出的Excel格式  发帖心情 Post By：2016/6/2 8:40:00 [只看该作者]

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
For Each c As String In DataTables("车站信息").GetValues("站名","","序号")
    Dim ex As New Exporter
    ex.SourceTableName = "计划施工" '指定导出表
    ex.Format = "Excel" '导出格式为Excel   
    ex.filepath = dlg.FileName '指定目标文件
    ex.NewTableName=c
 '指定目标文件
    ex.Filter="[盯控干部] like '%" & ex.NewTableName & "%'"
    ex.Export() '开始导出

Next
End If
请问老师Excel的批量格式如何设置，列宽、导出的具体位置、自动行高，谢谢老师。
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/6/2 9:15:00 [只看该作者]

 建议用saveExcel导出

 

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

 

 导出之前，可以先设置表自动列宽或者自动行高

 

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

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


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/6/2 9:16:00 [只看该作者]

或者是导出以后，用vba打开，再设置自动行高

 

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("d:\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range = Ws.Cells
Rg.WrapText = True
'Rg.EntireColumn.AutoFit   '自动调整列宽
Rg.EntireRow.AutoFit  '自动调整行高
App.Visible = True
 回到顶部
帅哥哟，离线，有人找我吗？
飞云
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：472 积分：5579 威望：0 精华：0 注册：2015/4/5 14:08:00 		  发帖心情 Post By：2016/6/2 9:29:00 [只看该作者]

谢谢老师，我再仔细研究下！
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03125 秒, 4 次数据查询