- 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=134836)
-- 发布时间：2019/5/10 11:16:00
-- [求助]导出Excel的文件的设置筛选器代码
老师好。
-- 发布时间：2019/5/10 11:32:00
--
我测试没问题
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xlsx" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Tables("表A").SaveExcel(dlg.FileName, "表A") \'保存文件
End If
-- 发布时间：2019/5/10 11:43:00
--
谢谢老师，可能是我的原因，现在问题不存在了。
-- 发布时间：2019/5/10 16:28:00
--
老师好。下面的代码完全是帮助文档中的，但如果将“设置筛选器”dlg.Filter= "Excel文件|*.xls" 中的“*.xls”改为“*.xlsx”后再在“命令窗口”执行导出，则导出后的文件打不开，提示如附图。
Dim nms()
As
String =
{"产品","客户","数量","单价","金额","日期"} \'要导出的列名
Dim caps() As
String = {"产品名称","用户名称","数量","单价","金额","日期"} \'对应的列标题
Dim szs()
As
Integer
= {100,100,80,80,80,120} \'对应的列宽
Dim Book
As New XLS.Book \'定义一个Excel工作簿
Dim Sheet
As XLS.Sheet = Book.Sheets(0) \'引用工作簿的第一个工作表
Dim st
As XLS.Style = Book.NewStyle \'日期列的显示格式
st.Format = "yyyy-MM-dd"
For c As
Integer =
0
To nms.length -1
Sheet(0, c).Value = caps(c)
\'指定列标题
Sheet.Cols(c).Width = szs(c)
\'指定列宽
If dt.Cols(nms(c)).IsDate Then
\'如果是日期列
Sheet.Cols(c).Style = st \'设置显示格式
End
If
Next
For r As
Integer =
0
To dt.Rows.Count - 1
\'填入数据
For c As
Integer =
0
To nms.length -1
Sheet(r +1, c).Value = dt.rows(r)(nms(c))
Next
Next
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls"
\'设置筛选器
If dlg.ShowDialog = DialogResult.Ok
Then
Book.Save(dlg.FileName)
Dim Proc As New Process
Proc.File = dlg.FileName
Proc.Start()
End
If
此主题相关图片如下：qq截图20190510162618.jpg
-- 发布时间：2019/5/10 18:47:00
--
用 XLS.Book 处理的文件，只能存放为 xls。
为什么一定要存储为xlsx？如果确实需要这个功能，用vba另存一下xls文件，如
Dim dlg As new OpenFileDialog
dlg.Filter = "excel|*.xls"
If dlg.ShowDialog = DialogResult.OK Then
Dim App As New MSExcel.Application
app.DisplayAlerts = False
Dim Wb As MSExcel.Workbook = App.WorkBooks.Open(dlg.FileName)
Wb.SaveAs(Filename:=dlg.FileName, FileFormat:=MSExcel.XlFileFormat.xlExcel9795)
wb.close
app.quit
End If