在VBScript中复制excel范围并仅粘贴值（pasteSpecial）和跳过空白

我需要从一个源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 

但我需要它来粘贴值和跳过空白复制的单元格（即不想覆盖或replace与复制范围的单元格）。 如何实现这一点？

任何帮助将不胜感激

Answer 1

嗨Ranjan最后一些如何得到它解决了正确的方法来使用粘贴特殊的VB脚本是

Selection.PasteSpecial -4163，-4142，True，False

-4163 – 用于XlPastValues -4142 – 用于操作：= xlNone True – 用于跳过空白False – 转置