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