Hier könnt Ihr gute, von Euch geschriebene Codes posten. Sie müssen auf jeden Fall funktionieren und sollten möglichst effizient, elegant und beispielhaft oder einfach nur cool sein.
Falko
Admin
Beiträge: 3531 Registriert: 29.08.2004 11:27
Computerausstattung: PC: MSI-Z590-GC; 32GB-DDR4, ICore9; 2TB M2 + 2x3TB-SATA2 HDD; Intel ICore9 @ 3600MHZ (Win11 Pro. 64-Bit), Acer Aspire E15 (Win11 Home X64). Purebasic LTS 6.0
Kontaktdaten:
Beitrag
von Falko » 27.09.2010 22:28
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
Win10 Pro 64-Bit, PB_5.4,GFA-WinDOS, Powerbasic9.05-Windows, NSBasic/CE, NSBasic/Desktop, NSBasic4APP, EmergenceBasic
ThoPie
Beiträge: 130 Registriert: 19.05.2006 15:18
Kontaktdaten:
Beitrag
von ThoPie » 02.10.2010 17:28
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
Falko
Admin
Beiträge: 3531 Registriert: 29.08.2004 11:27
Computerausstattung: PC: MSI-Z590-GC; 32GB-DDR4, ICore9; 2TB M2 + 2x3TB-SATA2 HDD; Intel ICore9 @ 3600MHZ (Win11 Pro. 64-Bit), Acer Aspire E15 (Win11 Home X64). Purebasic LTS 6.0
Kontaktdaten:
Beitrag
von Falko » 03.10.2010 14:52
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
Win10 Pro 64-Bit, PB_5.4,GFA-WinDOS, Powerbasic9.05-Windows, NSBasic/CE, NSBasic/Desktop, NSBasic4APP, EmergenceBasic
ThoPie
Beiträge: 130 Registriert: 19.05.2006 15:18
Kontaktdaten:
Beitrag
von ThoPie » 03.10.2010 16:39
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
Falko
Admin
Beiträge: 3531 Registriert: 29.08.2004 11:27
Computerausstattung: PC: MSI-Z590-GC; 32GB-DDR4, ICore9; 2TB M2 + 2x3TB-SATA2 HDD; Intel ICore9 @ 3600MHZ (Win11 Pro. 64-Bit), Acer Aspire E15 (Win11 Home X64). Purebasic LTS 6.0
Kontaktdaten:
Beitrag
von Falko » 03.10.2010 17:19
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
Win10 Pro 64-Bit, PB_5.4,GFA-WinDOS, Powerbasic9.05-Windows, NSBasic/CE, NSBasic/Desktop, NSBasic4APP, EmergenceBasic
ThoPie
Beiträge: 130 Registriert: 19.05.2006 15:18
Kontaktdaten:
Beitrag
von ThoPie » 03.10.2010 18:20
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".
Falko
Admin
Beiträge: 3531 Registriert: 29.08.2004 11:27
Computerausstattung: PC: MSI-Z590-GC; 32GB-DDR4, ICore9; 2TB M2 + 2x3TB-SATA2 HDD; Intel ICore9 @ 3600MHZ (Win11 Pro. 64-Bit), Acer Aspire E15 (Win11 Home X64). Purebasic LTS 6.0
Kontaktdaten:
Beitrag
von Falko » 03.10.2010 19:06
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
Win10 Pro 64-Bit, PB_5.4,GFA-WinDOS, Powerbasic9.05-Windows, NSBasic/CE, NSBasic/Desktop, NSBasic4APP, EmergenceBasic
ThoPie
Beiträge: 130 Registriert: 19.05.2006 15:18
Kontaktdaten:
Beitrag
von ThoPie » 15.10.2010 18:58
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
Zuletzt geändert von
ThoPie am 16.10.2010 07:43, insgesamt 2-mal geändert.
Kiffi
Beiträge: 10621 Registriert: 08.09.2004 08:21
Wohnort: Amphibios 9
Beitrag
von Kiffi » 15.10.2010 19:05
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
Hygge
ThoPie
Beiträge: 130 Registriert: 19.05.2006 15:18
Kontaktdaten:
Beitrag
von ThoPie » 15.10.2010 19:12
Ja - danke Kiffi.
Kurz mal den Gehirnschmalz eingeschaltet - dann war die Lösung da ... hatte StrF vergessen.