超出最大行数 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 超出最大行数

共有5067人关注过本帖树形打印复制链接主题：超出最大行数

有点蓝

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：107673 积分：547686 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：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)

……

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：107673 积分：547686 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/10/31 10:08:00 [显示全部帖子]

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=150626

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：107673 积分：547686 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：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)

主题：超出最大行数