- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]导出报表 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=98934)
-- 发布时间：2017/4/9 18:43:00
-- [求助]导出报表
老师好，
下面代码是内部函数，我要在里面加入代码，设置边框线颜色、自适应列宽、标题字体加粗和颜色设置。 谢谢老师。
Dim dlg As New SaveFileDialog
dlg.Filter = "Excel文件|*.xls"
If dlg.ShowDialog = DialogResult.OK Then
With Tables(Args(0)) \'第一个参数为"表名"
Dim dyl_L As List(Of String) = .DataTable.Getvalues(Args(1)) \'第二个参数为"列名"
For Each dyl_ As String In dyl_L
.Filter = Args(1) & " = \'" & dyl_ & "\'"
.SaveExcel(dlg.FileName,dyl_)
Next
End With
End If
[此贴子已经被作者于2017/4/9 19:20:07编辑过]
-- 发布时间：2017/4/9 20:30:00
--
保存后，用vba打开，设置各种样式。
http://www.foxtable.com/webhelp/scr/2121.htm
-- 发布时间：2017/4/10 16:36:00
--
以下是引用苏州老街在2017/4/9 18:43:00的发言：
老师好，
下面代码是内部函数，我要在里面加入代码，设置边框线颜色、自适应列宽、标题字体加粗和颜色设置。 谢谢老师。
Dim dlg As New SaveFileDialog
dlg.Filter = "Excel文件|*.xls"
If dlg.ShowDialog = DialogResult.OK Then
With Tables(Args(0)) \'第一个参数为"表名"
Dim dyl_L As List(Of String) = .DataTable.Getvalues(Args(1)) \'第二个参数为"列名"
For Each dyl_ As String In dyl_L
.Filter = Args(1) & " = \'" & dyl_ & "\'"
.SaveExcel(dlg.FileName,dyl_)
Next
End With
End If
老师，有的搞不清。上面代码是内部函数，我要修改成把原文件删除、并设置边框和字体
[此贴子已经被作者于2017/4/9 19:20:07编辑过]
-- 发布时间：2017/4/10 16:42:00
--
上传实例，说明要做什么。
-- 发布时间：2017/4/10 17:35:00
--
老师好
我要在内部函数中加入代码，在Excel表中设置边框线颜色、自适应列宽、标题字体加粗和颜色设置、设置固定导入地址删除原表。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:导出表.rar |
-- 发布时间：2017/4/10 18:14:00
--
Dim dlg As New SaveFileDialog
dlg.Filter = "Excel文件|*.xls"
If dlg.ShowDialog = DialogResult.OK Then
With Tables(Args(0))
Dim dyl_L As List(Of String) = .DataTable.Getvalues(Args(1)) \'第二个参数为"列名"
For Each dyl_ As String In dyl_L
.Filter = Args(1) & " = \'" & dyl_ & "\'"
.SaveExcel(dlg.FileName,dyl_)
Next
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(dlg.FileName)
For Each Ws As MSExcel.WorkSheet In Wb.WorkSheets
Dim Rg As MSExcel.Range = Ws.UsedRange
Rg.Borders.Linestyle = MSExcel.XlLineStyle.xlContinuous \'边框线型
Rg.Borders.Weight = MSExcel.XlBorderWeight.xlThin\'边框粗细
Rg.Borders.ColorIndex = 3\'边框颜色
Rg = Ws.Rows("1")
With Rg.Font
.Name = "黑体" \'字体
.Size = 12 \'字号
.Bold = True \'加粗
.Italic = True \'斜体
.ColorIndex = 3\'颜色
End With
Ws.UsedRange.WrapText = True
Ws.UsedRange.EntireRow.AutoFit \'自动调整行高
Next
App.Visible = True
End With
End If
-- 发布时间：2017/4/10 20:51:00
--
老师，下面代码合并标题不起作用
Rg = Ws.Rows("1")
With Rg.Font
.Name = "微软雅体" \'字体
.Size = 12 \'字号
.Bold = True \'加粗
.Italic = False \'True \'斜体
.ColorIndex = 3\'颜色
End With
Ws.UsedRange.WrapText = True
-- 发布时间：2017/4/10 21:07:00
--
字体名称不正确
.Name = "微软雅黑" \'字体
-- 发布时间：2017/4/10 21:15:00
--
此主题相关图片如下：图像 2.png
-- 发布时间：2017/4/10 21:24:00
--
Rg = Ws.Rows("1:2")