Мой код vba не работает. Подстрочный код

Question

Код VBA, приведенный ниже, должен: 1) выбирать диапазон ячеек в другом файле; 2) вставлять новый столбец в активный файл; 3) когда он проходит через каждую строку в столбце C, он просматривает соответствующий значение в диапазоне ячеек в другом файле из # 1 4) вводит значение в столбце рядом с тем, которое оно ищет.

Однако он просто не работает, и я не уверен, что не так. новичок в этом .. Пожалуйста, помогите.

Sub Translate() 
Dim PartName As String 
Dim CellName As String 
Dim PartNameList As Range 
Dim i As Integer 

Set PartNameList = Workbooks("C:\Users\" "\Desktop\Part name translation.xlsx").Worksheets("Reference").Range("A1:B2000") 

Worksheets("Initial").Columns("D").Insert 
For i = 2 To Range("C2:C3000").Count 
    If IsEmpty("C" & i) = True Then Exit For 
    PartName = WorksheetFunction.VLookup(Range("C" & i), PartNameList, 2, False) 
    Range("C" & i).Value = PartName 
Next i 

End Sub 

Answer 1

Вы не передавать действительное имя книги:

Set PartNameList = Workbooks(_ 
    "C:\Users\" "\Desktop\Part name translation.xlsx"). _ 
    Worksheets("Reference").Range("A1:B2000") 

Это кажется вам не хватает переменной среды, это должно исправить:

dim uName as String: uName = Environ("Username") 
Set PartNameList = Workbooks(_ 
    "C:\Users\" & uName & "\Desktop\Part name translation.xlsx"). _ 
    Worksheets("Reference").Range("A1:B2000") 

Но, если учебное пособие уже открыт, вам не нужно полностью его квалифицировать, вы можете просто использовать имя файла:

Set PartNameList = _ 
    Workbooks("Part name Translation.xlsx").Worksheets("Reference").Range("A1:B2000") 

И, наконец, если рабочая книга не открыта, я думаю, вам нужно будет открыть его, во-первых:

dim uName as String: uName = Environ("Username") 
dim wbPartName as Workbook 
Set wbPartName = Workbooks.Open(_ 
    "C:\Users\" & uName & "\Desktop\Part name translation.xlsx") 
Set partNameList = wbPartName.Worksheets("Reference").Range("A1:B2000")