VBA中的运行时错误“ 9” [excel]-下标超出范围

Question

我目前正在使用一个代码，该代码从用户那里获取日期，打开日历，查看是否存在月份，如果不存在，则创建具有该月份名称的工作表。

代码看起来像这样，其中m_y是一个字符串，并具有诸如“ January 2014” [[包括“符号”的值：

Sub addmonth(m_y)
  On Error Resume Next
  CalendarWorkbook.Worksheets(m_y).Select

  If Err.Number<>0 Then
     'code to add sheet and format it

我尝试将其放在With / End With命令中，代码中没有Option Explicit。 答案中提到的其他方法，例如使用.Range()代替.Select ; 但是我没有成功的运气。

提供的任何帮助将不胜感激。

Answer 1

在大多数情况下， .Select是运行时错误的主要原因。 我相信您还有另一本工作簿。 有趣的阅​​读

尝试另一种不使用.Select

Option Explicit

Sub test()
    addmonth ("""Feb2015""")
End Sub

Sub addmonth(m_y)
    Dim calendarworkbook As Workbook
    Dim ws As Worksheet

    Set calendarworkbook = ThisWorkbook

    On Error Resume Next
    Set ws = calendarworkbook.Worksheets(m_y)
    On Error GoTo 0

    If ws Is Nothing Then calendarworkbook.Worksheets.Add.Name = m_y
End Sub

注意 ：应谨慎使用OERN（错误恢复下）。 确保仅限制您想要的部分而不是其余部分的消息。 否则它不是很好的错误处理:)

Answer 2

这对我有用

Sub test()
    addmonth ("""Feb2015""")
End Sub

Sub addmonth(m_y)
    Dim calendarworkbook As Workbook
    Set calendarworkbook = ThisWorkbook
    On Error Resume Next
    calendarworkbook.Worksheets(m_y).Select

    If Err.Number <> 0 Then
        With calendarworkbook.Worksheets.Add
            .Name = m_y
        End With
    End If
End Sub