Я создал этот фрагмент кода, и я не понимаю, почему я получаю ошибку
Подстрочный индекс вне диапазона
Он умирает, когда я пытаюсь установить WsDest.
Две строки, прежде чем мне нужно, потому что файл назначения не является обязательным, но имя файла Excel листа и листа всегда одинаковы.
Пример того, что может быть в W12 = "C: \ Users \ DKOMGOMG \ Desktop \ Etellerandet"
Sub Vopy_Paste_Below_Last_Cell()
Dim wsCopy As Worksheet
Dim wsDest As Worksheet
Dim 1CopyLastRow As Long
Dim 1DestLastRow As Long
Dim strFolder As string, strFile As String
Set wsCopy = Activewoork.Worksheets("output")
StrFolder = ActiveSheet.Range("W12").Value
StrFile = Dir(StrFolder & "\blablalba.xlsm")
Set wsDest = Workbooks("strFile").Worksheets("Ark2")
После этого у меня, конечно, есть больше кода, но это то место, где я застрял.
Дон не знаю, правильно ли я сделал strfolder и strfile? Надеюсь, что кто-то может помочь!