以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  这种代码怎么分成2段  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=177938)

--  作者:wangglby
--  发布时间:2022/6/11 9:00:00
--  这种代码怎么分成2段
   Dim Book As New XLS.Book(路径1)

如何把以上这个代码 写成如下面这样的 写成2段,第一段定义,第二段赋值


    Dim Sheet As XLS.Sheet 

    sheet = Book.Sheets(0)

--  作者:有点蓝
--  发布时间:2022/6/11 9:24:00
--  
Dim Book As XLS.Book
Book = New XLS.Book(路径1)