- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- foxtable 导出Excel 的问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=142167)
-- 发布时间：2019/10/20 9:38:00
-- foxtable 导出Excel 的问题
因为有时需要导出的数据较多，需要用到.xlsx 类型文件，但写代码时测试提示错误：超出最大行数（65,536） 在在代码中设定为 xlsx 类型又提示出错。代码如下：
Dim dt As Table = Tables("xszxztb")
Dim Book As New XLSX.Book
Dim Sheet As XLSX.Sheet = Book.Sheets(0)
For i As Integer = 0 To nms1.count -1
Sheet(0, i).Value = nms1(i)
Next
For r As Integer = 0 To dt.Rows.Count - 1 \'填入数据
For i As Integer = 0 To nms.count -1
Sheet(r + 1, i).Value = dt.rows(r)(nms(i))
Next
Next
\'保存并打开excel文件
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xlsX" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
MessageBox.Show("你要保存为:" & dlg.FileName,"提示") \'提示用户选择的文件
End If
Book.Save(dlg.FileName)
Dim Proc As New Process
Proc.File =dlg.FileName
Proc.Start()
难道是导出Excel不支持 .xlsx类型文件？ 怎么办？谢谢！
[此贴子已经被作者于2019/10/20 9:40:33编辑过]
-- 发布时间：2019/10/20 9:52:00
--
错误提示是什么？
-- 发布时间：2019/10/20 10:54:00
--
编译就没有通过
此主题相关图片如下：qq图片20191020105317.png
-- 发布时间：2019/10/20 22:29:00
--
额，XLS.Book中的xls是表示类型的命名空间，不是表示什么类型的execl，保存的时候保存为.xlsx的文件即可
Dim Book As New XLS.Book
Dim Sheet As XLS.Sheet = Book.Sheets(0)