Delphi控制Excel排序（实例）

Excel TypeLib(Excel9.olb) /// 全部的请参看 Excel9.OLB 文件 ,下面只是一些常量定义！ Excel; // Microsoft Excel 9.0 Object Library Enum Constants; xlAll = $FFFFEFF8; xlAutomatic = $FFFFEFF7; xlBoth = 1; xlCenter = $FFFFEFF4; xlChecker = 9; xlCircle = 8; xlCorner = 2; xlCrissCross = 16; xlCross = 4; xlDiamond = 2; xlDistributed = $FFFFEFEB; xlDoubleAccounting = 5; xlFixedValue = 1; xlFormats = $FFFFEFE6; xlGray16 = 17; xlGray8 = 18; xlGrid = 15; xlHigh = $FFFFEFE1; xlInside = 2; xlJustify = $FFFFEFDE; xlLightDown = 13; xlLightHorizontal = 11; xlLightUp = 14; xlLightVertical = 12; xlLow = $FFFFEFDA; xlManual = $FFFFEFD9; xlMinusValues = 3; xlModule = $FFFFEFD3; xlNextToAxis = 4; xlNone = $FFFFEFD2; xlNotes = $FFFFEFD0; xlOff = $FFFFEFCE; xlOn = 1; xlPercent = 2; xlPlus = 9; xlPlusValues = 2; xlSemiGray75 = 10; xlShowLabel = 4; xlShowLabelAndPercent = 5; xlShowPercent = 3; xlShowValue = 2; xlSimple = $FFFFEFC6; xlSingle = 2; xlSingleAccounting = 4; xlSolid = 1; xlSquare = 1; xlStar = 5; xlStError = 4; xlToolbarButton = 2; xlTriangle = 3; xlGray25 = $FFFFEFE4; xlGray50 = $FFFFEFE3; xlGray75 = $FFFFEFE2; xlBottom = $FFFFEFF5; xlLeft = $FFFFEFDD; xlRight = $FFFFEFC8; xlTop = $FFFFEFC0; xl3DBar = $FFFFEFFD; xl3DSurface = $FFFFEFF9; xlBar = 2; xlColumn = 3; xlCombination = $FFFFEFF1; xlCustom = $FFFFEFEE; xlDefaultAutoFormat = -1; xlMaximum = 2; xlMinimum = 4; xlOpaque = 3; xlTransparent = 2; xlBidi = $FFFFEC78; xlLatin = $FFFFEC77; xlContext = $FFFFEC76; xlLTR = $FFFFEC75; xlRTL = $FFFFEC74; xlFullScript = 1; xlPartialScript = 2; xlMixedScript = 3; xlMixedAuthorizedScript = 4; xlVisualCursor = 2; xlLogicalCursor = 1; xlSystem = 1; xlPartial = 3; xlHindiNumerals = 3; xlBidiCalendar = 3; xlGregorian = 2; xlComplete = 4; xlScale = 3; xlClosed = 3; xlColor1 = 7; xlColor2 = 8; xlColor3 = 9; xlConstants = 2; xlContents = 2; xlBelow = 1; xlCascade = 7; xlCenterAcrossSelection = 7; xlChart4 = 2; xlChartSeries = 17; xlChartShort = 6; xlChartTitles = 18; xlClassic1 = 1; xlClassic2 = 2; xlClassic3 = 3; xl3DEffects1 = 13; xl3DEffects2 = 14; xlAbove = 0; xlAccounting1 = 4; xlAccounting2 = 5; xlAccounting3 = 6; xlAccounting4 = 17; xlAdd = 2; xlDebugCodePane = 13; xlDesktop = 9; xlDirect = 1; xlDivide = 5; xlDoubleClosed = 5; xlDoubleOpen = 4; xlDoubleQuote = 1; xlEntireChart = 20; xlExcelMenus = 1; xlExtended = 3; xlFill = 5; xlFirst = 0; xlFloating = 5; xlFormula = 5; xlGeneral = 1; xlGridline = 22; xlIcons = 1; xlImmediatePane = 12; xlInteger = 2; xlLast = 1; xlLastCell = 11; xlList1 = 10; xlList2 = 11; xlList3 = 12; xlLocalFormat1 = 15; xlLocalFormat2 = 16; xlLong = 3; xlLotusHelp = 2; xlMacrosheetCell = 7; xlMixed = 2; xlMultiply = 4; xlNarrow = 1; xlNoDocuments = 3; xlOpen = 2; xlOutside = 3; xlReference = 4; xlSemiautomatic = 2; xlShort = 1; xlSingleQuote = 2; xlStrict = 2; xlSubtract = 3; xlTextBox = 16; xlTiled = 1; xlTitleBar = 8; xlToolbar = 1; xlVisible = 12; xlWatchPane = 11; xlWide = 3; xlWorkbookTab = 6; xlWorksheet4 = 1; xlWorksheetCell = 3; xlWorksheetShort = 5; xlAllExceptBorders = 6; xlLeftToRight = 2; xlTopToBottom = 1; xlVeryHidden = 2; xlDrawingObject = 14; Enum XlCreator; xlCreatorCode = $5843454C; Enum XlChartGallery; xlBuiltIn = 21; xlUserDefined = 22; xlAnyGallery = 23; Enum XlColorIndex; xlColorIndexAutomatic = $FFFFEFF7; xlColorIndexNone = $FFFFEFD2; Enum XlEndStyleCap; xlCap = 1; xlNoCap = 2; Enum XlRowCol; xlColumns = 2; xlRows = 1; Enum XlScaleType; xlScaleLinear = $FFFFEFDC; xlScaleLogarithmic = $FFFFEFDB; Enum XlDataSeriesType; xlAutoFill = 4; xlChronological = 3; xlGrowth = 2; xlDataSeriesLinear = $FFFFEFDC; Enum XlAxisCrosses; xlAxisCrossesAutomatic = $FFFFEFF7; xlAxisCrossesCustom = $FFFFEFEE; xlAxisCrossesMaximum = 2; xlAxisCrossesMinimum = 4; Enum XlAxisGroup; xlPrimary = 1; xlSecondary = 2; Enum XlBackground; xlBackgroundAutomatic = $FFFFEFF7; xlBackgroundOpaque = 3; xlBackgroundTransparent = 2; Enum XlWindowState; xlMaximized = $FFFFEFD7; xlMinimized = $FFFFEFD4; xlNormal = $FFFFEFD1; Enum XlAxisType; xlCategory = 1; xlSeriesAxis = 3; xlValue = 2; Enum XlArrowHeadLength; xlArrowHeadLengthLong = 3; xlArrowHeadLengthMedium = $FFFFEFD6; xlArrowHeadLengthShort = 1; Enum XlVAlign; xlVAlignBottom = $FFFFEFF5; xlVAlignCenter = $FFFFEFF4; xlVAlignDistributed = $FFFFEFEB; xlVAlignJustify = $FFFFEFDE; xlVAlignTop = $FFFFEFC0; Enum XlTickMark; xlTickMarkCross = 4; xlTickMarkInside = 2; xlTickMarkNone = $FFFFEFD2; xlTickMarkOutside = 3; Enum XlErrorBarDirection; xlX = $FFFFEFB8; xlY = 1; Enum XlErrorBarInclude; xlErrorBarIncludeBoth = 1; xlErrorBarIncludeMinusValues = 3; xlErrorBarIncludeNone = $FFFFEFD2; xlErrorBarIncludePlusValues = 2; Enum XlDisplayBlanksAs; xlInterpolated = 3; xlNotPlotted = 1; xlZero = 2; Enum XlArrowHeadStyle; xlArrowHeadStyleClosed = 3; xlArrowHeadStyleDoubleClosed = 5; xlArrowHeadStyleDoubleOpen = 4; xlArrowHeadStyleNone = $FFFFEFD2; xlArrowHeadStyleOpen = 2; Enum XlArrowHeadWidth; xlArrowHeadWidthMedium = $FFFFEFD6; xlArrowHeadWidthNarrow = 1; xlArrowHeadWidthWide = 3; Enum XlHAlign; xlHAlignCenter = $FFFFEFF4; xlHAlignCenterAcrossSelection = 7; xlHAlignDistributed = $FFFFEFEB; xlHAlignFill = 5; xlHAlignGeneral = 1; xlHAlignJustify = $FFFFEFDE; xlHAlignLeft = $FFFFEFDD; xlHAlignRight = $FFFFEFC8; Enum XlTickLabelPosition; xlTickLabelPositionHigh = $FFFFEFE1; xlTickLabelPositionLow = $FFFFEFDA; xlTickLabelPositionNextToAxis = 4; xlTickLabelPositionNone = $FFFFEFD2; Enum XlLegendPosition; xlLegendPositionBottom = $FFFFEFF5; xlLegendPositionCorner = 2; xlLegendPositionLeft = $FFFFEFDD; xlLegendPositionRight = $FFFFEFC8; xlLegendPositionTop = $FFFFEFC0; Enum XlChartPictureType; xlStackScale = 3; xlStack = 2; xlStretch = 1; Enum XlChartPicturePlacement; xlSides = 1; xlEnd = 2; xlEndSides = 3; xlFront = 4; xlFrontSides = 5; xlFrontEnd = 6; xlAllFaces = 7; Enum XlOrientation; xlDownward = $FFFFEFB6; xlHorizontal = $FFFFEFE0; xlUpward = $FFFFEFB5; xlVertical = $FFFFEFBA; Enum XlTickLabelOrientation; xlTickLabelOrientationAutomatic = $FFFFEFF7; xlTickLabelOrientationDownward = $FFFFEFB6; xlTickLabelOrientationHorizontal = $FFFFEFE0; xlTickLabelOrientationUpward = $FFFFEFB5; xlTickLabelOrientationVertical = $FFFFEFBA; Enum XlBorderWeight; xlHairline = 1; xlMedium = $FFFFEFD6; xlThick = 4; xlThin = 2; Enum XlDataSeriesDate; xlDay = 1; xlMonth = 3; xlWeekday = 2; xlYear = 4; Enum XlUnderlineStyle; xlUnderlineStyleDouble = $FFFFEFE9; xlUnderlineStyleDoubleAccounting = 5; xlUnderlineStyleNone = $FFFFEFD2; xlUnderlineStyleSingle = 2