Специальная вставка для VBA

Я хочу вставить значения для следующего фрагмента кода. Я попытался использовать вставку для разных способов, но не позволяет мне указать как файл, так и тип вставки, который я хочу сделать.

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

Workbooks.Open (path & file) ActiveSheet.Paste (Workbooks(file).Sheets(5).Range("A1").End(xlDown).Offset(1, 0)) Workbooks(file).Close SaveChanges:=True 

Спасибо!

Вместо использования параметра PasteSpecial связанного с объектом PasteSpecial таблицы, используйте объект, связанный с объектом назначения:

 Workbooks(file).Sheets(5).Range("A1").End(xlDown).Offset(1, 0).PasteSpecial xlPasteValues 

ИЛИ

Вы можете напрямую работать со значениями и избегать использования буфера обмена (который вы могли бы использовать для других вещей во время работы вашего макроса):

 Dim src as Range Dim dest as Range 'Set src to where you had copied from Set dest = Workbooks(file).Sheets(5).Range("A1").End(xlDown).Offset(1, 0) dest.value = src.value 
Interesting Posts

Загрузка файла через кнопку ввода html с помощью VBA

Удалите все строки, содержащие значение VBA

Excel: с помощью VLOOKUP можно найти наибольшее имя #, если два значения = использовать следующее имя не с тем же именем?

Выполнение функций Excel на основе эффективных / прекращенных дат

MAC OS X: найти независимый от компьютера путь к локальной папке Dropbox в формуле excel или макросе excel

Отображать строки только в том случае, если два столбца в CSV уникальны

Python – нужна помощь при вычислении значения параметра в excel

Ошибка компиляции, требуемый объект

Я хочу удалить строки повторяющихся значений, включая orignal в excel sheet

Создайте новые листы из диапазона и разрешите использовать «IfElse» из диапазона смещения, чтобы заставить новый лист содержать

Excel 2010 PowerPivot – использование результата сводной таблицы в качестве входа для второго PowerPivot

Объединение строк на основе столбца, сохранение остальной части строки

Формат тела электронной почты, отправленный Excel VBA

CountIf не считая значений, полученных из формулы

VBA HTML Scraping – «.innertext» из сложной таблицы

Давайте будем гением компьютера.