Иногда приходится копировать информацию из сайта и вставлять ее в Excel. На первый взгляд, нет ничего сложного в этих нехитрых действиях – копирование – переход в Excel, поиск свободной ячейки, вставка данных. Но когда эти действия приходится совершать несколько десятков а то и сотни раз – это немного утомляет и даже раздражает. И очень хочется свести к минимуму количество действий в этой несложной схеме.
А именно, чтобы при нажатии стандартного сочетания клавиш Ctrl + C — скопированное значение само помещалось в нужный файл в нужную ячейку.
Для реализации данной задачи напишем процедуру ClipboardShow, которая проверяет содержимое буфера обмена каждую секунду, и если оно отличалось от предыдущего значения, то заносится в файл в ячейку, следующую за последней заполненной.

Теперь скопированное значение из буфера обмена будет вставляться последовательно ячейка за ячейкой в нужный диапазон.
В нашем примере этот диапазон содержит 50 строк и 10 столбцов («A1:J50»).
Думаю, данная процедура облегчит жизнь тем, кому приходится собирать различную информацию из сайтов или других программ. Нет необходимости прыгать из программы в программу, из всех действий оставим только копирование, все остальное макрос сделает сам.

Примечание: для работы с буфером обмена должна быть установлена ссылка на библиотеку Microsoft Forms 2.0 Object Library