以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]关于excel表定义问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=107888)
--  作者：yjh2002
--  发布时间：2017/10/12 9:02:00
--  [求助]关于excel表定义问题
有一段代码
dim lj as string="xxxxxxxxxxxx"
try 
    Dim Book As New XLS.Book(lj) \'定义一个Excel工作簿
Catch ex As Exception
    messagebox.Show("文件错误!","提示")
End try
Dim zgzb As Integer=book.Sheets.Count
这样定义的话会提示book未定义，怎样先定义好一个Excel工作簿，然后把指定文件赋给它？
--  作者：yjh2002
--  发布时间：2017/10/12 9:49:00
--  
顶一顶
--  作者：有点蓝
--  发布时间：2017/10/12 11:04:00
--  
Dim lj As String="f:\\test.xls"
Dim Book As XLS.Book
try
    Book = New XLS.Book(lj) \'定义一个Excel工作簿
Catch ex As Exception
    messagebox.Show("文件错误!","提示")
End try
If book IsNot Nothing Then
    Dim zgzb As Integer=book.Sheets.Count
End If
--  作者：yjh2002
--  发布时间：2017/10/12 11:33:00
--  
谢谢您