New XLS.Book 的多次引用 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → New XLS.Book 的多次引用

共有3045人关注过本帖树形打印复制链接主题：New XLS.Book 的多次引用

mxl810823

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

等级：小狐帖子：355 积分：3033 威望：0 精华：0 注册：2018/2/27 17:32:00

New XLS.Book 的多次引用 发帖心情

Post By：2020/10/8 16:28:00 [只看该作者]

Dim st As Date = Date.Now

Dim Book As New XLS.Book("f:\二线定型资料.xlsx")

Dim Sheet As XLS.Sheet = Book.Sheets(0)

Dim s As String = sheet(123,0).text

MessageBox.Show("耗时: " & (Date.Now - st).TotalSeconds & "秒")

如上代码，如果引用的文档有好几M，有点大。这样每次读入的时间就很长，能不能像定义一个全局变量一样，一次读入后可以在不同按键代码中使用，这样要怎么写程序？？

有点蓝

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

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

Post By：2020/10/8 16:32:00 [只看该作者]

[此贴子已经被作者于2020/10/8 16:32:14编辑过]

有点蓝

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

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

Post By：2020/10/8 16:33:00 [只看该作者]

全局代码

public Book As XLS.Book

第一次读入：

Dim st As Date = Date.Now

Book = New XLS.Book("f:\二线定型资料.xlsx")

Dim Sheet As XLS.Sheet = Book.Sheets(0)

Dim s As String = sheet(123,0).text

主题：New XLS.Book 的多次引用