PasteSpecial и xlPasteValues

Question

Я действительно не могу узнать, как установить режим вставки в xlPasteValues, где я могу прикрепить это?

Set ActiveListWB = Workbooks.Open(FileName)
ActiveListWB.Sheets("Resources").Range("D2:CI206").Copy WSNew1.Range("D2") _

WSNew1.Name = Split(ActiveListWB.Name, "_")(0) & " - Resources"

Answer 1

Вы не можете сделать это в одну строку, если хотите указать метод вставки:

ActiveListWB.Sheets("Resources").Range("D2:CI206").Copy WSNew1.Range("D2") 

должно быть:

ActiveListWB.Sheets("Resources").Range("D2:CI206").Copy
WSNew1.Range("D2").PasteSpecial xlPasteValues

Не уверен, почему у вас есть подчеркивание в конец, однако, заставил бы код ожидать продолжения этой строки на следующей строке.