- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 超出最大行数 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=183302)
-- 发布时间：2022/10/30 15:29:00
-- 超出最大行数
通过下面的方法保存文件时，提示超出最大行数（65536），怎么处理？
cmdss.CommandText = "S elect * F rom {" & dr("表名") & "}"
Dim dtss As DataTable = cmdss.ExecuteReader()
Dim Book As New XLS.Book
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim Style As Xls.Style = Book.NewStyle
Style.BackColor = Color.Red
For c As Integer = 0 To dtss.DataCols.Count -1
Sheet(0, c).Value = dtss.DataCols(c).name
Next
For r As Integer = 0 To dtss.DataRows.Count - 1
For c As Integer = 0 To dtss.DataCols.Count -1
Sheet(r +1, c).Value = dtss.DataRows(r)(dtss.DataCols(c).name)
Next
Next
\'保存工作簿
fl = "E:\\文件\\ & dr("表名") & ".xls"
Book.Save(fl)
-- 发布时间：2022/10/30 20:28:00
--
xls文件最大支持65536行，改为使用xlsx文件
Dim Book As New XLS.Book
fl = "E:\\文件\\ & dr("表名") & ".xlsx"
Book.Save(fl) ‘先保存为空白的xlsx
Book = New XLS.Book(fl) ‘再次打开这个文件
Dim Sheet As XLS.Sheet = Book.Sheets(0)
……
-- 发布时间：2022/10/31 10:03:00
--
80多万行的数据还是不行
此主题相关图片如下：1.png
-- 发布时间：2022/10/31 10:08:00
--
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=150626
-- 发布时间：2022/10/31 10:36:00
--
用2楼的方法修改后，遍历的数据表数据较多时目前还是保存不了。数据少的就行。
-- 发布时间：2022/10/31 10:42:00
--
都说了必须改为使用xlsx文件
\'保存工作簿
fl = "E:\\定时推送文件\\" & dr("分类") & "\\" & dr("模块") & "\\" & dr("表名") & ".xlsx"
Book.Save(fl)
\'发送邮件
Functions.Execute("mail",dr("分类"), dr("模块") ,dr("表名") ,fl)
System.Threading.Thread.Sleep(10000)
Next