ExcelFunktionen COMatePlus

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

Re: ExcelFunktionen PureDisphelper / COMate

Beitrag von Falko »

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
ThoPie
Beiträge: 130
Registriert: 19.05.2006 15:18
Kontaktdaten:

Re: ExcelFunktionen COMatePlus

Beitrag 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
Bild
Benutzeravatar
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:

Re: ExcelFunktionen COMatePlus

Beitrag 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 :wink:
[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
Bild
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:

Re: ExcelFunktionen COMatePlus

Beitrag von ThoPie »

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

Re: ExcelFunktionen COMatePlus

Beitrag von Falko »

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

Re: ExcelFunktionen COMatePlus

Beitrag 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".
Bild
Benutzeravatar
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:

Re: ExcelFunktionen COMatePlus

Beitrag von Falko »

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
ThoPie
Beiträge: 130
Registriert: 19.05.2006 15:18
Kontaktdaten:

Re: ExcelFunktionen COMatePlus

Beitrag 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

Code: Alles auswählen

XLSFunc_WriteCellZ(ExcelSheet,1,1,0.8232)
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.
Bild
Benutzeravatar
Kiffi
Beiträge: 10620
Registriert: 08.09.2004 08:21
Wohnort: Amphibios 9

Re: ExcelFunktionen COMatePlus

Beitrag 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
Hygge
ThoPie
Beiträge: 130
Registriert: 19.05.2006 15:18
Kontaktdaten:

Re: ExcelFunktionen COMatePlus

Beitrag von ThoPie »

Ja - danke Kiffi.
Kurz mal den Gehirnschmalz eingeschaltet - dann war die Lösung da ... hatte StrF vergessen.
Bild
Antworten