Aktuelle Zeit: 08.08.2020 08:10

Alle Zeiten sind UTC + 1 Stunde [ Sommerzeit ]




Ein neues Thema erstellen Auf das Thema antworten  [ 169 Beiträge ]  Gehe zu Seite Vorherige  1, 2, 3, 4, 5, 6, 7 ... 17  Nächste
Autor Nachricht
 Betreff des Beitrags: Re: ExcelFunktionen PureDisphelper / COMate
BeitragVerfasst: 27.09.2010 22:28 
Offline
Admin
Benutzeravatar

Registriert: 29.08.2004 11:27
marco2007 hat geschrieben:
Noch ein kleiner Vorschlag: Seite 4? Der tolle Include-Code sollte im ersten Posting eines Threads sein :D


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

_________________
Bild
Win10 Pro 64-Bit, PB_5.4,GFA-WinDOS, Powerbasic9.05-Windows, NSBasic/CE, NSBasic/Desktop, NSBasic4APP, EmergenceBasic


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: ExcelFunktionen COMatePlus
BeitragVerfasst: 02.10.2010 17:28 
Offline

Registriert: 19.05.2006 15:18
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

_________________
Bild


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: ExcelFunktionen COMatePlus
BeitragVerfasst: 03.10.2010 14:52 
Offline
Admin
Benutzeravatar

Registriert: 29.08.2004 11:27
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 :wink:
[Edit}


ExcelConstants.pbi
Code:
;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

_________________
Bild
Win10 Pro 64-Bit, PB_5.4,GFA-WinDOS, Powerbasic9.05-Windows, NSBasic/CE, NSBasic/Desktop, NSBasic4APP, EmergenceBasic


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: ExcelFunktionen COMatePlus
BeitragVerfasst: 03.10.2010 16:39 
Offline

Registriert: 19.05.2006 15:18
Vielen Dank für deine Super-Arbeit Falko. :allright:

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

_________________
Bild


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: ExcelFunktionen COMatePlus
BeitragVerfasst: 03.10.2010 17:19 
Offline
Admin
Benutzeravatar

Registriert: 29.08.2004 11:27
ThoPie hat geschrieben:
Vielen Dank für deine Super-Arbeit Falko. :allright:

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:
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

_________________
Bild
Win10 Pro 64-Bit, PB_5.4,GFA-WinDOS, Powerbasic9.05-Windows, NSBasic/CE, NSBasic/Desktop, NSBasic4APP, EmergenceBasic


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: ExcelFunktionen COMatePlus
BeitragVerfasst: 03.10.2010 18:20 
Offline

Registriert: 19.05.2006 15:18
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:
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".

_________________
Bild


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: ExcelFunktionen COMatePlus
BeitragVerfasst: 03.10.2010 19:06 
Offline
Admin
Benutzeravatar

Registriert: 29.08.2004 11:27
Ich danke dir für diese Funktion, welche ich gleich mit eingebaut habe :allright:

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

_________________
Bild
Win10 Pro 64-Bit, PB_5.4,GFA-WinDOS, Powerbasic9.05-Windows, NSBasic/CE, NSBasic/Desktop, NSBasic4APP, EmergenceBasic


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: ExcelFunktionen COMatePlus
BeitragVerfasst: 15.10.2010 18:58 
Offline

Registriert: 19.05.2006 15:18
Hallo Falko,

ich habe ein Problem mit der Funktion XLSFunc_WriteCellZ. Sie kann nur ganze Zahlen ausgeben. Ich benötige aber z. B. auch
Code:
XLSFunc_WriteCellZ(ExcelSheet,1,1,0.8232)
Hast du evtl. eine Lösung parat?
Danke

...

Habe die (doch einfache) Lösung selber gefunden
Code:
Procedure XLSFunc_WriteCellZ(ExcelObject.COMateObject,Row.i,Col.i,Value.d)
  ExcelObject\SetProperty("Cells("+ Str(Row)+","+Str(Col)+")\Value="+StrD(Value))
EndProcedure

_________________
Bild


Zuletzt geändert von ThoPie am 16.10.2010 07:43, insgesamt 2-mal geändert.

Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: ExcelFunktionen COMatePlus
BeitragVerfasst: 15.10.2010 19:05 
Offline
Benutzeravatar

Registriert: 08.09.2004 08:21
Wohnort: Amphibios 9
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

_________________
Schrödingers Smiley :):


Nach oben
 Profil  
Mit Zitat antworten  
 Betreff des Beitrags: Re: ExcelFunktionen COMatePlus
BeitragVerfasst: 15.10.2010 19:12 
Offline

Registriert: 19.05.2006 15:18
Ja - danke Kiffi.
Kurz mal den Gehirnschmalz eingeschaltet - dann war die Lösung da ... hatte StrF vergessen.

_________________
Bild


Nach oben
 Profil  
Mit Zitat antworten  
Beiträge der letzten Zeit anzeigen:  Sortiere nach  
Ein neues Thema erstellen Auf das Thema antworten  [ 169 Beiträge ]  Gehe zu Seite Vorherige  1, 2, 3, 4, 5, 6, 7 ... 17  Nächste

Alle Zeiten sind UTC + 1 Stunde [ Sommerzeit ]


Wer ist online?

Mitglieder in diesem Forum: Taz und 2 Gäste


Sie dürfen keine neuen Themen in diesem Forum erstellen.
Sie dürfen keine Antworten zu Themen in diesem Forum erstellen.
Sie dürfen Ihre Beiträge in diesem Forum nicht ändern.
Sie dürfen Ihre Beiträge in diesem Forum nicht löschen.

Suche nach:
Gehe zu:  

 


Powered by phpBB © 2008 phpBB Group | Deutsche Übersetzung durch phpBB.de
subSilver+ theme by Canver Software, sponsor Sanal Modifiye