才子Excel操作有关问题

请教各位才子Excel操作问题
Range("A6:A20").Select
  With Selection
  .HorizontalAlignment = xlGeneral
  .VerticalAlignment = xlCenter
  .WrapText = False
  .Orientation = xlVertical
  .AddIndent = False
  .IndentLevel = 0
  .ShrinkToFit = False
  .ReadingOrder = xlContext
  .MergeCells = True
  End With

我录制的宏，With Selection End With函数应该怎么转化为OLE代码呢？

m_varSheet.OlePropertyGet("Range", "A9:A20").OleFunction(1, 1, false, 1, false, 0, false, 1, true);好像不对

[解决办法]
这个问题虽然不难，但是对于不太熟悉OLE的朋友来说，还是有点棘手。

C/C++ code

#include <comobj.hpp>void __fastcall TForm1::Button1Click(TObject *Sender){    Variant vExcelApp = CreateOleObject("Excel.Application");    // 使其可视    vExcelApp.OlePropertySet("Visible", true);    // 准备打开的文件名，请根据需要更换此文件名    String strXlsFile = "d:\\ccrun\\123.xls";    // 打开文档    vExcelApp.OlePropertyGet("Workbooks").OleFunction("Open", strXlsFile.c_str());    // 操作这个工作表    Variant vSheet = vExcelApp.OlePropertyGet("ActiveWorkbook")            .OlePropertyGet("Sheets", 1);    // 选中A9:A20的区域    vSheet.OlePropertyGet("Range", "A9:A20").OleProcedure("select");    // 针对当前选择的区域进行设置    Variant vSelect = vExcelApp.OlePropertyGet("Selection");    vSelect.OlePropertySet("HorizontalAlignment", 1);   // xlGeneral    vSelect.OlePropertySet("VerticalAlignment", -4108); // xlCenter    vSelect.OlePropertySet("WrapText", false);    vSelect.OlePropertySet("Orientation", -4166);       // xlVertical    vSelect.OlePropertySet("AddIndent", false);    vSelect.OlePropertySet("IndentLevel", 0);    vSelect.OlePropertySet("ShrinkToFit", false);    vSelect.OlePropertySet("ReadingOrder", -5002);      // xlContext    vSelect.OlePropertySet("MergeCells", true);    // 后续代码略    // ...}
[解决办法]
探讨

还有我想问一下像xlContext = -5002这些常量怎么能知道它们的具体值是多少呢？