1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
|
vMSExcel = Variant::CreateObject("Excel.Application");
vMSExcel.OlePropertySet("Visible", true);
vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
vXLWorkbook = vXLWorkbooks.OleFunction("Add");
vSheetName = "Feuil1";
vWorksheet = vXLWorkbook.OlePropertyGet("Worksheets",vSheetName);
vWsRange="A1:A6";
vRange=vWorksheet.OlePropertyGet("Range", vWsRange);
// jusque ici tout vas bien
vValue="-4108";
vRange.OlePropertySet("HorizontalAlignment",vValue);
vRange.OlePropertySet("VerticalAlignment",vValue); |