Ошибка VBA Runtime 1004 «Определенная пользователем или объектная ошибка» с диапазоном

Question

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

Задача Макро: Скопируйте информацию одного документа в другой документ в определенном столбце, если столбец пуст, в этом случае он должен использовать следующий столбец.

Это код до сих пор:

Sub CopyData() 

    Dim i As Long 
    Dim wbA As Workbook 
    Dim wbN As Workbook 
    Dim Filepath As String 

    i = 7 
    Set wbA = ThisWorkbook 

    Filepath = "C:\Users\sebastian\Desktop\assessment answers" 

    Do 
     If IsEmpty(wbA.Sheets("Answers").Cells(1, i)) Then 

      Set wbN = Workbooks.Open(Filepath) 

      If Cells(37, 3).Value = 31 Then 

       wbN.Sheets("Answers").Range(Cells(37, 4), Cells(46, 4)).Copy _ 
       Destination:=wbA.Sheets("Answers").Range(Cells(36, i), Cells(45, i)) 

      ElseIf Cells(37, 3).Value = 41 Then 

       wbN.Sheets("Answers").Range(Cells(37, 4), Cells(46, 4)).Copy _ 
       Destination:=wbA.Sheets("Answers").Range(Cells(46, i), Cells(55, i)) 

      ElseIf Cells(37, 3).Value = 51 Then 

       wbN.Sheets("Answers").Range(Cells(37, 4), Cells(46, 4)).Copy _ 
       Destination:=wbA.Sheets("Answers").Range(Cells(56, i), Cells(65, i)) 

      Else 

       MsgBox "There could be a problem with the data, please check if the candidate has selected a topic." 
       Exit Sub 

      End If 

      wbN.Sheets("Answers").Range(Cells(2, 4), Cells(3, 4)).Copy _ 
      Destination:=wbA.Sheets("Answers").Range(Cells(1, i), Cells(2, i)) 

      wbN.Sheets("Answers").Range(Cells(7, 4), Cells(36, 4)).Copy _ 
      Destination:=wbA.Sheets("Answers").Range(Cells(6, i), Cells(35, i)) 

      wbN.Close 

      Exit Sub 

     Else 

      i = i + 1 

     End If 

    Loop 

End Sub 

1. Проблема (VBA Runtime Ошибка 1004) здесь происходит после того, как: Если клетки (37, 3) .Value = 31 Тогда

Если я использую .Range("D37:D46") и диапазоны для других ячеек, он работает, но я хотел бы увеличить столбец с помощью цикла, когда уже заполнены данные. У вас есть идея решить эту проблему?

2. Есть ли способ изменить путь к файлу, чтобы тот, кто когда-либо использовал его, будет направлен на рабочий стол, где должен находиться файл?

Filepath = "C:\Users\sebastian\Desktop\assessment answers" 

Спасибо за ваши идеи,

Sebastian

Answer 1

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

Проблема 1:

После предложений по Рори и Naing Win Хтуна я включил путь в передней части клетки. Очевидно, я мог бы это сделать и с С.

wbN.Sheets("Answers").Range(wbN.Sheets("Answers").Cells(37, 4), wbN.Sheets("Answers").Cells(46, 4)).Copy _ 
Destination:=wbA.Sheets("Answers").Range(wbA.Sheets("Answers").Cells(36, i), wbA.Sheets("Answers").Cells(45, i)) 

Задача 2:

Теперь пользователь может ввести путь и имя файла вручную, что, очевидно, является гораздо лучшим решением. Об этом также говорил Наинг Вин Хтун.

Благодарим всех вас за помощь.

Answer 2

Номер ошибки 1004 обычно означает "я не могу найти то, что вы ищете".

Для этого конкретного примера вы видите эту ошибку, потому что вы недостаточно четко указываете свою кодировку. Лучше пойти OTT, если что-нибудь.

Таким образом, вместо

If Cells(37, 3).Value = 31 Then 

Использование:

If wbA.Sheets("Sheet Name Here").Cells(37, 3).Value = 31 Then 

Еще лучше включать 'с' заявление в своем коде. Обобщенный пример ниже:

Sub Example() 

    Dim wb As Workbook 
    Dim sht As Worksheet 

    Set wb = ActiveWorkbook 
    Set sht = wb.ActiveSheet 

    With sht 
     .Name = "New Name" 
     .Visible = xlSheetVisible 
     .Protect 
    End With 

End Sub 

Это экономит много нажатий клавиш и позволяет сделать несколько вещей одного объекта в один удар.