下標超出範圍錯誤

Question

Private Sub sendemail(esubj) 

    ROW_BEGIN = 1 
    ROW_END = 72 

    Sheets("Input").Select 
    Range("A" & ROW_BEGIN & ":S" & ROW_END).Select 
    Range("A" & ROW_BEGIN).Select 

    fileL = "\\fire\school\FINANCE\Report\FY10\Key Indicator\" 
    fileL = fileL & (Left(Range("I7"), 3)) & Right(Year(Date), 2) 
    fileL = fileL & "\Key Report - " & myfdate & ".xls" 

我有一個名爲Input的電子表格選項卡的工作簿。當我嘗試運行它時，我得到下標超出範圍的消息。爲什麼不能從輸入電子表格中提取？

Answer 1

你爲什麼要執行所有Select？

代碼失敗的原因是什麼？