以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  New XLS.Book 的多次引用  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=157215)
--  作者：mxl810823
--  发布时间：2020/10/8 16:28:00
--  New XLS.Book 的多次引用
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，有点大。这样每次读入的时间就很长，能不能像定义一个全局变量一样，一次读入后可以在不同按键代码中使用，这样要怎么写程序？？
--  作者：有点蓝
--  发布时间：2020/10/8 16:32:00
--  

[此贴子已经被作者于2020/10/8 16:32:14编辑过]
--  作者：有点蓝
--  发布时间：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