运行时错误 ‘9’:
下标越界
 请教,这是什么错误,如何处理,谢谢
点击调试,停留在下面Option ExplicitPrivate Sub Workbook_Open()
    With Worksheets("砯ら戳") 
                      ‘停在这行,我把字改成英文字母还是这个错误
        .Activate
        .Range("fromDate").Value = Date
        .Range("toDate").Value = Date
        .btnRefresh_Click
    End With
End Sub

解决方案 »

  1.   


    Option Explicit Private Sub Workbook_Open() 
        With Worksheets("砯ら戳") 
                          ‘停在这行,我把字改成英文字母还是这个错误 
            .Activate 
            .Range("fromDate").Value = Date 
            .Range("toDate").Value = Date 
            call .btnRefresh_Click 
        End With 
    End Sub试试
      

  2.   

    With sheets("砯ら戳") 试试!