Seite 4 von 18
Re: ExcelFunktionen PureDisphelper / COMate
Verfasst: 27.09.2010 22:28
von Falko
marco2007 hat geschrieben:Noch ein kleiner Vorschlag: Seite 4? Der tolle Include-Code sollte im ersten Posting eines Threads sein
Ich habe jetzt beide Excelfunktionen für Disphelper und COMatePlus gesplittet, sodass die jeweiligen PB-Programme nun bei beiden Threads,
wie gewünscht, an erster Stelle stehen.
Ab sofort könnt ihr nun in den neuen Thread zu den Excelfunktionen hier weiter posten. Um den alten Source zu Puredisphelper, der nicht
mehr aktuell ist, nicht in Vergessenheit geraten zu lassen, bleibt der folgende Link weiterhin offen.
Zu ExcelFunktionen PureDisphelper bitte hier auswählen.
Gruß Falko
Re: ExcelFunktionen COMatePlus
Verfasst: 02.10.2010 17:28
von ThoPie
Hallo Falko,
die Trennung zwischen PureDishelper und COMate ist eine gute Idee. Nun aber zu meiner Frage:
Wie kann ich mit SetFont() eine Zelle Fett und Unterstrichen formatieren?
Vielleicht wäre auch eine Auftrennung der Prozedur SetFont() in z.B.:
SetFont()
SetFontSize()
SetFontStyle()
SetAlignment()
sinnvoll?
ThoPie
Re: ExcelFunktionen COMatePlus
Verfasst: 03.10.2010 14:52
von Falko
Das lässt sich machen. Obwohl, ist bzw. war alles in der SetFont vorhanden und hätte angepasst werden können.
für die nächste Lib braucht ihr zusätzlich die folgende Constants.pbi mit ins Programmverzeichnis.
[Edit]
Änderung zu SetFont erledigt, siehe jetzt oben Demo und Lib
[Edit}
ExcelConstants.pbi
Code: Alles auswählen
;ExcelKonstanten Office 2003 und teilweise für 2007 angepasst
;von http://msdn.microsoft.com/en-us/library/aa221100%28office.11%29.aspx
;umgesetzt zu Purebasic Konstanten
;von Falko Lünsmann
;
;-XlApplicationInternational
#xl24HourClock = 33
#xl4DigitYears = 43
#xlAlternateArraySeparator = 16
#xlColumnSeparator = 14
#xlCountryCode = 1
#xlCountrySetting = 2
#xlCurrencyBefore = 37
#xlCurrencyCode = 25
#xlCurrencyDigits = 27
#xlCurrencyLeadingZeros = 40
#xlCurrencyMinusSign = 38
#xlCurrencyNegative = 28
#xlCurrencySpaceBefore = 36
#xlCurrencyTrailingZeros = 39
#xlDateOrder = 32
#xlDateSeparator = 17
#xlDayCode = 21
#xlDayLeadingZero = 42
#xlDecimalSeparator = 3
#xlGeneralFormatName = 26
#xlHourCode = 22
#xlLeftBrace = 12
#xlLeftBracket = 10
#xlListSeparator = 5
#xlLowerCaseColumnLetter = 9
#xlLowerCaseRowLetter = 8
#xlMDY = 44
#xlMetric = 35
#xlMinuteCode = 23
#xlMonthCode = 20
#xlMonthLeadingZero = 41
#xlMonthNameChars = 30
#xlNoncurrencyDigits = 29
#xlNonEnglishFunctions = 34
#xlRightBrace = 13
#xlRightBracket = 11
#xlRowSeparator = 15
#xlSecondCode = 24
#xlThousandsSeparator = 4
#xlTimeLeadingZero = 45
#xlTimeSeparator = 18
#xlUpperCaseColumnLetter = 7
#xlUpperCaseRowLetter = 6
#xlWeekdayNameChars = 31
#xlYearCode = 19
;-Excelformat
#xlOpenXMLWorkbook = 51; xlsx
#xlOpenXMLWorkbookMacroEnabled = 53 ;xlsm
#xlExcel8 = 56;xls
#xlExcel12 = 50;xlsb
;-XlApplyNamesOrder
#xlColumnThenRow = 2
#xlRowThenColumn = 1
;-XlArabicModes
#xlArabicBothStrict = 3
#xlArabicNone = 0
#xlArabicStrictAlefHamza = 1
#xlArabicStrictFinalYaa = 2
;-XlArrangeStyle
#xlArrangeStyleCascade = 7
#xlArrangeStyleHorizontal = -4128
#xlArrangeStyleTiled = 1
#xlArrangeStyleVertical = -4166
;-XlArrowHeadLength
#xlArrowHeadLengthLong = 3
#xlArrowHeadLengthMedium = -4138
#xlArrowHeadLengthShort = 1
;-XlArrowHeadStyle
#xlArrowHeadStyleClosed = 3
#xlArrowHeadStyleDoubleClosed = 5
#xlArrowHeadStyleDoubleOpen = 4
#xlArrowHeadStyleNone = -4142
#xlArrowHeadStyleOpen = 2
;-XlArrowHeadWidth
#xlArrowHeadWidthMedium = -4138
#xlArrowHeadWidthNarrow = 1
#xlArrowHeadWidthWide = 3
;-XlAutoFillType
#xlFillCopy = 1
#xlFillDays = 5
#xlFillDefault = 0
#xlFillFormats = 3
#xlFillMonths = 7
#xlFillSeries = 2
#xlFillValues = 4
#xlFillWeekdays = 6
#xlFillYears = 8
#xlGrowthTrend = 10
#xlLinearTrend = 9
;-XlAutoFilterOperator
#xlAnd = 1
#xlBottom10Items = 4
#xlBottom10Percent = 6
#xlOr = 2
#xlTop10Items = 3
#xlTop10Percent = 5
;-XlAxisCrosses
#xlAxisCrossesAutomatic = -4105
#xlAxisCrossesCustom = -4114
#xlAxisCrossesMaximum = 2
#xlAxisCrossesMinimum = 4
;-XlAxisGroup
#xlPrimary = 1
#xlSecondary = 2
;-XlAxisType
#xlCategory = 1
#xlSeriesAxis = 3
#xlValue = 2
;-XlBackground
#xlBackgroundAutomatic = -4105
#xlBackgroundOpaque = 3
#xlBackgroundTransparent = 2
;-XlBarShape
#xlBox = 0
#xlConeToMax = 5
#xlConeToPoint = 4
#xlCylinder = 3
#xlPyramidToMax = 2
#xlPyramidToPoint = 1
;-XlBordersIndex
#xlDiagonalDown = 5
#xlDiagonalUp = 6
#xlEdgeBottom = 9
#xlEdgeLeft = 7
#xlEdgeRight = 10
#xlEdgeTop = 8
#xlInsideHorizontal = 12
#xlInsideVertical = 11
;-XlBorderWeight
#xlHairline = 1
#xlMedium = -4138
#xlThick = 4
#xlThin = 2
;-XlBuiltInDialog
#_xlDialogChartSourceData = 541
#_xlDialogPhonetic = 538
#xlDialogActivate = 103
#xlDialogActiveCellFont = 476
#xlDialogAddChartAutoformat = 390
#xlDialogAddinManager = 321
#xlDialogAlignment = 43
#xlDialogApplyNames = 133
#xlDialogApplyStyle = 212
#xlDialogAppMove = 170
#xlDialogAppSize = 171
#xlDialogArrangeAll = 12
#xlDialogAssignToObject = 213
#xlDialogAssignToTool = 293
#xlDialogAttachText = 80
#xlDialogAttachToolbars = 323
#xlDialogAutoCorrect = 485
#xlDialogAxes = 78
#xlDialogBorder = 45
#xlDialogCalculation = 32
#xlDialogCellProtection = 46
#xlDialogChangeLink = 166
#xlDialogChartAddData = 392
#xlDialogChartLocation = 527
#xlDialogChartOptionsDataLabelMultiple = 724
#xlDialogChartOptionsDataLabels = 505
#xlDialogChartOptionsDataTable = 506
#xlDialogChartSourceData = 540
#xlDialogChartTrend = 350
#xlDialogChartType = 526
#xlDialogChartWizard = 288
#xlDialogCheckboxProperties = 435
#xlDialogClear = 52
#xlDialogColorPalette = 161
#xlDialogColumnWidth = 47
#xlDialogCombination = 73
#xlDialogConditionalFormatting = 583
#xlDialogConsolidate = 191
#xlDialogCopyChart = 147
#xlDialogCopyPicture = 108
#xlDialogCreateList = 796
#xlDialogCreateNames = 62
#xlDialogCreatePublisher = 217
#xlDialogCustomizeToolbar = 276
#xlDialogCustomViews = 493
#xlDialogDataDelete = 36
#xlDialogDataLabel = 379
#xlDialogDataLabelMultiple = 723
#xlDialogDataSeries = 40
#xlDialogDataValidation = 525
#xlDialogDefineName = 61
#xlDialogDefineStyle = 229
#xlDialogDeleteFormat = 111
#xlDialogDeleteName = 110
#xlDialogDemote = 203
#xlDialogDisplay = 27
#xlDialogEditboxProperties = 438
#xlDialogEditColor = 223
#xlDialogEditDelete = 54
#xlDialogEditionOptions = 251
#xlDialogEditSeries = 228
#xlDialogErrorbarX = 463
#xlDialogErrorbarY = 464
#xlDialogErrorChecking = 732
#xlDialogEvaluateFormula = 709
#xlDialogExternalDataProperties = 530
#xlDialogExtract = 35
#xlDialogFileDelete = 6
#xlDialogFileSharing = 481
#xlDialogFillGroup = 200
#xlDialogFillWorkgroup = 301
#xlDialogFilter = 447
#xlDialogFilterAdvanced = 370
#xlDialogFindFile = 475
#xlDialogFont = 26
#xlDialogFontProperties = 381
#xlDialogFormatAuto = 269
#xlDialogFormatChart = 465
#xlDialogFormatCharttype = 423
#xlDialogFormatFont = 150
#xlDialogFormatLegend = 88
#xlDialogFormatMain = 225
#xlDialogFormatMove = 128
#xlDialogFormatNumber = 42
#xlDialogFormatOverlay = 226
#xlDialogFormatSize = 129
#xlDialogFormatText = 89
#xlDialogFormulaFind = 64
#xlDialogFormulaGoto = 63
#xlDialogFormulaReplace = 130
#xlDialogFunctionWizard = 450
#xlDialogGallery3dArea = 193
#xlDialogGallery3dBar = 272
#xlDialogGallery3dColumn = 194
#xlDialogGallery3dLine = 195
#xlDialogGallery3dPie = 196
#xlDialogGallery3dSurface = 273
#xlDialogGalleryArea = 67
#xlDialogGalleryBar = 68
#xlDialogGalleryColumn = 69
#xlDialogGalleryCustom = 388
#xlDialogGalleryDoughnut = 344
#xlDialogGalleryLine = 70
#xlDialogGalleryPie = 71
#xlDialogGalleryRadar = 249
#xlDialogGalleryScatter = 72
#xlDialogGoalSeek = 198
#xlDialogGridlines = 76
#xlDialogImportTextFile = 666
#xlDialogInsert = 55
#xlDialogInsertHyperlink = 596
#xlDialogInsertNameLabel = 496
#xlDialogInsertObject = 259
#xlDialogInsertPicture = 342
#xlDialogInsertTitle = 380
#xlDialogLabelProperties = 436
#xlDialogListboxProperties = 437
#xlDialogMacroOptions = 382
#xlDialogMailEditMailer = 470
#xlDialogMailLogon = 339
#xlDialogMailNextLetter = 378
#xlDialogMainChart = 85
#xlDialogMainChartType = 185
#xlDialogMenuEditor = 322
#xlDialogMove = 262
#xlDialogMyPermission = 834
#xlDialogNew = 119
#xlDialogNewWebQuery = 667
#xlDialogNote = 154
#xlDialogObjectProperties = 207
#xlDialogObjectProtection = 214
#xlDialogOpen = 1
#xlDialogOpenLinks = 2
#xlDialogOpenMail = 188
#xlDialogOpenText = 441
#xlDialogOptionsCalculation = 318
#xlDialogOptionsChart = 325
#xlDialogOptionsEdit = 319
#xlDialogOptionsGeneral = 356
#xlDialogOptionsListsAdd = 458
#xlDialogOptionsME = 647
#xlDialogOptionsTransition = 355
#xlDialogOptionsView = 320
#xlDialogOutline = 142
#xlDialogOverlay = 86
#xlDialogOverlayChartType = 186
#xlDialogPageSetup = 7
#xlDialogParse = 91
#xlDialogPasteNames = 58
#xlDialogPasteSpecial = 53
#xlDialogPatterns = 84
#xlDialogPermission = 832
#xlDialogPhonetic = 656
#xlDialogPivotCalculatedField = 570
#xlDialogPivotCalculatedItem = 572
#xlDialogPivotClientServerSet = 689
#xlDialogPivotFieldGroup = 433
#xlDialogPivotFieldProperties = 313
#xlDialogPivotFieldUngroup = 434
#xlDialogPivotShowPages = 421
#xlDialogPivotSolveOrder = 568
#xlDialogPivotTableOptions = 567
#xlDialogPivotTableWizard = 312
#xlDialogPlacement = 300
#xlDialogPrint = 8
#xlDialogPrinterSetup = 9
#xlDialogPrintPreview = 222
#xlDialogPromote = 202
#xlDialogProperties = 474
#xlDialogPropertyFields = 754
#xlDialogProtectDocument = 28
#xlDialogProtectSharing = 620
#xlDialogPublishAsWebPage = 653
#xlDialogPushbuttonProperties = 445
#xlDialogReplaceFont = 134
#xlDialogRoutingSlip = 336
#xlDialogRowHeight = 127
#xlDialogRun = 17
#xlDialogSaveAs = 5
#xlDialogSaveCopyAs = 456
#xlDialogSaveNewObject = 208
#xlDialogSaveWorkbook = 145
#xlDialogSaveWorkspace = 285
#xlDialogScale = 87
#xlDialogScenarioAdd = 307
#xlDialogScenarioCells = 305
#xlDialogScenarioEdit = 308
#xlDialogScenarioMerge = 473
#xlDialogScenarioSummary = 311
#xlDialogScrollbarProperties = 420
#xlDialogSearch = 731
#xlDialogSelectSpecial = 132
#xlDialogSendMail = 189
#xlDialogSeriesAxes = 460
#xlDialogSeriesOptions = 557
#xlDialogSeriesOrder = 466
#xlDialogSeriesShape = 504
#xlDialogSeriesX = 461
#xlDialogSeriesY = 462
#xlDialogSetBackgroundPicture = 509
#xlDialogSetPrintTitles = 23
#xlDialogSetUpdateStatus = 159
#xlDialogShowDetail = 204
#xlDialogShowToolbar = 220
#xlDialogSize = 261
#xlDialogSort = 39
#xlDialogSortSpecial = 192
#xlDialogSplit = 137
#xlDialogStandardFont = 190
#xlDialogStandardWidth = 472
#xlDialogStyle = 44
#xlDialogSubscribeTo = 218
#xlDialogSubtotalCreate = 398
#xlDialogSummaryInfo = 474
#xlDialogTable = 41
#xlDialogTabOrder = 394
#xlDialogTextToColumns = 422
#xlDialogUnhide = 94
#xlDialogUpdateLink = 201
#xlDialogVbaInsertFile = 328
#xlDialogVbaMakeAddin = 478
#xlDialogVbaProcedureDefinition = 330
#xlDialogView3d = 197
#xlDialogWebOptionsBrowsers = 773
#xlDialogWebOptionsEncoding = 686
#xlDialogWebOptionsFiles = 684
#xlDialogWebOptionsFonts = 687
#xlDialogWebOptionsGeneral = 683
#xlDialogWebOptionsPictures = 685
#xlDialogWindowMove = 14
#xlDialogWindowSize = 13
#xlDialogWorkbookAdd = 281
#xlDialogWorkbookCopy = 283
#xlDialogWorkbookInsert = 354
#xlDialogWorkbookMove = 282
#xlDialogWorkbookName = 386
#xlDialogWorkbookNew = 302
#xlDialogWorkbookOptions = 284
#xlDialogWorkbookProtect = 417
#xlDialogWorkbookTabSplit = 415
#xlDialogWorkbookUnhide = 384
#xlDialogWorkgroup = 199
#xlDialogWorkspace = 95
#xlDialogZoom = 256
;-XlCalculatedMemberType
#xlCalculatedMember = 0
#xlCalculatedSet = 1
;-XlCalculation
#xlCalculationAutomatic = -4105
#xlCalculationManual = -4135
#xlCalculationSemiautomatic = 2
;-XlCalculationInterruptKey
#xlAnyKey = 2
#xlEscKey = 1
#xlNoKey = 0
;-XlCalculationState
#xlCalculating = 1
#xlDone = 0
#xlPending = 2
;-XlCategoryType
#xlAutomaticScale = -4105
#xlCategoryScale = 2
#xlTimeScale = 3
;-XlCellInsertionMode
#xlInsertDeleteCells = 1
#xlInsertEntireRows = 2
#xlOverwriteCells = 0
;-XlCellType
#xlCellTypeAllFormatConditions = -4172
#xlCellTypeAllValidation = -4174
#xlCellTypeBlanks = 4
#xlCellTypeComments = -4144
#xlCellTypeConstants = 2
#xlCellTypeFormulas = -4123
#xlCellTypeLastCell = 11
#xlCellTypeSameFormatConditions = -4173
#xlCellTypeSameValidation = -4175
#xlCellTypeVisible = 12
;-XlChartGallery
#xlAnyGallery = 23
#xlBuiltIn = 21
#xlUserDefined = 22
;-XlChartItem
#xlAxis = 21
#xlAxisTitle = 17
#xlChartArea = 2
#xlChartTitle = 4
#xlCorners = 6
#xlDataLabel = 0
#xlDataTable = 7
#xlDisplayUnitLabel = 30
#xlDownBars = 20
#xlDropLines = 26
#xlErrorBars = 9
#xlFloor = 23
#xlHiLoLines = 25
#xlLeaderLines = 29
#xlLegend = 24
#xlLegendEntry = 12
#xlLegendKey = 13
#xlMajorGridlines = 15
#xlMinorGridlines = 16
#xlNothing = 28
#xlPivotChartDropZone = 32
#xlPivotChartFieldButton = 31
#xlPlotArea = 19
#xlRadarAxisLabels = 27
#xlSeries = 3
#xlSeriesLines = 22
#xlShape = 14
#xlTrendline = 8
#xlUpBars = 18
#xlWalls = 5
#xlXErrorBars = 10
#xlYErrorBars = 11
;-XlChartLocation
#xlLocationAsNewSheet = 1
#xlLocationAsObject = 2
#xlLocationAutomatic = 3
;-XlChartPicturePlacement
#xlAllFaces = 7
#xlEnd = 2
#xlEndSides = 3
#xlFront = 4
#xlFrontEnd = 6
#xlFrontSides = 5
#xlSides = 1
;-XlChartPictureType
#xlStack = 2
#xlStackScale = 3
#xlStretch = 1
;-XlChartSplitType
#xlSplitByCustomSplit = 4
#xlSplitByPercentValue = 3
#xlSplitByPosition = 1
#xlSplitByValue = 2
;-XlChartType
#xl3DArea = -4098
#xl3DAreaStacked = 78
#xl3DAreaStacked100 = 79
#xl3DBarClustered = 60
#xl3DBarStacked = 61
#xl3DBarStacked100 = 62
#xl3DColumn = -4100
#xl3DColumnClustered = 54
#xl3DColumnStacked = 55
#xl3DColumnStacked100 = 56
#xl3DLine = -4101
#xl3DPie = -4102
#xl3DPieExploded = 70
#xlArea = 1
#xlAreaStacked = 76
#xlAreaStacked100 = 77
#xlBarClustered = 57
#xlBarOfPie = 71
#xlBarStacked = 58
#xlBarStacked100 = 59
#xlBubble = 15
#xlBubble3DEffect = 87
#xlColumnClustered = 51
#xlColumnStacked = 52
#xlColumnStacked100 = 53
#xlConeBarClustered = 102
#xlConeBarStacked = 103
#xlConeBarStacked100 = 104
#xlConeCol = 105
#xlConeColClustered = 99
#xlConeColStacked = 100
#xlConeColStacked100 = 101
#xlCylinderBarClustered = 95
#xlCylinderBarStacked = 96
#xlCylinderBarStacked100 = 97
#xlCylinderCol = 98
#xlCylinderColClustered = 92
#xlCylinderColStacked = 93
#xlCylinderColStacked100 = 94
#xlDoughnut = -4120
#xlDoughnutExploded = 80
#xlLine = 4
#xlLineMarkers = 65
#xlLineMarkersStacked = 66
#xlLineMarkersStacked100 = 67
#xlLineStacked = 63
#xlLineStacked100 = 64
#xlPie = 5
#xlPieExploded = 69
#xlPieOfPie = 68
#xlPyramidBarClustered = 109
#xlPyramidBarStacked = 110
#xlPyramidBarStacked100 = 111
#xlPyramidCol = 112
#xlPyramidColClustered = 106
#xlPyramidColStacked = 107
#xlPyramidColStacked100 = 108
#xlRadar = -4151
#xlRadarFilled = 82
#xlRadarMarkers = 81
#xlStockHLC = 88
#xlStockOHLC = 89
#xlStockVHLC = 90
#xlStockVOHLC = 91
#xlSurface = 83
#xlSurfaceTopView = 85
#xlSurfaceTopViewWireframe = 86
#xlSurfaceWireframe = 84
#xlXYScatter = -4169
#xlXYScatterLines = 74
#xlXYScatterLinesNoMarkers = 75
#xlXYScatterSmooth = 72
#xlXYScatterSmoothNoMarkers = 73
;-XlClipboardFormat
#xlClipboardFormatBIFF = 8
#xlClipboardFormatBIFF2 = 18
#xlClipboardFormatBIFF3 = 20
#xlClipboardFormatBIFF4 = 30
#xlClipboardFormatBinary = 15
#xlClipboardFormatBitmap = 9
#xlClipboardFormatCGM = 13
#xlClipboardFormatCSV = 5
#xlClipboardFormatDIF = 4
#xlClipboardFormatDspText = 12
#xlClipboardFormatEmbeddedObject = 21
#xlClipboardFormatEmbedSource = 22
#xlClipboardFormatLink = 11
#xlClipboardFormatLinkSource = 23
#xlClipboardFormatLinkSourceDesc = 32
#xlClipboardFormatMovie = 24
#xlClipboardFormatNative = 14
#xlClipboardFormatObjectDesc = 31
#xlClipboardFormatObjectLink = 19
#xlClipboardFormatOwnerLink = 17
#xlClipboardFormatPICT = 2
#xlClipboardFormatPrintPICT = 3
#xlClipboardFormatRTF = 7
#xlClipboardFormatScreenPICT = 29
#xlClipboardFormatStandardFont = 28
#xlClipboardFormatStandardScale = 27
#xlClipboardFormatSYLK = 6
#xlClipboardFormatTable = 16
#xlClipboardFormatText = 0
#xlClipboardFormatToolFace = 25
#xlClipboardFormatToolFacePICT = 26
#xlClipboardFormatVALU = 1
#xlClipboardFormatWK1 = 10
;-XlCmdType
#xlCmdCube = 1
#xlCmdDefault = 4
#xlCmdList = 5
#xlCmdSql = 2
#xlCmdTable = 3
;-XlColorIndex
#xlColorIndexAutomatic = -4105
#xlColorIndexNone = -4142
;-XlColumnDataType
#xlDMYFormat = 4
#xlDYMFormat = 7
#xlEMDFormat = 10
#xlGeneralFormat = 1
#xlMDYFormat = 3
#xlMYDFormat = 6
#xlSkipColumn = 9
#xlTextFormat = 2
#xlYDMFormat = 8
#xlYMDFormat = 5
;-XlCommandUnderlines
#xlCommandUnderlinesAutomatic = -4105
#xlCommandUnderlinesOff = -4146
#xlCommandUnderlinesOn = 1
;-XlCommentDisplayMode
#xlCommentAndIndicator = 1
#xlCommentIndicatorOnly = -1
#xlNoIndicator = 0
;-XlConsolidationFunction
#xlAverage = -4106
#xlCount = -4112
#xlCountNums = -4113
#xlMax = -4136
#xlMin = -4139
#xlProduct = -4149
#xlStDev = -4155
#xlStDevP = -4156
#xlSum = -4157
#xlUnknown = 1000
#xlVar = -4164
#xlVarP = -4165
;-XlCopyPictureFormat
#xlBitmap = 2
#xlPicture = -4147
;-XlCorruptLoad
#xlExtractData = 2
#xlNormalLoad = 0
#xlRepairFile = 1
;-XlCreator
#xlCreatorCode = 1480803660
;-XlCubeFieldType
#xlHierarchy = 1
#xlMeasure = 2
#xlSet = 3
;-XlCutCopyMode
#xlCopy = 1
#xlCut = 2
;-XlCVError
#xlErrDiv0 = 2007
#xlErrNA = 2042
#xlErrName = 2029
#xlErrNull = 2000
#xlErrNum = 2036
#xlErrRef = 2023
#xlErrValue = 2015
;-XlDataLabelPosition
#xlLabelPositionAbove = 0
#xlLabelPositionBelow = 1
#xlLabelPositionBestFit = 5
#xlLabelPositionCenter = -4108
#xlLabelPositionCustom = 7
#xlLabelPositionInsideBase = 4
#xlLabelPositionInsideEnd = 3
#xlLabelPositionLeft = -4131
#xlLabelPositionMixed = 6
#xlLabelPositionOutsideEnd = 2
#xlLabelPositionRight = -4152
;-XlDataLabelSeparator
#xlDataLabelSeparatorDefault = 1
;-XlDataLabelsType
#xlDataLabelsShowBubbleSizes = 6
#xlDataLabelsShowLabel = 4
#xlDataLabelsShowLabelAndPercent = 5
#xlDataLabelsShowNone = -4142
#xlDataLabelsShowPercent = 3
#xlDataLabelsShowValue = 2
;-XlDataSeriesDate
#xlDay = 1
#xlMonth = 3
#xlWeekday = 2
#xlYear = 4
;-XlDataSeriesType
#xlAutoFill = 4
#xlChronological = 3
#xlDataSeriesLinear = -4132
#xlGrowth = 2
;-XlDeleteShiftDirection
#xlShiftToLeft = -4159
#xlShiftUp = -4162
;-XlDirection
#xlDown = -4121
#xlToLeft = -4159
#xlToRight = -4161
#xlUp = -4162
;-XlDisplayBlanksAs
#xlInterpolated = 3
#xlNotPlotted = 1
#xlZero = 2
;-XlDisplayDrawingObjects
#xlDisplayShapes = -4104
#xlHide = 3
#xlPlaceholders = 2
;-XlDisplayUnit
#xlHundredMillions = -8
#xlHundreds = -2
#xlHundredThousands = -5
#xlMillionMillions = -10
#xlMillions = -6
#xlTenMillions = -7
#xlTenThousands = -4
#xlThousandMillions = -9
#xlThousands = -3
;-XlDVAlertStyle
#xlValidAlertInformation = 3
#xlValidAlertStop = 1
#xlValidAlertWarning = 2
;-XlDVType
#xlValidateCustom = 7
#xlValidateDate = 4
#xlValidateDecimal = 2
#xlValidateInputOnly = 0
#xlValidateList = 3
#xlValidateTextLength = 6
#xlValidateTime = 5
#xlValidateWholeNumber = 1
;-XlEditionFormat
#xlBIFF = 2
#xlPICT = 1
#xlRTF = 4
#xlVALU = 8
;-XlEditionOptionsOption
#xlAutomaticUpdate = 4
#xlCancel = 1
#xlChangeAttributes = 6
#xlManualUpdate = 5
#xlOpenSource = 3
#xlSelect = 3
#xlSendPublisher = 2
#xlUpdateSubscriber = 2
;-XlEditionType
#xlPublisher = 1
#xlSubscriber = 2
;-XlEnableCancelKey
#xlDisabled = 0
#xlErrorHandler = 2
#xlInterrupt = 1
;-XlEnableSelection
#xlNoRestrictions = 0
#xlNoSelection = -4142
#xlUnlockedCells = 1
;-XlEndStyleCap
#xlCap = 1
#xlNoCap = 2
;-XlErrorBarDirection
#xlX = -4168
#xlY = 1
;-XlErrorBarInclude
#xlErrorBarIncludeBoth = 1
#xlErrorBarIncludeMinusValues = 3
#xlErrorBarIncludeNone = -4142
#xlErrorBarIncludePlusValues = 2
;-XlErrorBarType
#xlErrorBarTypeCustom = -4114
#xlErrorBarTypeFixedValue = 1
#xlErrorBarTypePercent = 2
#xlErrorBarTypeStDev = -4155
#xlErrorBarTypeStError = 4
;-XlErrorChecks
#xlEmptyCellReferences = 7
#xlEvaluateToError = 1
#xlInconsistentFormula = 4
#xlListDataValidation = 8
#xlNumberAsText = 3
#xlOmittedCells = 5
#xlTextDate = 2
#xlUnlockedFormulaCells = 6
;-XlFileAccess
#xlReadOnly = 3
#xlReadWrite = 2
;-XlFileFormat
#xlAddIn = 18
#xlCSV = 6
#xlCSVMac = 22
#xlCSVMSDOS = 24
#xlCSVWindows = 23
#xlCurrentPlatformText = -4158
#xlDBF2 = 7
#xlDBF3 = 8
#xlDBF4 = 11
#xlDIF = 9
#xlExcel2 = 16
#xlExcel2FarEast = 27
#xlExcel3 = 29
#xlExcel4 = 33
#xlExcel4Workbook = 35
#xlExcel5 = 39
#xlExcel7 = 39
#xlExcel9795 = 43
#xlHtml = 44
#xlIntlAddIn = 26
#xlIntlMacro = 25
#xlSYLK = 2
#xlTemplate = 17
#xlTextMac = 19
#xlTextMSDOS = 21
#xlTextPrinter = 36
#xlTextWindows = 20
#xlUnicodeText = 42
#xlWebArchive = 45
#xlWJ2WD1 = 14
#xlWJ3 = 40
#xlWJ3FJ3 = 41
#xlWK1 = 5
#xlWK1ALL = 31
#xlWK1FMT = 30
#xlWK3 = 15
#xlWK3FM3 = 32
#xlWK4 = 38
#xlWKS = 4
#xlWorkbookNormal = -4143
#xlWorks2FarEast = 28
#xlWQ1 = 34
#xlXMLData = 47
#xlXMLSpreadsheet = 46
;-XlFillWith
#xlFillWithAll = -4104
#xlFillWithContents = 2
#xlFillWithFormats = -4122
;-XlFilterAction
#xlFilterCopy = 2
#xlFilterInPlace = 1
;-XlFindLookIn
#xlComments = -4144
#xlFormulas = -4123
#xlValues = -4163
;-XlFormatConditionOperator
#xlBetween = 1
#xlEqual = 3
#xlGreater = 5
#xlGreaterEqual = 7
#xlLess = 6
#xlLessEqual = 8
#xlNotBetween = 2
#xlNotEqual = 4
;-XlFormatConditionType
#xlCellValue = 1
#xlExpression = 2
;-XlFormControl
#xlButtonControl = 0
#xlCheckBox = 1
#xlDropDown = 2
#xlEditBox = 3
#xlGroupBox = 4
#xlLabel = 5
#xlListBox = 6
#xlOptionButton = 7
#xlScrollBar = 8
#xlSpinner = 9
;-XlFormulaLabel
#xlColumnLabels = 2
#xlMixedLabels = 3
#xlNoLabels = -4142
#xlRowLabels = 1
;-XlHAlign
#xlHAlignCenter = -4108
#xlHAlignCenterAcrossSelection = 7
#xlHAlignDistributed = -4117
#xlHAlignFill = 5
#xlHAlignGeneral = 1
#xlHAlignJustify = -4130
#xlHAlignLeft = -4131
#xlHAlignRight = -4152
;-XlHebrewModes
#xlHebrewFullScript = 0
#xlHebrewMixedAuthorizedScript = 3
#xlHebrewMixedScript = 2
#xlHebrewPartialScript = 1
;-XlHighlightChangesTime
#xlAllChanges = 2
#xlNotYetReviewed = 3
#xlSinceMyLastSave = 1
;-XlHtmlType
#xlHtmlCalc = 1
#xlHtmlChart = 3
#xlHtmlList = 2
#xlHtmlStatic = 0
;-XlIMEMode
#xlIMEModeAlpha = 8
#xlIMEModeAlphaFull = 7
#xlIMEModeDisable = 3
#xlIMEModeHangul = 10
#xlIMEModeHangulFull = 9
#xlIMEModeHiragana = 4
#xlIMEModeKatakana = 5
#xlIMEModeKatakanaHalf = 6
#xlIMEModeNoControl = 0
#xlIMEModeOff = 2
#xlIMEModeOn = 1
;-XlImportDataAs
#xlPivotTableReport = 1
#xlQueryTable = 0
;-XlInsertFormatOrigin
#xlFormatFromLeftOrAbove = 0
#xlFormatFromRightOrBelow = 1
;-XlInsertShiftDirection
#xlShiftDown = -4121
#xlShiftToRight = -4161
;-XlLayoutFormType
#xlOutline = 1
#xlTabular = 0
;-XlLegendPosition
#xlLegendPositionBottom = -4107
#xlLegendPositionCorner = 2
#xlLegendPositionLeft = -4131
#xlLegendPositionRight = -4152
#xlLegendPositionTop = -4160
;-XlLineStyle
#xlContinuous = 1
#xlDash = -4115
#xlDashDot = 4
#xlDashDotDot = 5
#xlDot = -4118
#xlDouble = -4119
#xlLineStyleNone = -4142
#xlSlantDashDot = 13
;-XlLink
#xlExcelLinks = 1
#xlOLELinks = 2
#xlPublishers = 5
#xlSubscribers = 6
;-XlLinkInfo
#xlEditionDate = 2
#xlLinkInfoStatus = 3
#xlUpdateState = 1
;-XlLinkInfoType
#xlLinkInfoOLELinks = 2
#xlLinkInfoPublishers = 5
#xlLinkInfoSubscribers = 6
;-XlLinkStatus
#xlLinkStatusCopiedValues = 10
#xlLinkStatusIndeterminate = 5
#xlLinkStatusInvalidName = 7
#xlLinkStatusMissingFile = 1
#xlLinkStatusMissingSheet = 2
#xlLinkStatusNotStarted = 6
#xlLinkStatusOK = 0
#xlLinkStatusOld = 3
#xlLinkStatusSourceNotCalculated = 4
#xlLinkStatusSourceNotOpen = 8
#xlLinkStatusSourceOpen = 9
;-XlLinkType
#xlLinkTypeExcelLinks = 1
#xlLinkTypeOLELinks = 2
;-XlListConflict
#xlListConflictDialog = 0
#xlListConflictDiscardAllConflicts = 2
#xlListConflictError = 3
#xlListConflictRetryAllConflicts = 1
;-XlListDataType
#xlListDataTypeCheckbox = 9
#xlListDataTypeChoice = 6
#xlListDataTypeChoiceMulti = 7
#xlListDataTypeCounter = 11
#xlListDataTypeCurrency = 4
#xlListDataTypeDateTime = 5
#xlListDataTypeHyperLink = 10
#xlListDataTypeListLookup = 8
#xlListDataTypeMultiLineRichText = 12
#xlListDataTypeMultiLineText = 2
#xlListDataTypeNone = 0
#xlListDataTypeNumber = 3
#xlListDataTypeText = 1
;-XlListObjectSourceType
#xlSrcExternal = 0
#xlSrcRange = 1
#xlSrcXml = 2
;-XlLocationInTable
#xlColumnHeader = -4110
#xlColumnItem = 5
#xlDataHeader = 3
#xlDataItem = 7
#xlPageHeader = 2
#xlPageItem = 6
#xlRowHeader = -4153
#xlRowItem = 4
#xlTableBody = 8
;-XlLookAt
#xlPart = 2
#xlWhole = 1
;-XlMailSystem
#xlMAPI = 1
#xlNoMailSystem = 0
#xlPowerTalk = 2
;-XlMarkerStyle
#xlMarkerStyleAutomatic = -4105
#xlMarkerStyleCircle = 8
#xlMarkerStyleDash = -4115
#xlMarkerStyleDiamond = 2
#xlMarkerStyleDot = -4118
#xlMarkerStyleNone = -4142
#xlMarkerStylePicture = -4147
#xlMarkerStylePlus = 9
#xlMarkerStyleSquare = 1
#xlMarkerStyleStar = 5
#xlMarkerStyleTriangle = 3
#xlMarkerStyleX = -4168
;-XlMouseButton
#xlNoButton = 0
#xlPrimaryButton = 1
#xlSecondaryButton = 2
;-XlMousePointer
#xlDefault = -4143
#xlIBeam = 3
#xlNorthwestArrow = 1
#xlWait = 2
;-XlMSApplication
#xlMicrosoftAccess = 4
#xlMicrosoftFoxPro = 5
#xlMicrosoftMail = 3
#xlMicrosoftPowerPoint = 2
#xlMicrosoftProject = 6
#xlMicrosoftSchedulePlus = 7
#xlMicrosoftWord = 1
;-XlObjectSize
#xlFitToPage = 2
#xlFullPage = 3
#xlScreenSize = 1
;-XlOLEType
#xlOLEControl = 2
#xlOLEEmbed = 1
#xlOLELink = 0
;-XlOLEVerb
#xlVerbOpen = 2
#xlVerbPrimary = 1
;-XlOrder
#xlDownThenOver = 1
#xlOverThenDown = 2
;-XlOrientation
#xlDownward = -4170
#xlHorizontal = -4128
#xlUpward = -4171
#xlVertical = -4166
;-XlPageBreak
#xlPageBreakAutomatic = -4105
#xlPageBreakManual = -4135
#xlPageBreakNone = -4142
;-XlPageBreakExtent
#xlPageBreakFull = 1
#xlPageBreakPartial = 2
;-XlPageOrientation
#xlLandscape = 2
#xlPortrait = 1
;-XlPaperSize
#xlPaper10x14 = 16
#xlPaper11x17 = 17
#xlPaperA3 = 8
#xlPaperA4 = 9
#xlPaperA4Small = 10
#xlPaperA5 = 11
#xlPaperB4 = 12
#xlPaperB5 = 13
#xlPaperCsheet = 24
#xlPaperDsheet = 25
#xlPaperEnvelope10 = 20
#xlPaperEnvelope11 = 21
#xlPaperEnvelope12 = 22
#xlPaperEnvelope14 = 23
#xlPaperEnvelope9 = 19
#xlPaperEnvelopeB4 = 33
#xlPaperEnvelopeB5 = 34
#xlPaperEnvelopeB6 = 35
#xlPaperEnvelopeC3 = 29
#xlPaperEnvelopeC4 = 30
#xlPaperEnvelopeC5 = 28
#xlPaperEnvelopeC6 = 31
#xlPaperEnvelopeC65 = 32
#xlPaperEnvelopeDL = 27
#xlPaperEnvelopeItaly = 36
#xlPaperEnvelopeMonarch = 37
#xlPaperEnvelopePersonal = 38
#xlPaperEsheet = 26
#xlPaperExecutive = 7
#xlPaperFanfoldLegalGerman = 41
#xlPaperFanfoldStdGerman = 40
#xlPaperFanfoldUS = 39
#xlPaperFolio = 14
#xlPaperLedger = 4
#xlPaperLegal = 5
#xlPaperLetter = 1
#xlPaperLetterSmall = 2
#xlPaperNote = 18
#xlPaperQuarto = 15
#xlPaperStatement = 6
#xlPaperTabloid = 3
#xlPaperUser = 256
;-XlParameterDataType
#xlParamTypeBigInt = -5
#xlParamTypeBinary = -2
#xlParamTypeBit = -7
#xlParamTypeChar = 1
#xlParamTypeDate = 9
#xlParamTypeDecimal = 3
#xlParamTypeDouble = 8
#xlParamTypeFloat = 6
#xlParamTypeInteger = 4
#xlParamTypeLongVarBinary = -4
#xlParamTypeLongVarChar = -1
#xlParamTypeNumeric = 2
#xlParamTypeReal = 7
#xlParamTypeSmallInt = 5
#xlParamTypeTime = 10
#xlParamTypeTimestamp = 11
#xlParamTypeTinyInt = -6
#xlParamTypeUnknown = 0
#xlParamTypeVarBinary = -3
#xlParamTypeVarChar = 12
#xlParamTypeWChar = -8
;-XlParameterType
#xlConstant = 1
#xlPrompt = 0
#xlRange = 2
;-XlPasteSpecialOperation
#xlPasteSpecialOperationAdd = 2
#xlPasteSpecialOperationDivide = 5
#xlPasteSpecialOperationMultiply = 4
#xlPasteSpecialOperationNone = -4142
#xlPasteSpecialOperationSubtract = 3
;-XlPasteType
#xlPasteAll = -4104
#xlPasteAllExceptBorders = 7
#xlPasteColumnWidths = 8
#xlPasteComments = -4144
#xlPasteFormats = -4122
#xlPasteFormulas = -4123
#xlPasteFormulasAndNumberFormats = 11
#xlPasteValidation = 6
#xlPasteValues = -4163
#xlPasteValuesAndNumberFormats = 12
;-XlPattern
#xlPatternAutomatic = -4105
#xlPatternChecker = 9
#xlPatternCrissCross = 16
#xlPatternDown = -4121
#xlPatternGray16 = 17
#xlPatternGray25 = -4124
#xlPatternGray50 = -4125
#xlPatternGray75 = -4126
#xlPatternGray8 = 18
#xlPatternGrid = 15
#xlPatternHorizontal = -4128
#xlPatternLightDown = 13
#xlPatternLightHorizontal = 11
#xlPatternLightUp = 14
#xlPatternLightVertical = 12
#xlPatternNone = -4142
#xlPatternSemiGray75 = 10
#xlPatternSolid = 1
#xlPatternUp = -4162
#xlPatternVertical = -4166
;-XlPhoneticAlignment
#xlPhoneticAlignCenter = 2
#xlPhoneticAlignDistributed = 3
#xlPhoneticAlignLeft = 1
#xlPhoneticAlignNoControl = 0
;-XlPhoneticCharacterType
#xlHiragana = 2
#xlKatakana = 1
#xlKatakanaHalf = 0
#xlNoConversion = 3
;-XlPictureAppearance
#xlPrinter = 2
#xlScreen = 1
;-XlPictureConvertorType
#xlBMP = 1
#xlCGM = 7
#xlDRW = 4
#xlDXF = 5
#xlEPS = 8
#xlHGL = 6
#xlPCT = 13
#xlPCX = 10
#xlPIC = 11
#xlPLT = 12
#xlTIF = 9
#xlWMF = 2
#xlWPG = 3
;-XlPivotCellType
#xlPivotCellBlankCell = 9
#xlPivotCellCustomSubtotal = 7
#xlPivotCellDataField = 4
#xlPivotCellDataPivotField = 8
#xlPivotCellGrandTotal = 3
#xlPivotCellPageFieldItem = 6
#xlPivotCellPivotField = 5
#xlPivotCellPivotItem = 1
#xlPivotCellSubtotal = 2
#xlPivotCellValue = 0
;-XlPivotFieldCalculation
#xlDifferenceFrom = 2
#xlIndex = 9
#xlNoAdditionalCalculation = -4143
#xlPercentDifferenceFrom = 4
#xlPercentOf = 3
#xlPercentOfColumn = 7
#xlPercentOfRow = 6
#xlPercentOfTotal = 8
#xlRunningTotal = 5
;-XlPivotFieldDataType
#xlDate = 2
#xlNumber = -4145
#xlText = -4158
;-XlPivotFieldOrientation
#xlColumnField = 2
#xlDataField = 4
#xlHidden = 0
#xlPageField = 3
#xlRowField = 1
;-XlPivotFormatType
#xlPTClassic = 20
#xlPTNone = 21
#xlReport1 = 0
#xlReport10 = 9
#xlReport2 = 1
#xlReport3 = 2
#xlReport4 = 3
#xlReport5 = 4
#xlReport6 = 5
#xlReport7 = 6
#xlReport8 = 7
#xlReport9 = 8
#xlTable1 = 10
#xlTable10 = 19
#xlTable2 = 11
#xlTable3 = 12
#xlTable4 = 13
#xlTable5 = 14
#xlTable6 = 15
#xlTable7 = 16
#xlTable8 = 17
#xlTable9 = 18
;-XlPivotTableMissingItems
#xlMissingItemsDefault = -1
#xlMissingItemsMax = 32500
#xlMissingItemsNone = 0
;-XlPivotTableSourceType
#xlConsolidation = 3
#xlDatabase = 1
#xlExternal = 2
#xlPivotTable = -4148
#xlScenario = 4
;-XlPivotTableVersionList
#xlPivotTableVersion10 = 1
#xlPivotTableVersion2000 = 0
#xlPivotTableVersionCurrent = -1
;-XlPlacement
#xlFreeFloating = 3
#xlMove = 2
#xlMoveAndSize = 1
;-XlPlatform
#xlMacintosh = 1
#xlMSDOS = 3
#xlWindows = 2
;-XlPrintErrors
#xlPrintErrorsBlank = 1
#xlPrintErrorsDash = 2
#xlPrintErrorsDisplayed = 0
#xlPrintErrorsNA = 3
;-XlPrintLocation
#xlPrintInPlace = 16
#xlPrintNoComments = -4142
#xlPrintSheetEnd = 1
;-XlPriority
#xlPriorityHigh = -4127
#xlPriorityLow = -4134
#xlPriorityNormal = -4143
;-XlPTSelectionMode
#xlBlanks = 4
#xlButton = 15
#xlDataAndLabel = 0
#xlDataOnly = 2
#xlFirstRow = 256
#xlLabelOnly = 1
#xlOrigin = 3
;-XlQueryType
#xlADORecordset = 7
#xlDAORecordset = 2
#xlODBCQuery = 1
#xlOLEDBQuery = 5
#xlTextImport = 6
#xlWebQuery = 4
;-XlRangeAutoFormat
#xlRangeAutoFormat3DEffects1 = 13
#xlRangeAutoFormat3DEffects2 = 14
#xlRangeAutoFormatAccounting1 = 4
#xlRangeAutoFormatAccounting2 = 5
#xlRangeAutoFormatAccounting3 = 6
#xlRangeAutoFormatAccounting4 = 17
#xlRangeAutoFormatClassic1 = 1
#xlRangeAutoFormatClassic2 = 2
#xlRangeAutoFormatClassic3 = 3
#xlRangeAutoFormatClassicPivotTable = 31
#xlRangeAutoFormatColor1 = 7
#xlRangeAutoFormatColor2 = 8
#xlRangeAutoFormatColor3 = 9
#xlRangeAutoFormatList1 = 10
#xlRangeAutoFormatList2 = 11
#xlRangeAutoFormatList3 = 12
#xlRangeAutoFormatLocalFormat1 = 15
#xlRangeAutoFormatLocalFormat2 = 16
#xlRangeAutoFormatLocalFormat3 = 19
#xlRangeAutoFormatLocalFormat4 = 20
#xlRangeAutoFormatNone = -4142
#xlRangeAutoFormatPTNone = 42
#xlRangeAutoFormatReport1 = 21
#xlRangeAutoFormatReport10 = 30
#xlRangeAutoFormatReport2 = 22
#xlRangeAutoFormatReport3 = 23
#xlRangeAutoFormatReport4 = 24
#xlRangeAutoFormatReport5 = 25
#xlRangeAutoFormatReport6 = 26
#xlRangeAutoFormatReport7 = 27
#xlRangeAutoFormatReport8 = 28
#xlRangeAutoFormatReport9 = 29
#xlRangeAutoFormatSimple = -4154
#xlRangeAutoFormatTable1 = 32
#xlRangeAutoFormatTable10 = 41
#xlRangeAutoFormatTable2 = 33
#xlRangeAutoFormatTable3 = 34
#xlRangeAutoFormatTable4 = 35
#xlRangeAutoFormatTable5 = 36
#xlRangeAutoFormatTable6 = 37
#xlRangeAutoFormatTable7 = 38
#xlRangeAutoFormatTable8 = 39
#xlRangeAutoFormatTable9 = 40
;-XlRangeValueDataType
#xlRangeValueDefault = 10
#xlRangeValueMSPersistXML = 12
#xlRangeValueXMLSpreadsheet = 11
;-XlReferenceStyle
#xlA1 = 1
#xlR1C1 = -4150
;-XlReferenceType
#xlAbsolute = 1
#xlAbsRowRelColumn = 2
#xlRelative = 4
#xlRelRowAbsColumn = 3
;-XlRobustConnect
#xlAlways = 1
#xlAsRequired = 0
#xlNever = 2
;-XlRoutingSlipDelivery
#xlAllAtOnce = 2
#xlOneAfterAnother = 1
;-XlRoutingSlipStatus
#xlNotYetRouted = 0
#xlRoutingComplete = 2
#xlRoutingInProgress = 1
;-XlRowCol
#xlColumns = 2
#xlRows = 1
;-XlRunAutoMacro
#xlAutoActivate = 3
#xlAutoClose = 2
#xlAutoDeactivate = 4
#xlAutoOpen = 1
;-XlSaveAction
#xlDoNotSaveChanges = 2
#xlSaveChanges = 1
;-XlSaveAsAccessMode
#xlExclusive = 3
#xlNoChange = 1
#xlShared = 2
;-XlSaveConflictResolution
#xlLocalSessionChanges = 2
#xlOtherSessionChanges = 3
#xlUserResolution = 1
;-XlScaleType
#xlScaleLinear = -4132
#xlScaleLogarithmic = -4133
;-XlSearchDirection
#xlNext = 1
#xlPrevious = 2
;-XlSearchOrder
#xlByColumns = 2
#xlByRows = 1
;-XlSearchWithin
#xlWithinSheet = 1
#xlWithinWorkbook = 2
;-XlSheetType
#xlChart = -4109
#xlDialogSheet = -4116
#xlExcel4IntlMacroSheet = 4
#xlExcel4MacroSheet = 3
#xlWorksheet = -4167
;-XlSheetVisibility
#xlSheetHidden = 0
#xlSheetVeryHidden = 2
#xlSheetVisible = -1
;-XlSizeRepresents
#xlSizeIsArea = 1
#xlSizeIsWidth = 2
;-XlSmartTagControlType
#xlSmartTagControlActiveX = 13
#xlSmartTagControlButton = 6
#xlSmartTagControlCheckbox = 9
#xlSmartTagControlCombo = 12
#xlSmartTagControlHelp = 3
#xlSmartTagControlHelpURL = 4
#xlSmartTagControlImage = 8
#xlSmartTagControlLabel = 7
#xlSmartTagControlLink = 2
#xlSmartTagControlListbox = 11
#xlSmartTagControlRadioGroup = 14
#xlSmartTagControlSeparator = 5
#xlSmartTagControlSmartTag = 1
#xlSmartTagControlTextbox = 10
;-XlSmartTagDisplayMode
#xlButtonOnly = 2
#xlDisplayNone = 1
#xlIndicatorAndButton = 0
;-XlSortDataOption
#xlSortNormal = 0
#xlSortTextAsNumbers = 1
;-XlSortMethod
#xlPinYin = 1
#xlStroke = 2
;-XlSortMethodOld
#xlCodePage = 2
#xlSyllabary = 1
;-XlSortOrder
#xlAscending = 1
#xlDescending = 2
;-XlSortOrientation
#xlSortColumns = 1
#xlSortRows = 2
;-XlSortType
#xlSortLabels = 2
#xlSortValues = 1
;-XlSourceType
#xlSourceAutoFilter = 3
#xlSourceChart = 5
#xlSourcePivotTable = 6
#xlSourcePrintArea = 2
#xlSourceQuery = 7
#xlSourceRange = 4
#xlSourceSheet = 1
#xlSourceWorkbook = 0
;-XlSpeakDirection
#xlSpeakByColumns = 1
#xlSpeakByRows = 0
;-XlSpecialCellsValue
#xlErrors = 16
#xlLogical = 4
#xlNumbers = 1
#xlTextValues = 2
;-XlSubscribeToFormat
#xlSubscribeToPicture = -4147
#xlSubscribeToText = -4158
;-XlSubtototalLocationType
#xlAtBottom = 2
#xlAtTop = 1
;-XlSummaryColumn
#xlSummaryOnLeft = -4131
#xlSummaryOnRight = -4152
;-XlSummaryReportType
#xlStandardSummary = 1
#xlSummaryPivotTable = -4148
;-XlSummaryRow
#xlSummaryAbove = 0
#xlSummaryBelow = 1
;-XlTabPosition
#xlTabPositionFirst = 0
#xlTabPositionLast = 1
;-XlTextParsingType
#xlDelimited = 1
#xlFixedWidth = 2
;-XlTextQualifier
#xlTextQualifierDoubleQuote = 1
#xlTextQualifierNone = -4142
#xlTextQualifierSingleQuote = 2
;-XlTextVisualLayoutType
#xlTextVisualLTR = 1
#xlTextVisualRTL = 2
;-XlTickLabelOrientation
#xlTickLabelOrientationAutomatic = -4105
#xlTickLabelOrientationDownward = -4170
#xlTickLabelOrientationHorizontal = -4128
#xlTickLabelOrientationUpward = -4171
#xlTickLabelOrientationVertical = -4166
;-XlTickLabelPosition
#xlTickLabelPositionHigh = -4127
#xlTickLabelPositionLow = -4134
#xlTickLabelPositionNextToAxis = 4
#xlTickLabelPositionNone = -4142
;-XlTickMark
#xlTickMarkCross = 4
#xlTickMarkInside = 2
#xlTickMarkNone = -4142
#xlTickMarkOutside = 3
;-XlTimeUnit
#xlDays = 0
#xlMonths = 1
#xlYears = 2
;-XlToolbarProtection
#xlNoButtonChanges = 1
#xlNoChanges = 4
#xlNoDockingChanges = 3
#xlNoShapeChanges = 2
#xlToolbarProtectionNone = -4143
;-XlTotalsCalculation
#xlTotalsCalculationAverage = 2
#xlTotalsCalculationCount = 3
#xlTotalsCalculationCountNums = 4
#xlTotalsCalculationMax = 6
#xlTotalsCalculationMin = 5
#xlTotalsCalculationNone = 0
#xlTotalsCalculationStdDev = 7
#xlTotalsCalculationSum = 1
#xlTotalsCalculationVar = 8
;-XlTrendlineType
#xlExponential = 5
#xlLinear = -4132
#xlLogarithmic = -4133
#xlMovingAvg = 6
#xlPolynomial = 3
#xlPower = 4
;-XlUnderlineStyle
#xlUnderlineStyleDouble = -4119
#xlUnderlineStyleDoubleAccounting = 5
#xlUnderlineStyleNone = -4142
#xlUnderlineStyleSingle = 2
#xlUnderlineStyleSingleAccounting = 4
;-XlUpdateLinks
#xlUpdateLinksAlways = 3
#xlUpdateLinksNever = 2
#xlUpdateLinksUserSetting = 1
;-XlVAlign
#xlVAlignBottom = -4107
#xlVAlignCenter = -4108
#xlVAlignDistributed = -4117
#xlVAlignJustify = -4130
#xlVAlignTop = -4160
;-XlWBATemplate
#xlWBATChart = -4109
#xlWBATExcel4IntlMacroSheet = 4
#xlWBATExcel4MacroSheet = 3
#xlWBATWorksheet = -4167
;-XlWebFormatting
#xlWebFormattingAll = 1
#xlWebFormattingNone = 3
#xlWebFormattingRTF = 2
;-XlWebSelectionType
#xlAllTables = 2
#xlEntirePage = 1
#xlSpecifiedTables = 3
;-XlWindowState
#xlMaximized = -4137
#xlMinimized = -4140
#xlNormal = -4143
;-XlWindowType
#xlChartAsWindow = 5
#xlChartInPlace = 4
#xlClipboard = 3
#xlInfo = -4129
#xlWorkbook = 1
;-XlWindowView
#xlNormalView = 1
#xlPageBreakPreview = 2
;-XlXLMMacroType
#xlCommand = 2
#xlFunction = 1
#xlNotXLM = 3
;-XlXmlExportResult
#xlXmlExportSuccess = 0
#xlXmlExportValidationFailed = 1
;-XlXmlImportResult
#xlXmlImportElementsTruncated = 1
#xlXmlImportSuccess = 0
#xlXmlImportValidationFailed = 2
;-XlXmlLoadOption
#xlXmlLoadImportToList = 2
#xlXmlLoadMapXml = 3
#xlXmlLoadOpenXml = 1
#xlXmlLoadPromptUser = 0
;-XlYesNoGuess
#xlGuess = 0
#xlNo = 2
#xlYes = 1
[Erweitert am 5.12.2012 Konstanten für die neuen Excelfomate xlsx]
Gruß Falko
Re: ExcelFunktionen COMatePlus
Verfasst: 03.10.2010 16:39
von ThoPie
Vielen Dank für deine Super-Arbeit Falko.
Ich habe bei mir aus der XLSFunc_SetFont-Prozedur bis auf Schriftart und Schriftgröße alles andere herausgenommen.
Außerdem habe ich XLSFunc_OpenExcelFile in XLSFunc_CreateExcelFile und XLSFunc_OpenExcelFile getrennt.
ThoPie
Re: ExcelFunktionen COMatePlus
Verfasst: 03.10.2010 17:19
von Falko
ThoPie hat geschrieben:Vielen Dank für deine Super-Arbeit Falko.
Ich habe bei mir aus der XLSFunc_SetFont-Prozedur bis auf Schriftart und Schriftgröße alles andere herausgenommen.
Außerdem habe ich XLSFunc_OpenExcelFile in XLSFunc_CreateExcelFile und XLSFunc_OpenExcelFile getrennt.
ThoPie
Du meinst diese beiden Proceduren?
Code: Alles auswählen
Procedure XLSFunc_OpenExcelFile(Datei.s); Open ExcelFile
Protected ExcelObject.COMateObject,Workbook
ExcelObject = COMate_CreateObject("Excel.Application")
If ExcelObject
ExcelObject\Invoke("Workbooks\Open('"+Datei+"')")
Else
MessageRequester("Achtung","Bitte geben Sie eine vorhandene xls-Datei mit Pfad an!")
EndIf
ProcedureReturn ExcelObject
EndProcedure
Procedure XLSFunc_CreateExcelFile(Datei.s); Create a new Excelfile
Protected ExcelObject.COMateObject,Workbook
ExcelObject = COMate_CreateObject("Excel.Application")
If ExcelObject
WorkBook = ExcelObject\GetObjectProperty("Workbooks\Add")
SetCurrentDirectory(Datei)
EndIf
ProcedureReturn ExcelObject
EndProcedure
Die habe ich jetzt auch gesplittet und bei mir ersetzt, sowie in der Beispieldemo den Aufruf geändert.
Zu der SetFont-Procedure, habe ich bewusst den Rest drin gelassen, da es bei mir mit dem Fontnamen in der Demo nicht korrekt funktionierte.
Stört ja nicht, weil man jetzt zusätzlich die anderen Funktionen, zu Style, Size und Ausrichtung nutzen kann.
Gruß Falko
Re: ExcelFunktionen COMatePlus
Verfasst: 03.10.2010 18:20
von ThoPie
Ja genau - das mit der Trennung habe ich so gemeint. Ich habe nun auch wieder alles in die SetFont-Prozedur aufgenommen - man kann es ja doch mal gebrauchen.
Ich habe da mal noch was - eine Funktion von der Umrechung von Zeile und Spalte in Excel-Bereichs-Angaben
Code: Alles auswählen
Procedure.s XLSFunc_RowCol2Range(Row.i,Col.i)
Protected Ganz.i,Rest.i,Range.s
If Col<=26
Range=Chr(Col+64)+Str(Row)
Else
Rest=Col%26
Ganz=(Col-Rest)/26
Range=Chr(Ganz+64)+Chr(Rest+64)+Str(Row)
EndIf
ProcedureReturn Range
EndProcedure
also aus XLSFunc_RowCol2Range(2,4) wird "D2" und aus XLSFunc_RowCol2Range(10,30) wird "AD10".
Re: ExcelFunktionen COMatePlus
Verfasst: 03.10.2010 19:06
von Falko
Ich danke dir für diese Funktion, welche ich gleich mit eingebaut habe
Die Parameter der SetFont-Funktion habe ich jetzt auch noch schnell reduziert, sodass man speziell
zu den Funktionen SetFontStyle, (Size) und Alignment-Funktionen zugreifen muss. Wobei Size und
Fontname habe ich umgetauscht. Ich denke, so ist es praktischer zu nutzen, weil die Parameter eben Defaultwerte enthalten,
und man so nicht riesen Zeilen durchforsten muss.
Gruß Falko
Re: ExcelFunktionen COMatePlus
Verfasst: 15.10.2010 18:58
von ThoPie
Hallo Falko,
ich habe ein Problem mit der Funktion XLSFunc_WriteCellZ. Sie kann nur ganze Zahlen ausgeben. Ich benötige aber z. B. auch
Hast du evtl. eine Lösung parat?
Danke
...
Habe die (doch einfache) Lösung selber gefunden
Code: Alles auswählen
Procedure XLSFunc_WriteCellZ(ExcelObject.COMateObject,Row.i,Col.i,Value.d)
ExcelObject\SetProperty("Cells("+ Str(Row)+","+Str(Col)+")\Value="+StrD(Value))
EndProcedure
Re: ExcelFunktionen COMatePlus
Verfasst: 15.10.2010 19:05
von Kiffi
ThoPie:
Schau Dir mal XLSFunc_WriteCellZ() etwas genauer an. Das ist kein
COMate-spezifisches Problem und kann mit PB-Grundkenntnissen selber
behoben werden.
Grüße ... Kiffi
Re: ExcelFunktionen COMatePlus
Verfasst: 15.10.2010 19:12
von ThoPie
Ja - danke Kiffi.
Kurz mal den Gehirnschmalz eingeschaltet - dann war die Lösung da ... hatte StrF vergessen.