用VBA编程为何读取不了Excel中的数据

下面是打开Excel表的代码：
Dim Excel As Excel.Application

    Dim ExcelSheet As Object

    Dim ExcelWorkbook As Object
On Error Resume Next

    Set Excel = GetObject(, "Excel.Application")

If Err <> 0 Then
 Set Excel = CreateObject("Excel.Application")

    End If

    '打开Excel表
    Dim excelname As String

    excelname = InputBox("路径：", , "F:\hdm.xls")

    Excel.Workbooks.Open excelname

    

    '表格不可见

    Excel.Visible = False


    Worksheets("sheet1").Activate    '读入坐标
    但是不知道为什么就是读取不了Excel中的数据
    后面的语句值还是为0
    请教高手指导 --------------------编程问答-------------------- 我在后面加了一句：i = Cells(1, 1)

然后读取出来的i确实被赋值了。

不会是EXCEL里面没有数据吧。

补充：VB ,  VBA