Ошибка 91 диапазон установки переменной рабочего листа

Question

Я в недоумении относительно того, почему кажется, что я могу сохранить значение диапазона в свойстве диапазона переменной рабочего листа, но не в переменной диапазона. Я получил ошибку 91 каждый раз, когда я пытался запустить этот код:

Dim ws As Worksheet, rng As Range 
    Set ws = Worksheets.Add 
    ws.name = "Potato" 
    rng = ws.Range("A1:K1") 
    rng.PasteSpecial 

Я был в состоянии успешно запустить программу, заменив последние 2 строки с:

ws.Range("A1:K1").PasteSpecial 

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

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

Answer 1

Вы должны использовать Set с объектными переменными:

Set rng = ws.Range("A1:K1") 

Answer 2

Здесь добавляется код, который будет убедиться, что не будет ошибкой, если у вас уже есть лист с именем «Картофельный»

код чтобы убедиться, что лист («Картофель») еще не существует.

Sub Button1_Click() 
    Dim ws As Worksheet, rng As Range, cRng As Range 
    Dim worksh As Integer 
    Dim worksheetexists As Boolean 
    Dim s As String 

    s = "Potato" 
    Set cRng = ActiveSheet.Range("A1:K1") 

    worksh = Application.Sheets.Count 
    worksheetexists = False 

    For x = 1 To worksh 

     If Worksheets(x).Name = s Then 
      worksheetexists = True 
      MsgBox s & ", already Exists" 
      Exit For 
     End If 

    Next x 

    If worksheetexists = False Then 
     Set ws = Worksheets.Add() 
     ws.Name = s 
     Set rng = ws.Range("A1:K1") 

     cRng.Copy 
     rng.PasteSpecial Paste:=xlPasteAll 
     Application.CutCopyMode = 0 
    End If 

End Sub