Delphi 与 Excel VBA

Question

请问：如何将以下VBA代码转成Delphi代码VBA代码如下（复制选中区域Range("B3:B18")，条件粘贴其格式至Range("H5")）Sub Macro1()
'
' Macro1 Macro
' 宏由 yuant 录制，时间: 2009-12-14
''
    Range("B3:B18").Select
    Selection.Copy
    Range("H5").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
End Sub
Delphi代码如下varbegin
    vXlSheet.Range['A3:B18'].Copy;
    vXlSheet.Range['X3:X3'].PasteSpecial;//此处不能粘贴格式，而是把所有信息都粘贴过来了
end;