Тип Несовпадение для Workbook декларации VBA

Question

Попытка значений из одной книги в другую

Sub CopyValues() 

    'Current Workbook 1 
    Dim B As Worksheet: Set bun = Sheets("Workbook1Sheet1") 

    'Since Workbook 2 is open 
    'Getting a type mismatch error on this line, please note the workbook is open 
    Dim wkb2 As Workbook: Set wkb2 = "Workbook2.xls" 


    Dim x As Integer 
    x = 3 
    B.Range("E" & x).Value = "=vlookup(D3,'wkb2'A!$D:$F,3,0)" 

End Sub 

Answer 1

Попробуйте присваивание формулу, как,

B.Range("E" & x).Formula = "=vlookup(D" & x & ", [Workbook2.xls]Sheet1!$D:$F, 3, false)" 

После того, как вы назначили вторую книгу с Set wkb2 = Workbooks("Workbook2.xls") вы не можете использовать wkb2 внутри строки с кавычками и вам нужен рабочий лист, а также диапазон ячеек.

Answer 2

Когда вы используете Set x = ...., вы устанавливаете объект. Так что Set Wkb2 = "..." не работает, потому что вы назначаете строку. Ambie ответил на ваш вопрос. Это работает, потому что WorkBooks("...") дает объект

Answer 3

B.Range("E" & x).Value = "=vlookup(D3,'wkb2'A!$D:$F,3,0)" 

С, что вы хотите быть

B.Range("E"&x).Value = "=vlookup(D3,'" & wkb2 & "'A!$D:$F,3,0)" 

Убедившись wkb2 объявляет книгу и лист тоже.