以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  批量设置编程导出的Excel格式  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=85769)
--  作者：飞云
--  发布时间：2016/6/2 8:40:00
--  批量设置编程导出的Excel格式
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的批量格式如何设置，列宽、导出的具体位置、自动行高，谢谢老师。
--  作者：大红袍
--  发布时间：2016/6/2 9:15:00
--  

 建议用saveExcel导出

 

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

 

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

 

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

 
--  作者：大红袍
--  发布时间：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
--  作者：飞云
--  发布时间：2016/6/2 9:29:00
--  
谢谢老师，我再仔细研究下！