Скопируйте диапазон excel и вставьте только значения (pasteSpecial) с пробелами в VBScript

Question

Мне нужно скопировать некоторый диапазон excel из листа исходного файла excel и вставить его на лист целевого файла excel, пропуская пустые ячейки, скопированные из исходного файла excel.

Приведенный ниже код отлично работает в VBA, как написать эквивалентный код в VBScript?

Selection.Copy 
Sheets("Sheet1").Select 
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=True, Transpose:=False 

Я знаю, что код для вставки, имеющий только значения, равен «-4163». Ниже фрагмент кода работает отлично в этом случае,

sourceWorkbook.Worksheets(1).UsedRange.Copy 
targetWorkbook.Worksheets(1).Range("A1").PasteSpecial -4163 

Но мне это нужно, чтобы вставить значения и пропускать пустые скопированные ячейки (т.е. не требуется перезаписать или заменить клетки скопированного диапазона). Как это достичь?

Любая помощь будет принята с благодарностью

Answer 1

Привет Ranjan Наконец, некоторые, как мы получили это решает правильно использовать пасту специальный в VB скрипт

Selection.PasteSpecial -4163, -4142, правда, Ложные

-4163 - для XlPastValues ​​ -4142 - для работы: = xlNone True - для пропуска Пробелы Ложные - Транспонирование