通过下面的方法保存文件时，提示超出最大行数（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)
加好友 
发短信
Post By：2022/10/30 15:29:00 [只看该作者]
此主题相关图片如下：1.png
