Информация об ошибке времени выполнения 9

Question

Я пытаюсь скопировать диапазон значений с одного листа в Excel на другой.Я скопировал эту формулу из другой части моего листа, которая работает, однако я могу получить ошибку времени выполнения 9.

Sub SaveJambStudEC()
'
' SaveCalcsJambEC Macro
'
Dim page As Integer
    page = Cells(4, "T").Value

    Range("A70:AN70").Select
    Selection.Copy

    Range("A71").Select
    ActiveCell.Offset(page, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

    Range("A1:O63").Select
    Selection.Copy
    Sheets("10.3 JambCalcs EC").Select
        Range("A1").Select
    ActiveCell.Offset((page - 1) * 63, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone _
        , SkipBlanks:=False, Transpose:=False
   Selection.PasteSpecial Paste:=xlPasteFormats

    Sheets("9.3 Jamb Design EC").Select

    Range("T5").Select
    Selection.Copy
    Range("N9").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

    Range("T31").Value = 0

    Call JambECsetDesignOptions
    Call CopyJambOptiValues

    Range("J9").Activate
End Sub

Answer 1

используя приведенный ниже код, вы проверите, есть ли лист с таким именем. если вы не получаете сообщение, значит, нет листа с таким именем

Option Explicit

Sub test()

    Dim ws As Worksheet

    For Each ws In ThisWorkbook.Worksheets

        If ws.Name = "10.3 JambCalcs EC" Then
            MsgBox "Sheet Appears"
            Exit Sub
        End If

    Next ws

End Sub

Примечание

«ThisWorkbook» относится к рабочей книге, включенной в код. Если вы хотите четко объявить рабочую книгу, вы можете объявить переменную «Dim wb as Workbook», а затем установить рабочую книгу «Set wb = Workbooks (« имя рабочей книги »)»