excel.sub

这是我编写的深圳地铁S335型司机控制器的检测程序

 ExcelConst_msoShapeTypeMixed (-2)
  ""

 ExcelConst_msoAutoShape (1)
  ""

 ExcelConst_msoCallout (2)
  ""

 ExcelConst_msoChart (3)
  ""

 ExcelConst_msoComment (4)
  ""

 ExcelConst_msoFreeform (5)
  ""

 ExcelConst_msoGroup (6)
  ""

 ExcelConst_msoEmbeddedOLEObject (7)
  ""

 ExcelConst_msoFormControl (8)
  ""

 ExcelConst_msoLine (9)
  ""

 ExcelConst_msoLinkedOLEObject (10)
  ""

 ExcelConst_msoLinkedPicture (11)
  ""

 ExcelConst_msoOLEControlObject (12)
  ""

 ExcelConst_msoPicture (13)
  ""

 ExcelConst_msoPlaceholder (14)
  ""

 ExcelConst_msoTextEffect (15)
  ""

 ExcelConst_msoMedia (16)
  ""

 ExcelConst_msoTextBox (17)
  ""

 ExcelConst_msoScriptAnchor (18)
  ""

 ExcelConst_msoTable (19)
  ""

 ExcelConst_msoCanvas (20)
  ""

 ExcelConst_msoDiagram (21)
  ""

 ExcelConst_msoInk (22)
  ""

 ExcelConst_msoInkComment (23)
  ""


v enum_ExcelEnum_XlPlacement DataType="i" 
 ExcelConst_xlFreeFloating (3)
  ""

 ExcelConst_xlMove (2)
  ""

 ExcelConst_xlMoveAndSize (1)
  ""


v enum_ExcelEnum_MsoAutoShapeType DataType="i" 
 ExcelConst_msoShapeMixed (-2)
  ""

 ExcelConst_msoShapeRectangle (1)
  ""

 ExcelConst_msoShapeParallelogram (2)
  ""

 ExcelConst_msoShapeTrapezoid (3)
  ""

 ExcelConst_msoShapeDiamond (4)
  ""

 ExcelConst_msoShapeRoundedRectangle (5)
  ""

 ExcelConst_msoShapeOctagon (6)
  ""

 ExcelConst_msoShapeIsoscelesTriangle (7)
  ""

 ExcelConst_msoShapeRightTriangle (8)
  ""

 ExcelConst_msoShapeOval (9)
  ""

 ExcelConst_msoShapeHexagon (10)
  ""

 ExcelConst_msoShapeCross (11)
  ""

 ExcelConst_msoShapeRegularPentagon (12)
  ""

 ExcelConst_msoShapeCan (13)
  ""

 ExcelConst_msoShapeCube (14)
  ""

 ExcelConst_msoShapeBevel (15)
  ""

 ExcelConst_msoShapeFoldedCorner (16)
  ""

 ExcelConst_msoShapeSmileyFace (17)
  ""

 ExcelConst_msoShapeDonut (18)
  ""

 ExcelConst_msoShapeNoSymbol (19)
  ""

 ExcelConst_msoShapeBlockArc (20)
  ""

 ExcelConst_msoShapeHeart (21)
  ""

 ExcelConst_msoShapeLightningBolt (22)
  ""

 ExcelConst_msoShapeSun (23)
  ""

 ExcelConst_msoShapeMoon (24)
  ""

 ExcelConst_msoShapeArc (25)
  ""

 ExcelConst_msoShapeDoubleBracket (26)
  ""

 ExcelConst_msoShapeDoubleBrace (27)
  ""

 ExcelConst_msoShapePlaque (28)
  ""

 ExcelConst_msoShapeLeftBracket (29)
  ""

 ExcelConst_msoShapeRightBracket (30)
  ""

 ExcelConst_msoShapeLeftBrace (31)
  ""

 ExcelConst_msoShapeRightBrace (32)
  ""

 ExcelConst_msoShapeRightArrow (33)
  ""

 ExcelConst_msoShapeLeftArrow (34)
  ""

 ExcelConst_msoShapeUpArrow (35)
  ""

 ExcelConst_msoShapeDownArrow (36)
  ""

 ExcelConst_msoShapeLeftRightArrow (37)
  ""

 ExcelConst_msoShapeUpDownArrow (38)
  ""

 ExcelConst_msoShapeQuadArrow (39)
  ""

 ExcelConst_msoShapeLeftRightUpArrow (40)
  ""

 ExcelConst_msoShapeBentArrow (41)
  ""

 ExcelConst_msoShapeUTurnArrow (42)
  ""

 ExcelConst_msoShapeLeftUpArrow (43)
  ""

 ExcelConst_msoShapeBentUpArrow (44)
  ""

 ExcelConst_msoShapeCurvedRightArrow (45)
  ""

 ExcelConst_msoShapeCurvedLeftArrow (46)
  ""

 ExcelConst_msoShapeCurvedUpArrow (47)
  ""

 ExcelConst_msoShapeCurvedDownArrow (48)
  ""

 ExcelConst_msoShapeStripedRightArrow (49)
  ""

 ExcelConst_msoShapeNotchedRightArrow (50)
  ""

 ExcelConst_msoShapePentagon (51)
  ""

 ExcelConst_msoShapeChevron (52)
  ""

 ExcelConst_msoShapeRightArrowCallout (53)
  ""

 ExcelConst_msoShapeLeftArrowCallout (54)
  ""

 ExcelConst_msoShapeUpArrowCallout (55)
  ""

 ExcelConst_msoShapeDownArrowCallout (56)
  ""

 ExcelConst_msoShapeLeftRightArrowCallout (57)
  ""

 ExcelConst_msoShapeUpDownArrowCallout (58)
  ""

 ExcelConst_msoShapeQuadArrowCallout (59)
  ""

 ExcelConst_msoShapeCircularArrow (60)
  ""

 ExcelConst_msoShapeFlowchartProcess (61)
  ""

 ExcelConst_msoShapeFlowchartAlternateProcess (62)
  ""

 ExcelConst_msoShapeFlowchartDecision (63)
  ""

 ExcelConst_msoShapeFlowchartData (64)
  ""

 ExcelConst_msoShapeFlowchartPredefinedProcess (65)
  ""

 ExcelConst_msoShapeFlowchartInternalStorage (66)
  ""

 ExcelConst_msoShapeFlowchartDocument (67)
  ""

 ExcelConst_msoShapeFlowchartMultidocument (68)
  ""

 ExcelConst_msoShapeFlowchartTerminator (69)
  ""

 ExcelConst_msoShapeFlowchartPreparation (70)
  ""

 ExcelConst_msoShapeFlowchartManualInput (71)
  ""

 ExcelConst_msoShapeFlowchartManualOperation (72)
  ""

 ExcelConst_msoShapeFlowchartConnector (73)
  ""

 ExcelConst_msoShapeFlowchartOffpageConnector (74)
  ""

 ExcelConst_msoShapeFlowchartCard (75)
  ""

 ExcelConst_msoShapeFlowchartPunchedTape (76)
  ""

 ExcelConst_msoShapeFlowchartSummingJunction (77)
  ""

 ExcelConst_msoShapeFlowchartOr (78)
  ""

 ExcelConst_msoShapeFlowchartCollate (79)
  ""

 ExcelConst_msoShapeFlowchartSort (80)
  ""

 ExcelConst_msoShapeFlowchartExtract (81)
  ""

 ExcelConst_msoShapeFlowchartMerge (82)
  ""

 ExcelConst_msoShapeFlowchartStoredData (83)
  ""

 ExcelConst_msoShapeFlowchartDelay (84)
  ""

 ExcelConst_msoShapeFlowchartSequentialAccessStorage (85)
  ""

 ExcelConst_msoShapeFlowchartMagneticDisk (86)
  ""

 ExcelConst_msoShapeFlowchartDirectAccessStorage (87)
  ""

 ExcelConst_msoShapeFlowchartDisplay (88)
  ""

 ExcelConst_msoShapeExplosion1 (89)
  ""

 ExcelConst_msoShapeExplosion2 (90)
  ""

 ExcelConst_msoShape4pointStar (91)
  ""

 ExcelConst_msoShape5pointStar (92)
  ""

 ExcelConst_msoShape8pointStar (93)
  ""

 ExcelConst_msoShape16pointStar (94)
  ""

 ExcelConst_msoShape24pointStar (95)
  ""

 ExcelConst_msoShape32pointStar (96)
  ""

 ExcelConst_msoShapeUpRibbon (97)
  ""

 ExcelConst_msoShapeDownRibbon (98)
  ""

 ExcelConst_msoShapeCurvedUpRibbon (99)
  ""

 ExcelConst_msoShapeCurvedDownRibbon (100)
  ""

 ExcelConst_msoShapeVerticalScroll (101)
  ""

 ExcelConst_msoShapeHorizontalScroll (102)
  ""

 ExcelConst_msoShapeWave (103)
  ""

 ExcelConst_msoShapeDoubleWave (104)
  ""

 ExcelConst_msoShapeRectangularCallout (105)
  ""

 ExcelConst_msoShapeRoundedRectangularCallout (106)
  ""

 ExcelConst_msoShapeOvalCallout (107)
  ""

 ExcelConst_msoShapeCloudCallout (108)
  ""

 ExcelConst_msoShapeLineCallout1 (109)
  ""

 ExcelConst_msoShapeLineCallout2 (110)
  ""

 ExcelConst_msoShapeLineCallout3 (111)
  ""

 ExcelConst_msoShapeLineCallout4 (112)
  ""

 ExcelConst_msoShapeLineCallout1AccentBar (113)
  ""

 ExcelConst_msoShapeLineCallout2AccentBar (114)
  ""

 ExcelConst_msoShapeLineCallout3AccentBar (115)
  ""

 ExcelConst_msoShapeLineCallout4AccentBar (116)
  ""

 ExcelConst_msoShapeLineCallout1NoBorder (117)
  ""

 ExcelConst_msoShapeLineCallout2NoBorder (118)
  ""

 ExcelConst_msoShapeLineCallout3NoBorder (119)
  ""

 ExcelConst_msoShapeLineCallout4NoBorder (120)
  ""

 ExcelConst_msoShapeLineCallout1BorderandAccentBar (121)
  ""

 ExcelConst_msoShapeLineCallout2BorderandAccentBar (122)
  ""

 ExcelConst_msoShapeLineCallout3BorderandAccentBar (123)
  ""

 ExcelConst_msoShapeLineCallout4BorderandAccentBar (124)
  ""

 ExcelConst_msoShapeActionButtonCustom (125)
  ""

 ExcelConst_msoShapeActionButtonHome (126)
  ""

 ExcelConst_msoShapeActionButtonHelp (127)
  ""

 ExcelConst_msoShapeActionButtonInformation (128)
  ""

 ExcelConst_msoShapeActionButtonBackorPrevious (129)
  ""

 ExcelConst_msoShapeActionButtonForwardorNext (130)
  ""

 ExcelConst_msoShapeActionButtonBeginning (131)
  ""

 ExcelConst_msoShapeActionButtonEnd (132)
  ""

 ExcelConst_msoShapeActionButtonReturn (133)
  ""

 ExcelConst_msoShapeActionButtonDocument (134)
  ""

 ExcelConst_msoShapeActionButtonSound (135)
  ""

 ExcelConst_msoShapeActionButtonMovie (136)
  ""

 ExcelConst_msoShapeBalloon (137)
  ""

 ExcelConst_msoShapeNotPrimitive (138)
  ""


v enum_ExcelEnum_MsoBlackWhiteMode DataType="i" 
 ExcelConst_msoBlackWhiteMixed (-2)
  ""

 ExcelConst_msoBlackWhiteAutomatic (1)
  ""

 ExcelConst_msoBlackWhiteGrayScale (2)
  ""

 ExcelConst_msoBlackWhiteLightGrayScale (3)
  ""

 ExcelConst_msoBlackWhiteInverseGrayScale (4)
  ""

 ExcelConst_msoBlackWhiteGrayOutline (5)
  ""

 ExcelConst_msoBlackWhiteBlackTextAndLine (6)
  ""

 ExcelConst_msoBlackWhiteHighContrast (7)
  ""

 ExcelConst_msoBlackWhiteBlack (8)
  ""

 ExcelConst_msoBlackWhiteWhite (9)
  ""

 ExcelConst_msoBlackWhiteDontShow (10)
  ""


v enum_ExcelEnum_XlFormControl DataType="i" 
 ExcelConst_xlButtonControl (0)
  ""

 ExcelConst_xlCheckBox (1)
  ""

 ExcelConst_xlDropDown (2)
  ""

 ExcelConst_xlEditBox (3)
  ""

 ExcelConst_xlGroupBox (4)
  ""

 ExcelConst_xlLabel (5)
  ""

 ExcelConst_xlListBox (6)
  ""

 ExcelConst_xlOptionButton (7)
  ""

 ExcelConst_xlScrollBar (8)
  ""

 ExcelConst_xlSpinner (9)
  ""


v enum_ExcelEnum_MsoTextOrientation DataType="i" 
 ExcelConst_msoTextOrientationMixed (-2)
  ""

 ExcelConst_msoTextOrientationHorizontal (1)
  ""

 ExcelConst_msoTextOrientationUpward (2)
  ""

 ExcelConst_msoTextOrientationDownward (3)
  ""

 ExcelConst_msoTextOrientationVerticalFarEast (4)
  ""

 ExcelConst_msoTextOrientationVertical (5)
  ""

 ExcelConst_msoTextOrientationHorizontalRotatedFarEast (6)
  ""


v enum_ExcelEnum_MsoConnectorType DataType="i" 
 ExcelConst_msoConnectorTypeMixed (-2)
  ""

 ExcelConst_msoConnectorStraight (1)
  ""

 ExcelConst_msoConnectorElbow (2)
  ""

 ExcelConst_msoConnectorCurve (3)
  ""


v enum_ExcelEnum_XlCalculatedMemberType DataType="i" 
 ExcelConst_xlCalculatedMember (0)
  ""

 ExcelConst_xlCalculatedSet (1)
  ""


v enum_ExcelEnum_XlPivotCellType DataType="i" 
 ExcelConst_xlPivotCellValue (0)
  ""

 ExcelConst_xlPivotCellPivotItem (1)
  ""

 ExcelConst_xlPivotCellSubtotal (2)
  ""

 ExcelConst_xlPivotCellGrandTotal (3)
  ""

 ExcelConst_xlPivotCellDataField (4)
  ""

 ExcelConst_xlPivotCellPivotField (5)
  ""

 ExcelConst_xlPivotCellPageFieldItem (6)
  ""

 ExcelConst_xlPivotCellCustomSubtotal (7)
  ""

 ExcelConst_xlPivotCellDataPivotField (8)
  ""

 ExcelConst_xlPivotCellBlankCell (9)
  ""


v enum_ExcelEnum_XlSmartTagControlType DataType="i" 
 ExcelConst_xlSmartTagControlSmartTag (1)
  ""

 ExcelConst_xlSmartTagControlLink (2)
  ""

 ExcelConst_xlSmartTagControlHelp (3)
  ""

 ExcelConst_xlSmartTagControlHelpURL (4)
  ""

 ExcelConst_xlSmartTagControlSeparator (5)
  ""

 ExcelConst_xlSmartTagControlButton (6)
  ""

 ExcelConst_xlSmartTagControlLabel (7)
  ""

 ExcelConst_xlSmartTagControlImage (8)
  ""

 ExcelConst_xlSmartTagControlCheckbox (9)
  ""

 ExcelConst_xlSmartTagControlTextbox (10)
  ""

 ExcelConst_xlSmartTagControlListbox (11)
  ""

 ExcelConst_xlSmartTagControlCombo (12)
  ""

 ExcelConst_xlSmartTagControlActiveX (13)
  ""

 ExcelConst_xlSmartTagControlRadioGroup (14)
  ""


v enum_ExcelEnum_XlSmartTagDisplayMode DataType="i" 
 ExcelConst_xlIndicatorAndButton (0)
  ""

 ExcelConst_xlDisplayNone (1)
  ""

 ExcelConst_xlButtonOnly (2)
  ""


v enum_ExcelEnum_XlHebrewModes DataType="i" 
 ExcelConst_xlHebrewFullScript (0)
  ""

 ExcelConst_xlHebrewPartialScript (1)
  ""

 ExcelConst_xlHebrewMixedScript (2)
  ""

 ExcelConst_xlHebrewMixedAuthorizedScript (3)
  ""


v enum_ExcelEnum_XlArabicModes DataType="i" 
 ExcelConst_xlArabicNone (0)
  ""

 ExcelConst_xlArabicStrictAlefHamza (1)
  ""

 ExcelConst_xlArabicStrictFinalYaa (2)
  ""

 ExcelConst_xlArabicBothStrict (3)
  ""


v enum_ExcelEnum_XlSpeakDirection DataType="i" 
 ExcelConst_xlSpeakByRows (0)
  ""

 ExcelConst_xlSpeakByColumns (1)
  ""


v enum_ExcelEnum_MsoDiagramType DataType="i" 
 ExcelConst_msoDiagramMixed (-2)
  ""

 ExcelConst_msoDiagramOrgChart (1)
  ""

 ExcelConst_msoDiagramCycle (2)
  ""

 ExcelConst_msoDiagramRadial (3)
  ""

 ExcelConst_msoDiagramPyramid (4)
  ""

 ExcelConst_msoDiagramVenn (5)
  ""

 ExcelConst_msoDiagramTarget (6)
  ""


v enum_ExcelEnum_XlListObjectSourceType DataType="i" 
 ExcelConst_xlSrcExternal (0)
  ""

 ExcelConst_xlSrcRange (1)
  ""

 ExcelConst_xlSrcXml (2)
  ""


v enum_ExcelEnum_XlTotalsCalculation DataType="i" 
 ExcelConst_xlTotalsCalculationNone (0)
  ""

 ExcelConst_xlTotalsCalculationSum (1)
  ""

 ExcelConst_xlTotalsCalculationAverage (2)
  ""

 ExcelConst_xlTotalsCalculationCount (3)
  ""

 ExcelConst_xlTotalsCalculationCountNums (4)
  ""

 ExcelConst_xlTotalsCalculationMin (5)
  ""

 ExcelConst_xlTotalsCalculationMax (6)
  ""

 ExcelConst_xlTotalsCalculationStdDev (7)
  ""

 ExcelConst_xlTotalsCalculationVar (8)
  ""


v enum_ExcelEnum_XlListDataType DataType="i" 
 ExcelConst_xlListDataTypeNone (0)
  ""

 ExcelConst_xlListDataTypeText (1)
  ""

 ExcelConst_xlListDataTypeMultiLineText (2)
  ""

 ExcelConst_xlListDataTypeNumber (3)
  ""

 ExcelConst_xlListDataTypeCurrency (4)
  ""

 ExcelConst_xlListDataTypeDateTime (5)
  ""

 ExcelConst_xlListDataTypeChoice (6)
  ""

 ExcelConst_xlListDataTypeChoiceMulti (7)
  ""

 ExcelConst_xlListDat