аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot EntryџџџџџџџџђtбЗ)Я€apcџџџџџџџџ€%ъё.ТЬђtбЗ)ЯThe VBA Project џџџџџџџџ€%ъё.ТЬђtбЗ)Я_VBA_Projectџџџџџџџџ €%ъё.ТЬђtбЗ)Я§џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџK§џџџџџџџ ўџџџ"#$%&'(HџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџIJўџџџUMNOPQRSTўџџџ}WXYZ[\]^_`ўџџџbcdefghijklmnopqrstuvwxyz{|ўџџџ~ўџџџRoot Entryџџџџџџџџр’%ЮРapcџџџџџџџџ€%ъё.ТЬр’%ЮThe VBA Project џџџџџџџџ€%ъё.ТЬр’%Ю_VBA_Projectџџџџџџџџ €%ъё.ТЬр’%Юџџџџџџџџ§џџџ    )џџџџџџџџўџџџџџџџџџџџџџџџ§џџџџџџџџџџџџџџџџџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ*+F-./0123456789:;<=>?@ABCDEўџџџGўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџHost Project Item Names0џџџџ Аšъё.ТЬр’%ЮVBA Project Data"џџџџ<Host Project Items&џџџџџџџџ4VBA Project Signature,џџџџџџџџџџџџ ўџџџўџџџ ўџџџўџџџўџџџўџџџўџџџўџџџ !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZўџџџ\]^_`abcdefghijўџџџўџџџўџџџўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЭє{`ЕрThisLibrary*{€Ер5{ ЕрL{801A2004-A66C-11D3-A8BD-0000861EBBD6}7{РЕр L{801A0000-A66C-11D3-A8BD-0000861EBBD6}9{рЕр";{Жр$={ Жр&šЄ&ЎL{801A0000-A66C-11D3-A8BD-0000861EBBD6}ИYТВV:\SW_Templates\2185\SolidWorks-ID="{0ADEFC0F-421A-416B-AD4E-66756E57F926}" Document=ThisLibrary/&H00000000 Module=Macro11 Name="Macro1" HelpContextID="0" VersionCompatible32="393222000" CMG="A2A05C7C3A803A803A803A80" DPB="84867A66BE49BF49BF49" GC="6664988098807B817B8184" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisLibrary=0, 0, 0, 0, C Macro11=69, 69, 1012, 611, Z Z ywCZъnYtZ˜€ \Z4687F359-55D0-4CD3-B6CF-2EB42C11F9893-wcA У,Ч6B-Т&ant *t/l‰/‚–‚Т_4 @+ThisD9G Р‚i€3LiMakros-BMK\Stueckliste_fuer_SAP_automatisch_erstellen.swpЬS-ƒџџ,ЉЁ braРy* 2 €ЊHB1Є3РЛBE,B §Я"B+MBWМ1GWMEРc@o1@ 2Oа&1M@PROJECT џџџџ œThisLibraryџџџџџџџџ[ђMacro11џџџџ,Т3ThisLibraryThisLibraryMacro11Macro116@]В€0* pH‚dф€Macro1$@T=­j €yгІS J < žstdole>stdole( h%^*\G{000204и30-C 0046}#2.0#0#C:\Windows\system32\e2.tlb#OLE AutoРmation`€SldW€orks>€CdW€Grkдs€HŽ€ „€H83A33D31-27C5-11€CE-BFD4€H400513BB@57}#15IProgram Files\Sol‚iƒ5 Corpˆр\sldwB‚U…H 2013 Type LibraŒryC€SwConst>„_VBA_PROJECTџџџџџџџџџџџџрProject Item Data$џџџџk Control List Data$џџџџџџџџр’%Юр’%ЮReqControl List Data*џџџџџџџџр’%Юр’%ЮdirџџџџџџџџџџџџaReqControl List Data*џџџџџџџџџџџџn Control_Data_CurVer(џџџџџџџџm Control List Data$џџџџџџџџџџџџl(000-0000-C000-000000000046}#4.2#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA7.1\VBE7.DLL#Visual Basic For Applications"*\G{801A0000-A66C-11D3-A8BD-0000861EBBD6}#15.0#0#C:\Program Files\SolidWorks Corp\SolidWorks\swvba.tlb#SolidWorks 2013 Extensibility Type LibraryМ*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\system32\stdole2.tlb#OLE Automation*\G{83A33D31-27C5-11CE-BFD4-00400513BB57}#15.0#0#C:\Program Files\SolidWorks Corp\SolidWorks\sldworks.tlb#SldWorks 2013 Type Library*\G{4687F359-55D0-4CD3-B6CF-2EB42C11F989}#15.0#0#C:\Program Files\SolidWorks Corp\SolidWorks\swconst.tlb#SolidWorks 2013 Constant type libraryџџџџџџџџyгІSџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ_4ThisLibrary0v53a1934aџџ'ThisLibraryџџ§Я3џџMacro110w53a1934aџџ*Macro11џџ@<а&џџџџџџ8џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ|ŽК—izIЄP‹^мЏq’џџџџ.]ВIг˜ƒD›eЙJCт-џџџџџџџџH€c^p8 €џb SolidWorks;VBAїтWin16С~Win32Win64xMacГВVBA6­#VBA7Ў#Macro1еNstdole“`€џSldWorks$SwConstœ ThisLibraryGЉ €џџџ_EvaluateйMacro11n  queryFileNameBП IDENT_ELTERNNлVERSION_ELTERNN' ForReadingл8 ForWritinge9 ForAppendingqјmainˆ,swAHost Project Item Names0џџџџ Аšъё.ТЬђtбЗ)ЯVBA Project Data"џџџџ<Host Project Items&џџџџџџџџ4VBA Project Signature,џџџџџџџџџџџџ ўџџџўџџџ ўџџџўџџџўџџџўџџџўџџџўџџџ !"#$%ўџџџ'()*+,ўџџџ./0123456789:;<=ўџџџўџџџўџџџўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџЭє{@-†ThisLibrary*{`-†5{€-†L{801A2004-A66C-11D3-A8BD-0000861EBBD6}7{ -† L{801A0000-A66C-11D3-A8BD-0000861EBBD6}9{Р-†";{р-†$={.†&šЄ&ЎL{801A0000-A66C-11D3-A8BD-0000861EBBD6}ИYТВV:\SW_Templates\2185\SolidWorks-ID="{0ADEFC0F-421A-416B-AD4E-66756E57F926}" Document=ThisLibrary/&H00000000 Module=Macro11 Name="Macro1" HelpContextID="0" VersionCompatible32="393222000" CMG="4D4FB3924D7551755175517551" DPB="2C2ED2F36ED36FD36FD3" GC="0B09F5D8D5D9D5D92A" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisLibrary=0, 0, 0, 0, C Macro11=69, 69, 1012, 611, Z Z yswTable86CF-2EB42C11F989]В€0* pH‚dф€Macro1$@T=­jMakros-BMK\Stueckliste_fuer_SAP_automatisch_erstellen.swpЬS-ƒџџ,ЉЁ €yгІS J < žstdole>stdole( h%^*\G{000204и30-C 0046}#2.0#0#C:\Windows\system32\e2.tlb#OLE AutoРmation`€SldW€orks>€CdW€Grkдs€HŽ€ „€HџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџThisLibraryџџџџџџџџАšъё.ТЬђtбЗ)ЯProject_Data_CurVer( џџџџ Host Project Item List Data8џџџџџџџџџџџџVBAџџџџџџџџ€%ъё.ТЬРі›нђ‰ЮPROJECTwmџџџџџџџџџџџџ>PROJECT џџџџ šThisLibraryџџџџџџџџ-Macro11џџџџaM7ThisLibraryThisLibraryMacro11Macro116@rU@@@@~~~~nџџџџџџџџџџџџџџџџџџџџџџџџџџџџ С swApp С1 0swModel Сa P swBomFeat СС p_VBA_PROJECTџџџџџџџџџџџџLЄProject Item Data$џџџџ> Control List Data$џџџџџџџџђtбЗ)ЯђtбЗ)ЯReqControl List Data*џџџџџџџџђtбЗ)ЯђtбЗ)Яџџџџџџџџџџџџўџџџ џџџџџџџџџџџџўџџџ џџџџџџџџџџџџўџџџ џџџџџџџџџџџџўџџџ(dirџџџџџџџџџџџџa__SRP_2џџџџџџџџџџџџVK__SRP_3џџџџ&Ј__SRP_0џџџџџџџџџџџџ!х__SRP_1џџџџЎReqControl List Data*џџџџџџџџџџџџA Control_Data_CurVer(џџџџџџџџ@ Control List Data$џџџџџџџџџџџџ?(“K*šџџџџrU@@@~~~~~~~~~~~~~~"ь Г3J™JЯ<[Ь фџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџ1ˆaё џџџџџџџџ№џџџџџџџџЁС‘ џџaqAС ThisLibraryMacro11Macro1яРF1C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA7.1\VBE7.DLLVBA Ёџџџџџџџџ бQP€lІгЈН†Лж5C:\Program Files\SolidWorks Corp\SolidWorks\swvba.tlb SolidWorksSwConst џџџџџџџџ1Бp0РFC:\Windows\system32\stdole2.tlbstdole Ёџџџџџџџџб!1=ЃƒХ'ЮПд@ЛW8C:\Program Files\SolidWorks Corp\SolidWorks\sldworks.tlbSldWorks бџџџџџџџџ‘АYѓ‡FаUгLЖЯ.Д,љ‰7C:\Program Files\SolidWorks Corp\SolidWorks\swconst.tlb QџџџџџџџџсаmainProcessBomFeature"=ЃƒХ'ЮПд@ЛWћ“Й=я€KЅФ™•œлlыKѓh3ђ…aM“%3SЯ Z ProcessTableBitte eine Zeichnung anwфhlen. VBE7.DLL&m &m 3=ЃƒХ'ЮПд@ЛW(m1 б џџџџџџџџS ‘€(~ 4Scripting.FileSystemObject б џџџџџџџџЬ Р VSELECT * FROM DOKUMENT WHERE DATEI_NAME = '"h File =  ˆ VDas Dokument besitz noch keinen Dateinamen. \ jDas Dokument besitz noch keinen gќltigen Dateinamen. б џџџџџџџџХ $oб џџџџџџџџi С@"hб џџџџџџџџk € dba sqlOpen '"hб џџџџџџџџ БР a .SLDDRW ADODB.Connection ADODB.Recordset DBWORKS 6' AND DATEI_VERZEICHNIS = 'EOFBOF TDie Datei ist nicht in DBWorks vorhanden.  NR Fields Value BENENNUNG Teiletyp APL .csvFileExistsdeleteFile & ŽV:\SAP_Transfer\DBW_Export\2185\Excel-Stќcklisten\01_Aufspannplфne APL\ APW& ŽV:\SAP_Transfer\DBW_Export\2185\Excel-Stќcklisten\02_Aufspannplфne APW\ MPV ppы‘swModel[ƒ ModelDoc2Ї^swDrawѓ’ DrawingDocсswView~IViewаIswTableЃЇTableAnnotationЦ>bRet\swSheet}ŒSheet[жswFeatчиFeature!> swBomFeatЙл BomFeature  nNumSheet–ёnRetvalFži` ApplicationЅ* ActiveDocк’ FirstFeatureaнGetType)J swDocDRAWINGVбMsgBox—R GetPathNamefsF] CreateObjectјŠDATEIVERZEICHNISлrInStrRevФˆ DateinameORight UCase5  collegamentoЈ risultatiёпQuery2œEOFє‰BOFщyFields7ЉValueфKTeiletypы speicherortЇе FileExistsЌ deleteFileOGetCurrentSheetЦ~ vSheetNamesj GetSheetNamesрGetNameг< GetTypeNameoшGetSpecificFeature2‹ProcessBomFeature•РGetNextFeatureХ; ActivateSheetЈ vTableArrЩŸvTable GetFeatureЋ;GetTableAnnotationsw ProcessTableСBswAnnŸ‘ AnnotationЫsnNumColс–nNumRow"чsRowStrWjakblc GetAnnotation‰T ColumnCount$RowCountu OpenTextFileЇК WritelineeЩџџ` џџ"џџ$џџ'џџџџџџ+џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ$dows\SysWOW64\st№вдџџџџй-_4§Яџџ#ˆЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ№BдpџџџџRЪ&_4@<џџЖџџџџџџџџџџџџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџHџџџџџџџџџџџџ 08џџџџџџџџџџџџџџџџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ <џџ<џџ<џџ<<џџ <џџ(<(0<џџ8<џџ@;"Bo"FI"Jџџ"Pџџ"T""X"Аџџџџ@h„,џџџџџџџџџџџџџџH„.џџџџџџџџџџџџ џџH„0џџџџџџџџџџџџ џџ@”2џџџџџџџџџџџџLџџ@”4џџџџџџџџџџџџLџџ@”6џџџџџџџџџџџџLџџ 8Hџџџџџџџџџџџџџџџџџџџџџџџџџџџџ€„ „:џџџџџџџџџџџџ% „<џџџџџџџџџџџџ % „@џџџџџџџџџџџџ@% „Dџџџџџџџџџџџџ`% „Hџџџџџџџџџџџџ€ %`„Lџџџџџџџџџџџџ џџ „NџџџџџџџџџџџџИ(% „Rџџџџџџџџџџџџи0% „Vџџџџџџџџџџџџј8%`„Zџџџџџџџџџџџџџџ`„\џџџџџџџџџџџџџџ`„^џџџџџџџџџџџџџџ ž џџџџџџџџџџџџџџџџ џџџџџџџџ"„)ƒ:џџџџџџџџџџџџРШ€%)ƒ<џџџџџџџџџџџџш№€%)ƒVџџџџџџџџџџџџџџџџ€8% „Rџџџџџџџџџџџџ00%`„Єџџџџџџџџџџџџ џџ`„Іџџџџџџџџџџџџ џџ „Hџџџџџџџџџџџџ€ %`„^џџџџџџџџџџџџџџ ЌџџџџџџџџџџџџџџџџџџџџјџџџџџџџџG„)ƒ:џџџџџџџџџџџџ €%)ƒ<џџџџџџџџџџџџ@H€%)ƒHџџџџџџџџџџџџhџџџџ€ % „Ўџџџџџџџџџџџџˆ@%`„Вџџџџџџџџџџџџџџ`„Дџџџџџџџџџџџџџџ`„Жџџџџџџџџџџџџџџ`„^џџџџџџџџџџџџџџ`„Иџџџџџџџџџџџџџџ`„Кџџџџџџџџџџџџџџ`„МџџџџџџџџџџџџџџџџџџРџџџџџџџџџџџџџџџџџџџџџџ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпўЪя€€€€ € џџџџ€ џџџџ"8€ џџџџ€ @€ P€ `€ p€ €€ €  € А€ Р€ а€ р€ №€ џџџџ€ џџџџ€ џџџџ 0€ џџџџ@P `€ џџџџp4ˆРШ€ џџџџ€ џџџџ*а€ џџџџ€ џџџџ€ џџџџ€ & H6`˜ € џџџџЈJР€ џџџџ& 2H:€ Р р&j(˜А>а  8X€ џџџџ€ x  P  № P P Zp а Rр 8 H@ ˆ€ џџџџ€ џџџџ€ џџџџ˜  А€ џџџџИ(Ш№ј€ џџџџ€ џџџџ€ L€ џџџџh€ џџџџx€ џџџџˆ€ џџџџ€ L€ џџџџр №  & € џџџџ€ dH  А € џџџџР € џџџџ (и € џџџџ $ € џџџџ ( € џџџџ j8 € џџџџЈ € џџџџА € џџџџР € dШ 0 H € џџџџ" P € џџџџ€X €` €h €p €x € џџџџ€ џџџџ€ € џџџџ  € џџџџ  € џџџџЈ € џџџџ И € џџџџ H € џџџџ€ џџџџ ` € џџџџ|p € џџџџ № € џџџџ € џџџџ € џџџџ€ џџџџ€ џџџџ"4 € џџџџ€ 8 € H € X € h € x € ˆ € ˜ € Ј € џџџџ€ џџџџ*И ш  ј  € џџџџ€ &2@€ џџџџ€ hx€ џџџџрј$€ џџџџ(€ џџџџ8@€ џџџџ H€ џџџџ€ jX€ џџџџ€ jШ€ џџџџ8€ 0P€ "€ЈА $Ш€ џџџџ€ .№€ € @€ џџџџ P€ џџџџ$`€ џџџџˆ ˜>Јш$№€ џџџџ   @ P€ џџџџ`€ џџџџ€ џџџџ h€ џџџџx€ џџџџ€ p€џџџџј] ѕ] ѕ] ѕ0]ЌѕHЌѕ`Ќѕx–]ѕDш otm]ѕD ing]ѕD( t.s]ѕDH ]ѕDh џџ]ѕDˆ џџ]ѕD  ]ѕDР џџ]ѕDр џџџџџџ]ѕD ]ѕD :џџџџ]ѕD0 џџ№ `!".:џџ№ :!b.<№ <.@@џџџџ№ <!d.R№ `!".:џџ№ :!b.<№ <.@Hџџџџ <!f hœ %ЙBitte eine Zeichnung anwфhlen. <!lA@j%|џџ8kџџ0№ЙScripting.FileSystemObject$p.n8%[мЙFile = <!lйˆ‡?у###############################? <!lЌ œ?˜—?Й+Das Dokument besitz noch keinen Dateinamen.A@j%?|џџ`kџџX <!lЙ\„ЌœЙ5Das Dokument besitz noch keinen gќltigen Dateinamen. <!lA@jB?ФУC?|џџшkџџр <!l <!lЙ\$t$м'rQ? <!l <!l <!lЙ\$t $x'v^?рп_? v$zЙ.SLDDRW„Ќ›G vЙ.SLDDRW'vjn?№яo?№ЙADODB.Connection$p.|№ЙADODB.Recordset$p.~ЙDBWORKSЙdbaЙsql |B@Й+SELECT * FROM DOKUMENT WHERE DATEI_NAME = ' vЙ' AND DATEI_VERZEICHNIS = ' rЙ''€57 € |Ќ ~B@ ~!‚К ~!„КœЙ*Die Datei ist nicht in DBWorks vorhanden. <!lA@j|џџшdџџрЙNR ~%†!ˆ'.Й BENENNUNG ~%†!ˆ'0ЙTeiletyp ~%†!ˆ'Šу Speicherort TXT ŠЙAPLœЙGV:\SAP_Transfer\DBW_Export\2185\Excel-Stќcklisten\01_Aufspannplфne APL\'Œ ŠЙAPWeЙGV:\SAP_Transfer\DBW_Export\2185\Excel-Stќcklisten\02_Aufspannplфne APW\'Œ ŠЙMPV ŠЙFHMeЙRV:\SAP_Transfer\DBW_Export\2185\Excel-Stќcklisten\05_Prќf und Montage Hilfsmittel\'Œ?7 ŠЙSGWeЙIV:\SAP_Transfer\DBW_Export\2185\Excel-Stќcklisten\04_Spritzgusswerkzeuge\'ŒжXdџџРЙ?V:\SAP_Transfer\DBW_Export\2185\Excel-Stќcklisten\03_Werkzeuge\'Œkџџpkџџh№В.~ |B@BжX№В.| .Ќ œЙDas Feld Identnummer ist leer.A@j|џџkџџ Œ .Й.csv',уF--------Lіscht die alte CVS-Datei wenn sie vorhanden ist--------------jL›™ , n%Žœ , nB@™ЩkџџpуF----------------------------------------------------------------------_€№ @!’.N[мЙ FileName = <!l й @!–'”Work[мЙ Current sheet = N!˜йMaу]----------------------Sucht die Stќckliste aus dem Feature-Baum heraus-----------------------uate RВbЭЙBomFeat R!šœ[мЙ******************************й[мЙFeature Name :- R!й €№ R!œ.VnЅ : < VA@žу@Q---------Aufruf des Unterprogramms um die Tabelle zu aktivieren------------------swkџџP№ R! .RddМџџ8у^----------------------------------------------------------------------------------------------leAnЌ$” @B@ЂчoџџА–H]ѕ]ѕ8]ѕP]ѕh]ѕˆ№ V!Ј.R V!Њ'ЄbleAЌ'^ І Є“et ^ЌЌ’у w---------------Schleife verhindert mehrfaches schreiben der Stќckliste wenn sie mehrfach getrennt ist------------------ ^Ќ›G|jture•Р№ І.HeatЙл : < HA@Ќу4c---------Aufruf des Unterprogramms zum schreiben der Stќckliste in die CVS-Datei-------------------GetT ^Ыtionsw ІЫwѓ’ oџџшІ – џ]ѕDp nNu]ѕD nRet]ѕDЈ Ret\]ѕDР irstFe]ѕDи €џ]ѕD№ meoш]ѕD tSpeci]ѕD  2‹№ЙScripting.FileSystemObject$p.n €№ H!О.ЎNG H!Р'В—R H!Т'ДathNу Show the name and type of tableic[мЙ Ў!˜Й < H!lЙ>йteinamуa------------------Schleife lіscht die мberschriftszeilen der Stќcklistentabelle------------------ КЌ ДЌ ’Й'Ж Ж КЌ H%dЙ;'ЖtNam ЖЙ1;œDEyџџРkџџИ КЫON_ELTуc---------------------------------------------------------------------------------------------------џџџ_Bуc--------------Schreibt die werte aus der Stќcklistentabelle in die CVS-Datei----------------------- ^ К ДЌ ’у)Jeweils Eine Zeile der StќcklistentabelleуErste Zeile ist мberschriftЙ'Ж ИЌ ВЌ ’ Ж ^ И H%dЙ;'Жу'If swTable.Text(i, 2) Like "*-Wkz" Thenу swTable.Text(i, 3) = "WKZ"уEnd If ИЫ[м Ж ЖЌ $мЙ]й ЖЌ œ ^ЌœЙVERSION_ELTERNЙ;Й IDENTNUMMERЙ; Ж'Жdџџ 0Й; .Й; Ж'Жkџџр № , 6К n%Ф. Ж B@Ц B@Bkџџ˜  ^Ыoџџ€ уi---------------------------------------------------------------------------------------------------------џџџџ џџџџƒЖAttribute VB_Name = "Macro11" Public queryFilBe”As Sфng FIDENT_@ELTERN 0V@ERSION 4Const For€Readingy„1,Writ‚2Appen!8 Sub Рmain() ЅРDim sw*  ЌldWork8s.Sž5Mo8delŽ‰‚Do„c2 DrawŽ> €d‰Vieœ‰TableP‚Annot ationbRetR SBooleaШ swShe ‰4BЩ&FeaG‰ Aure Bр DRAWING) The„HЁ)MsgBox "Bit Šeine Ze ichnu@|anwфhlen. " &Р& Path‹УсExit р|#End INfcЉ)fs@‡CrрPeObject("ScripˆР'leSystemc"'†ebug.Print ž"› Жi'#cc@'LenЉ'e) < 1Д&Das€ Dokume besitz n och k!)n ˜DatрДn.ФГƒz%FInStr‘@, "\")@0 ?t 0gќlt8igeJП;Н;DATEI ЦZEICHNISLefЦt3‚Revї€>‡с$І'Р Righє yі6- _ D Р?b(@UCase(&)..SLDDRWШ.ч: Ї& "e#9С]collegA@to  _ADOшDB.@ыnр`СС]ƒ!risulсУДRecordsLetE™.O@x "DBWORKS""P dbaasq*l”(Q‚2Р"SELECT * FROM DOKUM€ WHERE Ђ_NAME  '7 ' ANОDD Г!0''У ѓ, i , Š161(їEOFРРTrue AF‡ŽB†NsNDieг iрŒnNt iа0Bђ† vorhhand/Ot/OL1l>s4sЉ•   Fields("NR€").ValuH№h—o`BENE NNUNGпTeёаžtyppХoGѓ1 1'Spб_erort TXTлP2X"APL"lH1s(рЉV:\SAP_Tran sfer\0)_Exp\2185\Excel-S tќckl0en\01_Aufs€pannplфiн€\D#1EрюђWя яяящJ2юWяseьM€PV" Or јFHM/ / 5_Prќf uа0Montage€ Hilfsma}цlп о SGЯpЯ‡ЯЯЩ4_SpТzgusswerРkzeuge Щ3ё‰3_W3яЁ щ‰ ‡ЇЃйXNoth Туc1 WClo5 AЙ9zгр"‘k™BЏ† – šЁ†FАC IаI€tnummer2Lleerп…ubSŸЩ ›сЋш:& ŠK1mcsvЄ7у'-Lіscht dUalАЃCVS-Ђa wenn ўspжT usУSfsЂŸ Ustsњ(* )(Fѓ!PрјeteЂ  CSяџі ћпIёХ臑РСТёЗCurr€ЁO9иMЌвљ@R +яЕm Єav‘shЖ = swDraw.GetSheetNames  Debug.Print "€ Curre(Цs˜р" &№hOzpn '-Sucht die Stќckliste aus dem Feature-BaumА herE-cDo While0 Not‹> Is hing %ЫIf "Bo:m!"є ЖType] Thenз‰Š€*"š6хl ‚4:-Ї‚As Seg„W WS€pecific(2Process9swApp‚,€ŽModel…+pСGjAufruf€bs Unterprogra0mms РcСlTabelР[zu aРktivie€„hI%End IfI‡C7A0Š6Next„5сE LoopУpT“T‡'ЎŠ„УAc@7atbe‚З (vТjs@(0)) A5SЌub*€ Ž](‚] As SldWрorks.ЦbJсBgDoc2Ih‰‡tу€У+DimEНI Q wСv€mleArrAVarianЮtGЃRsw"aЦc nnotatЌio@fЅ iСIРFјgerс"# Œ=Є!ol=‡a’ш €“# i  G0 For Each ЄIn?$ eсe‚ To 1ЃэKSchleife verhindert@ mehrf` es schrei(ben`er)™we0nn s ›… gќet`dрІ яRCcUi `f 1“ рExit NcЁџч'У-B&Р#ƒ!щUПOƒуD g"ї‚zƒ –!iР#@!CVS-:D`iiаri€ i%Ђn!ˆnc_№ ( €ayoFn*[HpІƒ Љk"Aџц_a r€$(ЩiЧ#7tnNumCoцl.рLoй!(Rows StОrРфa1iNЛЮjŽkџЁ“cS!.$fsа-Crр‚eObject("S criptP .FЉSyp…mГ"№џ1Г1бFrqHЭ…G`umnCoueS!!'аєC ' Sh0the Rn• aPpt † of tableћc,– „ ‘ ёf@–x" <Г–# ‹Q>Ÿ ‡a Я56Llі :!C—мberё:ifАtsze€Lnа _!~яsSсVk 0у!Tе- 1гQ Х'ј= "t [ѕqt №(k, 0)б ;XW`œˆ1;"џd›Б5зBS  `ЗСˆЛЂFkSS'яџџІ{сe#wАg%ВЙf• oV†‰љё1fkC?р'Jew№!s€ Eine ZЁ"ЧМnѕs'Er‘Мƒ§ n ˜&1Шј‘~jй$qPк$ЛUМ#iИ, jО#‘ї'$C.Tё&02) Like "*-ˆWkz% 't &3)а "WKZ}H 'jЙ%‡"&jЕmA Љ?Left(AT , LenХ)і `2 ]Јgр кќ> 9‚Ь!1Amхqх :VERSION_ELT(ERNQG"06& "IDENTNUpMMERW„чEќls„Mљ;+Ѓ>PџtFє;'С]bfs.Open1`(querfy‘T, `& аend@b, True„a11b.Wrpitel/ЎCќlo!( с1%џТŒ˜‹oEŸ: џџџџ€ џџџџ €€ џџџџ|€ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ<џџџџџџN0{801A2004-A66C-11D3-A8BD-0000861EBBD6}џџџџ@€ўџџџџџ џџџџ0џџџџџџџџџџ43%џџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџпўЪџџџџџџџџxџџџџЛАAttribute VB_Name = "ThisLibraryˆ" ˆBasˆ0{801A2004-A66C-11D3-A8BD-0861E BBD6} |GlobalЮSpa‚c’False dCreatablPredeclaIdАTru BExposeTemplate`Deriv’BuРstomizD2€ џџџџJ€ џџџџш И>*вмц№џ %  0 Ш € џџџџ€ џџџџ€ џџџџb€ џџџџј€ џџџџ€ pрџџџџP–pІ –m ]ђDИ ђ]ђDрFHM Close <Das Feld Identnummer ist leer. >, ЄV:\SAP_Transfer\DBW_Export\2185\Excel-Stќcklisten\05_Prќf und Montage Hilfsmittel\ SGW& ’V:\SAP_Transfer\DBW_Export\2185\Excel-Stќcklisten\04_Spritzgusswerkzeuge\" ~V:\SAP_Transfer\DBW_Export\2185\Excel-Stќcklisten\03_Werkzeuge\&m‘€=ЃƒХ'ЮПд@ЛW FileName = $ Current sheet = &mQ- BomFeat&m  <****************************** Feature Name :- &t‘Q &mС Љ=ЃƒХ'ЮПд@ЛW  &mQ5  <*{С  ; 1; ] Œ VERSION_ELTERN IDENTNUMMEROpenTextFileWriteline V:\SAP_Transfer\ &ma Name .L83A33D31-27C5-11€CE-BFD4€H400513BB@57}#15IProgram Files\Sol‚iƒ5 Corpˆр\sldwB‚U…H 2013 Type LibraŒryC€SwConst>„wCZъnYtZ˜€ \Z4687F359-55D0-4CD3-B6CF-2EB42C11F9893-wcA У,Ч6B-Т&ant *t/l‰/‚–‚Т_4 @+ThisD9G Р‚i€3Li braРy* 2 €ЊHB1ЄCРЛBE,B §Я"B+MBWМ1GWMEРc@o1@ 2O-1M@bRet\swSheet}ŒSheet[жswFeatчиFeature!> swBomFeatЙл BomFeature  nNumSheet–ёnRetvalFži` ApplicationЅ* ActiveDocк’ FirstFeatureaнGetType)J swDocDRAWINGVбMsgBox—R GetPathNamefsF] CreateObjectјŠDATEIVERZEICHNISлrInStrRevФˆ DateinameORight UCase5  collegamentoЈ risultatiёпQuery2œEOFє‰BOFщyFields7ЉValueфKTeiletypы speicherortЇе FileExistsЌ deleteFileOGetCurrentSheetЦ~ vSheetNamesj GetSheetNamesрGetNameг< GetTypeNameoшGetSpecificFeature2‹Ќ(ProcessBomFeature•РGetNextFeatureХ; ActivateSheetЈ vTableArrЩŸvTable GetFeatureЋ;GetTableAnnotationsw Ќ(ProcessTableСBswAnnŸ‘ AnnotationЫsnNumColс–nNumRow"чsRowStrWjakblc GetAnnotation‰T ColumnCount$RowCountu OpenTextFileЇК WritelineeЩ €џџџ_B_var_fsюё _B_var_LeftQс€џџџ_B_var_DATEIVERZEICHNISе _B_var_Right9й€џџџ_B_var_DateinameЫH _B_var_UCaseaЮ€џџџ_B_var_collegamentoM€џџџ_B_var_risultatiЕй €џџџ_B_var_Query2€џџџ_B_var_TeiletypГ€џџџ_B_var_speicherort Ч€џџџ_B_var_vSheetNamesЬ€€џџџ_B_var_bЂdatname‰* ThisWorkbook|у€џџџ_B_var_ThisWorkbook,€џџџ_B_var_datname .џџ` џџ"џџ$џџ'џџџџџџ+џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ$ @xa` §џџџџџџџџџџџџџџџџџџџёQБ^Б^^qx` §џџџџџџџџџџџџџџџџџџџёQ!^Б^^сb№тдџџџџщ=_4§Яџџ#ˆЖџџџџџџџџџџџџџџџџџџџџџџџџxrU€@@@~xY Q С‘Aс1,A.0aQ2‘3Б  1 ‘ 1 qс1qЁq‘СaСa‘С ёЁ С с Б!с!"A""С"$Q%%С&ё&()Б)ё*!'Q'ё"!#a#Q--б-/Q1ё1a 4Б58Q55ё6ё'q9‘9С9с9:q:С:;Q;<С Q==ј gg0Ÿ˜џџџпZєp˜˜џџџUТјџџџО˜џџџg.Ÿ˜џџџžјџџџє8˜˜џџџUТ№џџџО˜џџџg˜№џџџUТшџџџg.Ÿ˜џџџž№џџџєР˜˜џџџUТРџџџО˜џџџg0Ÿ˜џџџпZєp˜˜џџџUТјџџџО˜џџџg.Ÿ˜џџџžјџџџє8˜˜џџџUТ№џџџО˜џџџg˜№џџџUТшџџџg,Ÿџџџž№џџџєр’џџџ№PЧВgbёрўџџёџџџё@џџџ№їŸˆџџџž№џџџєи—ˆџџџPqpџџџџ(Нˆџџџъpџџџ@џџџџџџрўџџg{gg(їїŸpџџџџ–pџџџŸШўџџag>Ÿˆџџџž№џџџєиї—ˆџџџPgРўџџb^ыˆџџџРўџџg4Ÿˆџџџž№џџџєи—ˆџџџL№ƒНˆџџџЧІgLёрўџџёџџџё@џџџ№ўXџџџIpџџџŸpџџџџ(ъpџџџ@џџџџџџрўџџg{ggD№Ÿˆџџџž№џџџєи—ˆџџџї№N№?НˆџџџЧZgbёрўџџёџџџё@џџџ№їŸˆџџџž№џџџєи—ˆџџџPqpџџџџ(Нˆџџџъpџџџ@џџџџџџрўџџg{ggvŸˆџџџž№џџџєиŸРўџџž№џџџєи№№џџџџї—Рўџџђ "ˆџџџqpџџџŸ@џџџџ–@џџџЖўџџНРўџџМpџџџg˜Ÿˆџџџž№џџџєиŸˆўџџž№џџџєиŸРўџџž№џџџєи—РўџџL№№џџџџї—ˆўџџђ а"ˆџџџqpџџџŸ@џџџџ–@џџџЖpўџџыРўџџˆўџџМpџџџgV№ŸpўџџŸpџџџџ–pџџџўXџџџ№O@џџџј(џџџХKъpџџџ@џџџЧфg –pўџџўXџџџOpџџџЖpўџџgT№№џџџџїX–pўџџaˆџџџђ №аŸpўџџŸpџџџџ–pџџџЖpўџџНˆџџџgўXџџџSУXўџџg>–Xўџџ–pўџџOpџџџўXџџџ:O@џџџ`Gъpџџџ@џџџg2/Ж@ŸШўџџ’pџџџ;lМpџџџЧоg"/Ж@–ШўџџТа<gg.Ÿ˜џџџžшџџџє` ˜˜џџџU=ТШџџџО˜џџџg>Ÿˆџџџž№џџџєиї>—ˆџџџPgРўџџb^ыˆџџџРўџџg$Ÿpџџџžшџџџє –pџџџЖ@ўџџg>ŸˆџџџžШџџџєH ї?—ˆџџџPgРўџџb^ыˆџџџРўџџg˜Рџџџь& Чжg0ї@ŸˆџџџžРџџџєh —ˆџџџDНˆџџџЧ–gїAb^g>ŸˆџџџžРџџџє8 їB—ˆџџџPgРўџџb^ыˆџџџРўџџg.Ÿ˜џџџžРџџџє  ˜˜џџџUCТИџџџО˜џџџgŸИџџџŸ№џџџŸјџџџ gg.Ÿ˜џџџžРџџџєX ˜˜џџџUТРџџџО˜џџџg ЦВgBŸ8ўџџјXџџџŸ@ўџџцpџџџaˆџџџžшџџџє  НˆџџџМpџџџg{ј ”nиџџџшџџџШўџџXўџџpўџџРџџџўџџИџџџ@ўџџўџџ№џџџјџџџ ўџџШџџџрџџџРџDˆџџџРўџџˆўџџ˜џџџpџџџ@џџџџџџрўџџ $gg.ŸАџџџює8T˜АџџџUТјџџџОАџџџg$Ÿ˜џџџюєHT–˜џџџЖрџџџgpБИџџџg–рџџџŸШџџџМxџџџgpŸИџџџq†hџџџg‘Иџџџq>ЧКg{g–ШџџџVVТРџџџgŸРџџџяяUgŸИџџџЄhџџџœgŸШџџџПxџџџ‚g{ ˜$\8xџџџџџџРџџџШџџџјџџџрџџџ Аџџџ˜џџџjаgg(їїŸЈџџџџ–ЈџџџŸџџџag.Ÿˆџџџює@D˜ˆџџџUGТјџџџОˆџџџg$Ÿ€џџџюєИD’€џџџВ№џџџg$Ÿ€џџџюєРD’€џџџВшџџџgŽŸxџџџžјџџџєиEŸ€џџџюєHDїH—xџџџPgpџџџїIPghџџџ’€џџџbg`џџџPgXџџџїJPgPџџџb^ы xџџџpџџџhџџџ`џџџXџџџPџџџg*№ŸШџџџ’шџџџ№а‡@џџџќgїФрџџџgP—рџџџŸxџџџ№’ШџџџюєxF—xџџџPgpџџџїKPЗрџџџыxџџџpџџџg—рџџџїLDЧрg ЦќggŸШџџџЅ@џџџ\g*’ШџџџŸиџџџ’шџџџ№а‡0џџџЦgїФрџџџg*№Ÿаџџџ’№џџџ№а‡ џџџЦgP—рџџџŸxџџџ’аџџџ’иџџџюєxF—xџџџPgpџџџїKPЗрџџџыxџџџpџџџgŸаџџџЅ џџџ`gX—рџџџL№аŸрџџџЗџџџ@ŸЈџџџџ–Јџџџў№ўџџMOиўџџb^NъЈџџџиўџџg—рџџџL№”ЧЊg>/Ж@ј№ўџџюЈўџџŸџџџ’ЈџџџQŸxўџџagŸрџџџЖ@–xўџџТаRg–xўџџТа8ggŸиџџџЅ0џџџ&g{ ˆаP,џџџрџџџxўџџјџџџJ xџџџpџџџhџџџ`џџџXџџџPџџџˆџџџЈџџџиўџџ aS б&h $hJ№Тдџџџџ0-_4@<џџЖџџџџџџџџ8џџџџџџџџџџџџџџxџџMEџџџџџџџџџџпџџјџџџџџџџџџџџџ 08џџџџџџџџџџџџџџџџџџџџ@џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@1”џџ1”џџ!”џџ!”1”џџ !”џџ(!”(01”џџ8!”џџ@> џџџџ”џџџџLџџџџPџџџџLџџџџPџџџџPџџџџLџџџџPџџџџџџџџџџџџџџџџLџџџџPџџџџLџџџџLџџџџPџџџџLџџџџPџџџџLџџџџLџџџџPџџџџ<џџџџџџH""0">;"Bo"FI"Jџџ"Pџџ"T""X"Аи Ъ€0  џџџџ џџ@џџџџџџџџТ˜4аџџџџBџџџџџџџџџџџџџџƒ*џџџџџџџџ8џџџџџџџџџџџџџџ 8H`џџџџџџџџ@ўџџkџџџџџџџџџџ``„ „;џџџџјџџџџџџџ% „=ш№џџџџџџџ % „Aџџџџшџџџџџџџ@% „Eџџџџрџџџџџџџ`% „I(иџџџџџџџ€ %`„Lџџџџаџџџџџџџ џџ „OџџџџШџџџџџџџИ(% „SџџџџРџџџџџџџи0% „WџџџџИџџџџџџџј8%`„ZџџџџАџџџџџџџџџ`„\Јџџџџџџџџџ`„^џџџџ џџџџџџџџџ ž `џџџџџџџџ hџџџk џџџџџџ""f„)ƒ;џџџџџџџџРШ€%)ƒ= џџџџш№€%)ƒWџџџџџџџџџџџџ€8% „Sџџџџјџџџџџџџ00%`„Є№рџџџџџџџ џџ`„ІШџџџџџџџ џџ „IџџџџРџџџџџџџ€ %`„^џџџџИџџџџџџџџџ Ќџџџџ`џџџџџџџџ€ xўџџkјџџџџџџ??ˆ„)ƒ;џџџџџџџџ €%)ƒ=јџџџџ@H€%)ƒIџџџџџџџџhџџџџ€ % „Џџџџџјџџџџџџџˆ@%`„Вџџџџ№џџџџџџџџџ`„Дџџџџшџџџџџџџџџ`„Жџџџџрџџџџџџџџџ`„^џџџџиџџџџџџџџџ`„Иаџџџџџџџџџ`„КЈШџџџџџџџџџ`„МHРџџџџџџџџџџџџџРъ€,pџџџџџџ@џџџџџџџџўЪ€.џџџџ џџ@џџџџџџџџТ˜20џџџџBџџџџџџџџџџџџџџТ˜6џџџџџџџџBџџџџџџџџџџџџџџџџџџџџџџpџџџџ@џџџџH0  џџџџаH%0џџџџџџџџhџџџџџџџџшxџџџџ Ј0№  Hџџџџџџџџ(ј@џџџџXРџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ`hjptмxzo@ўџџџџџ˜џџџџџџџ џџ @ўџџџџџџџџџџџџџџ @ўџˆџџџџџџџџџ @ўџppџџџџџџџ џџ @ўџˆXџџџџџџџ џџ @ўџ @џџџџџџџ џџ @ўџИ(џџџџџџџ џџ @ўџаџџџџџџџ џџ @ўџјўџџџџџџ џџ @ўџџџџџрўџџџџџџ џџ @nШўџџџџџџ џџ@ўџHРўџџџџџџџџ @ўџџџџџЈўџџџџџџ џџ @rўџџџџџџ џџ@ўџџџџџˆўџџџџџџџџ @vРpўџџџџџџ џџ@Œ`Xўџџџџџџ џџр,ž"џџџџџџ џџ@”џџџџ@ўџџџџџџ џџ@ўџџџџџ8ўџџџџџџ џџ џџџџ џџџџ(џџџџџџџџРџџџџрЈшˆ HџџџџџџџџHјаџџџџРџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџи№ џџџџџџџџP РџџџџШ џџџџ џџџџџџџџџџџџpџџџџ˜ h 8 џџџџ8 џџџџ€ џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ( џџџџџџџџџџџџџџџџ @ џџџџpм,6,6@ўџh Јџџџџџџџ џџ @nџџџџџџџџџџџ џџ@ўџџџџџˆџџџџџџџ џџ @ўџџџџџ€џџџџџџџџџ @ўџА xџџџџџџџџџ @ўџШ pџџџџџџџџџ @ўџр hџџџџџџџџџ @ўџј `џџџџџџџџџ @ўџ Xџџџџџџџџџ @ўџџџџџPџџџџџџџџџ @ўџP Hџџџџџџџџџ h ( aah@ўџˆ @џџџџџџџџ x P An  P Ar@ўџА 8џџџџџџџџџ Ш ˆ %Sim@ўџи 0џџџџџџџџ № А %mpl@ўџ (џџџџџџџџџ  и )dS@ўџџџџџ џџџџџџџџ ( )ditр - Ar@ўџP џџџџџџџ џџ @ўџ€ №ўџџџџџџ џџ @ўџџџџџиўџџџџџџ џџ @ўџ˜ Рўџџџџџџ џџ @ўџА Јўџџџџџџ џџ @ўџџџџџўџџџџџџ џџ @џџџџxўџџџџџџ џџџџџџА :џџџџџџ@фˆ ўџџџџџџ џџ@трўџџџџџџ џџˆџџџџџџџџhџџџџџџџџџџџџPџџџџ8џџџџШџџџџџџџџџџџџџџџџџџџџџџџџР и џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ№ џџџџhџџџџџџџџџџџџџџџџџџџџр@ўџџџџџАџџџџџџџ џџ @ўџџџџџ˜џџџџџџџ џџ @ўџџџџџџџџџџџџ џџ 0№ ily@ўџ@ˆџџџџџџџџџ Xai-@ўџџџџџ€џџџџџџџџџ €@ico@ўџџџџџxџџџџoџџџџ Јhlib@ўџИpџџџџџџџџџ аa M@ўџџџџџhџџџџџџџџ јИ SaџџџџЌSConslИnstџџџџhCoџџџџрџџџџ@џџџџџџџџџџџџ џџџџаџџџџџџџџџџџџџџџџџџџџ`@џџџџџџџџџџџџџџџџџџџџџџџџџџџџyгІS*\R3*#15f*\R3*#1e7*\R3*#249*\R3*#24e$*\Rffff*1e54b02d3b*\R3*#163*\R3*#173*\R3*#18a*\R3*#166*\R3*#19e*\R1*#3*\R1*#0*\R3*#0*\R3*#0*\R3*#11*\R3*#b8*\R3*#11*\R3*#2e*\R4*#1*\R0*#17*\R0*#f*\R3*#b8*\R3*#58*\R3*#58*\R3*#2e*\R3*#55*\R3*#4f*\R3*#21*\R3*#21*\R3*#55*\R3*#4fпўЪЧ€€€„ € џџџџ€ џџџџ"8€ џџџџ€ @€ P€ `€ p€ €€ €  € А€ Р€ а€ р€ №€ џџџџ€ џџџџ€ џџџџ0.  .0€ џџџџ0@.P `€ џџџџ,p4bˆРШ€ џџџџ€ џџџџ*(а€ џџџџ>€ џџџџ€ џџџџ€ & 4H6L`˜ € џџџџDЈJbР€ џџџџ&v 2˜H:v€$Tа€  ј€ џџџџ€ џџџџ€ џџџџ>(€ џџџџ€ L@€ џџџџ2€ џџџџ" € џџџџА€ џџџџ€ LИ€ џџџџ. > $8&>H€ џџџџ€ dp и€ џџџџ0ш€ џџџџ (€ џџџџ $>(€ џџџџ .P€ џџџџ j`€ џџџџа€ џџџџ.и€ џџџџ ш€ d№BXp€ џџџџ" x€ џџџџ€€€ˆ€€˜€ € џџџџ€ џџџџ.Ј€ џџџџ $И€ џџџџШ€ џџџџа€ џџџџ р€ џџџџ p€ џџџџ€ џџџџ ˆ€ џџџџ|˜€ џџџџ  € џџџџ ( € џџџџ8 € џџџџ€ џџџџ€ џџџџ"4@ € џџџџ€ ` € p € € €  €   € А € Р € а € џџџџ€ џџџџ*(р .  $  $0 € џџџџ€ &@ 2Žh € џџџџ€ h  € џџџџ*  $P( € џџџџP € џџџџ ` h € џџџџ p € џџџџ€ j€ € џџџџ€ j№ € џџџџ*` € 0x € "Ј а *и  $P№ € џџџџ€ џџџџ  € џџџџ$X( € џџџџР€ џџџџ >P  p  € € џџџџ € џџџџ€ џџџџ ˜ € џџџџЈ € џџџџ€ pА џџџџ0] ѕ@] ѕp] ѕ]Ќѕ Ќѕ0Ќѕа–]ѕDш otm]ѕD ing]ѕD( t.s]ѕDH ]ѕDh џџ]ѕDˆ џџ]ѕD  ]ѕDР џџ]ѕDр џџџџџџ]ѕD ]ѕD :џџџџ]ѕD0 џџ№ `!".:џџ№ :!b.<№ <.@@џџџџ№ <!d.R№ `!".:џџ№ :!b.<№ <.@Hџџџџ <!f hœ %ЙBitte eine Zeichnung anwфhlen. <!lA@j%|џџ8kџџ0№ЙScripting.FileSystemObject$p.n8%[мЙFile = <!lйˆ‡?у###############################? <!lЌ œ?˜—?Й+Das Dokument besitz noch keinen Dateinamen.A@j%?|џџ`kџџX <!lЙ\„ЌœЙ5Das Dokument besitz noch keinen gќltigen Dateinamen. <!lA@jB?ФУC?|џџшkџџр <!l <!lЙ\$t$м'rQ? <!l <!l <!lЙ\$t $x'v^?рп_? v$zЙ.SLDDRW„Ќ›G vЙ.SLDDRW'vjn?№яo? ЖЌ œ" v vЙ.$tЌ $м'visulЙV:\SAP_Transfer\'Œу Speicherort TXT Œ vЙ.csv',уF--------Lіscht die alte CVS-Datei wenn sie vorhanden ist--------------jL›™ , n%Žœ , nB@™ЩkџџpуF----------------------------------------------------------------------_€№ @!’.N[мЙ FileName = <!l й @!–'”Work[мЙ Current sheet = N!˜йMaу]----------------------Sucht die Stќckliste aus dem Feature-Baum heraus-----------------------uate RВbЭЙBomFeat R!šœ[мЙ******************************й[мЙFeature Name :- R!й €№ R!œ.VnЅ : < VA@žу@Q---------Aufruf des Unterprogramms um die Tabelle zu aktivieren------------------swkџџP№ R! .RddМџџ8у^----------------------------------------------------------------------------------------------leAnЌ$” @B@ЂчoџџА–H]ѕ]ѕ8]ѕP]ѕh]ѕˆ№ V!Ј.R V!Њ'ЄbleAЌ'^ І Є“et ^ЌЌ’у w---------------Schleife verhindert mehrfaches schreiben der Stќckliste wenn sie mehrfach getrennt ist------------------ ^Ќ›G|jture•Р№ І.HeatЙл : < HA@Ќу4c---------Aufruf des Unterprogramms zum schreiben der Stќckliste in die CVS-Datei-------------------GetT ^Ыtionsw ІЫwѓ’ oџџшІ – џ]ѕDp nNu]ѕD nRet]ѕDЈ Ret\]ѕDР irstFe]ѕDи €џ]ѕD№ meoш]ѕD tSpeci]ѕD  2‹№ЙScripting.FileSystemObject$p.n €№ H!О.ЎNG H!Р'В—R H!Т'ДathNу Show the name and type of tableic[мЙ Ў!˜Й < H!lЙ>йteinamуa------------------Schleife lіscht die мberschriftszeilen der Stќcklistentabelle------------------ КЌ ДЌ ’Й'Ж Ж КЌ H%dЙ;'ЖtNam ЖЙ1;œDEyџџРkџџИ КЫON_ELTуc---------------------------------------------------------------------------------------------------џџџ_Bуc--------------Schreibt die werte aus der Stќcklistentabelle in die CVS-Datei----------------------- ^ К ДЌ ’у)Jeweils Eine Zeile der StќcklistentabelleуErste Zeile ist мberschriftЙ'Ж ИЌ ВЌ ’ Ж ^ И H%dЙ;'Ж ИЫ[м Ж ЖЌ $мЙ]й№ , 6К n%Ф. Ж B@Ц B@Bkџџ˜  ^Ыoџџ€ уi---------------------------------------------------------------------------------------------------------џџџџ џџџџРџџџџ—ЖAttribute VB_Name = "Macro11" Public queryFilBe”As Sфng FIDENT_@ELTERN 0V@ERSION 4Const For€Readingy„1,Writ‚2Appen!8 Sub Рmain() ЅРDim sw*  ЌldWork8s.Sž5Mo8delŽ‰‚Do„c2 DrawŽ> €d‰Vieœ‰TableP‚Annot ationbRetR SBooleaШ swShe ‰4BЩ&FeaG‰ Aure Bр DRAWING) The„HЁ)MsgBox "Bit Šeine Ze ichnu@|anwфhlen. " &Р& Path‹УсExit р|#End INfcЉ)fs@‡CrрPeObject("ScripˆР'leSystemc"'†ebug.Print ž"› Жi'#cc@'LenЉ'e) < 1Д&Das€ Dokume besitz n och k!)n ˜DatрДn.ФГƒz%FInStr‘@, "\")@0 ?t 0gќlt8igeJП;Н;DATEI ЦZEICHNISLefЦt3‚Revї€>‡с$І'Р Righє yі6- _ D Р?b(@UCase(&)..SLDDRWШ.ч: Ї& "eГ#9G= т!,G‰h".€ - 1„#a a'SpArer€ort TXTУ еsШа€V:\SAP_Trans№fer\x'x37[‚PLИ&X‘ cs&vДГ'-Lіscht die al@DCVS-B wenn spvorhandё`'istusУSPfs2@'sts~(њ ЉKѓ р€eќte2A CSIі џћпIГb3o!aУQcXCurrB‚ѓDнLbšр +V:mФxv‘!TswGхgЯ" д ўsв‚1Б\BС ёs'SтSuESt0ќckl€№us dem o-Baum heraus9И3Do „WhРЉ Not№бс Isбh˜5*+с !"Ф…"Р6swџБa СmЁ tPs1§ъ*0-П‡f`jх| ’:-”R2!?™ q є ъ "УC'зSchleife Dlі€шt dРтмberСыifts,ze%vn el leЯ Љ For ‚kР(0 To Ѕ!8- 1c…O= ~"фЋхСфР( k, 0)` ";#ЈЇ If  1;Р" Thenчa СЇExit @(ЙР0Ifч#BkcџЃА)"?:ј 7!ЊC6wer`ЉausЬЋ%5пЌУщ с$a8i…`8kr8'JewрCs Eine ZЧAEєу 'ErAО§ П (M#aˆ7ш;!~jЉIс ЊIkЅlGiи, jhGЇ GB=jхЕС IpLeft‚(Є , Len…l) Рb ]ѕRЊ>О c"SЈ  Ab fs.OpenT@^Ё•(query!A~,aV ѓendР™, TrueD˜ab.Writela3ф b.C№lose !шk_#џ"bw8v0П, џџMEџџџџџџџџџџпџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ(SLџџџџSџџџџS”џџџџ<џџџџџџN0{801A2004-A66C-11D3-A8BD-0000861EBBD6}џџџџP€ўџџџџџ џџџџ0џџџџџџџџџџ43%џџџџ@џџџџ8џџџџ0џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ@yгІSпўЪџџџџџџџџxџџџџЛАAttribute VB_Name = "ThisLibraryˆ" ˆBasˆ0{801A2004-A66C-11D3-A8BD-0861E BBD6} |GlobalЮSpa‚c’False dCreatablPredeclaIdАTru BExposeTemplate`Deriv’BuРstomizD2Jвмц№Шb