请教这段vb读入excel数据的错误在哪儿？

我希望用将excel表格中的三个数据读进text.text  但执行以下代码后报错说“对象变量或with块变量未设置”   请问错在哪儿？
Option Explicit
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
Dim n As Integer
Dim a(3)
Dim b(3)
-----------------------------------------
Private Sub Command9_Click()
    xlApp.Visible = False
    Set xlBook = xlApp.Workbooks.Open(App.Path & "\inputdata.XLS")
    Set xlsheet = xlBook.Worksheets(1)
    Text1.Text = Cells(1, 1).Value
    Text2.Text = Cells(1, 2).Value
    Text3.Text = Cells(1, 3).Value
xlBook.Close
xlApp.Quit
Set xlApp = Nothing
End Sub

答案：如果你只有这些代码，那么很明显，
变量 xlApp 在使用前没有初始化。
因此你需要在使用 xlApp 之前对其进行初始化：
Set xlApp = New Excel.Application
或是在声明时使用：
Dim xlApp As New Excel.Application

上一个：如何用VB写一个 软件镶嵌网页的程序
下一个：VB写程序,谢得好的追加100分