VBA Excel Присвоение рабочих листов переменным

Question

У меня возникает ошибка «Ошибка выполнения» 13 «Несоответствие типа» при попытке назначить рабочий лист переменной. Он работает для всех других листов, но, похоже, это происходит только с этим листом.

Вот мой код:

Sub TS() 
Dim RD, Dep, QC, MM, Pro As Workbook 

With ThisWorkbook 
Set RD = .Sheets("RawData") 
Set Dep = .Sheets("Departments") 
Set QC = .Sheets("QC") 
Set MM = .Sheets("MM") 
Set Pro = .Sheets("Production") 'I have a problem with this line 
End With 

End Sub 

Мой рабочий лист этикетки ниже:

Answer 1

ошибка имеет отношение к вашей ошибочной декларации:

Pro As Workbook 

Вы должны объявить это как Worksheet, или просто variant без указания типа, как:

Dim RD, Dep, QC, MM, Pro 

Лучше всего был бы использовать сильное типизированное заявление:

Dim RD As Worksheet, Dep As Worksheet, QC As Worksheet, MM As Worksheet, Pro As Worksheet 

Надеется, что это может помочь.

Answer 2

Что ваш код должен выглядеть следующим образом:

Sub TS() 
    Dim RD as Worksheet 
    Dim Dep as Worksheet 
    Dim QC as Worksheet 
    Dim MM as Worksheet 
    Dim Pro as Worksheet 

    With This.Workbook 
    Set RD = .Sheets("RawData") 
    Set Dep = .Sheets("Departments") 
    Set QC = .Sheets("QC") 
    Set MM = .Sheets("MM") 
    Set Pro = .Sheets("Production") 
    End With 
End Sub 

Вы настраиваете кучу рабочих листов, поэтому они должны быть отнесены к Worksheet переменным. Единственная причина, по которой ваш код не упал на Set RD = ..., состоит в том, что все ваши переменные, кроме Pro, были объявлены как Variant.