IBM Doors besitzt keine direkte Import-Option f\u00fcr Excel Files. Man geht hier den Umweg \u00fcber das konvertieren in andere Formate. Manchmal sind mehrere Tools bei einem Import beteiligt.<\/p>\n
Durch das direkte Einlesen von Excel Dateien in DXL \u00fcber OLE Automation kann auf Zellenwerte zugegriffen werden.<\/p>\n
\r\n\/\/ Global settings\r\n\/\/pragma encoding,"UTF-8";\r\npragma runLim, 0;\r\n\r\nint findLastRow (OleAutoObj objExcelSheet)\r\n{\r\n\tOleAutoObj objUsedRange, objRows;\r\n int iRow = 0;\r\n\toleGet(objExcelSheet,"UsedRange",objUsedRange);\r\n\toleGet(objUsedRange,"Rows",objRows);\r\n\toleGet(objRows,"Count",iRow);\r\n \r\n return iRow+1;\r\n}\r\n\r\nint findLastColumn (OleAutoObj objExcelSheet)\r\n{\r\n\tOleAutoObj objUsedRange, objColumns;\r\n int iColumn = 0;\r\n\toleGet(objExcelSheet,"UsedRange",objUsedRange);\r\n\toleGet(objUsedRange,"Columns",objColumns);\r\n\toleGet(objColumns,"Count",iColumn );\r\n \r\n return iColumn +1;\r\n}\r\n\r\nstring getCellContent(OleAutoObj objSheet, int x, int y)\r\n{\r\n\t\/\/ Das hier brauchen wir, um Parameter an OLE-Objekte zu \u00fcbergeben\r\n \/\/ - immer leer machen!\r\n\tOleAutoArgs objArgBlock = create;\r\n\r\n\tOleAutoObj objCell; \/\/ Das Zellen-Objekt nach \u00dcbermittlung \r\n \/\/ der Koordinaten (1,1)\r\n\tstring zellenInhalt;\t\/\/ Der Inhalt aus der Zelle als String\r\n\tclear( objArgBlock ); \/\/ Parameter leeren\r\n\tput( objArgBlock, x ); \/\/ Parameter 1\r\n\tput( objArgBlock, y ); \/\/ Parameter 2\r\n \/\/ Das Zellenobjekt nimmt Koordinaten an\r\n\toleGet(objSheet, "Cells", objArgBlock,objCell); \r\n\r\n\tif (!null objCell)\r\n\t\t\/\/ Ewig rumprobiert... Value liefert Schrott bei Zahlen (manchmal nix...) \r\n\t\t\/\/ oleGet(objCell,"Value",zellenInhalt);\t{\r\n\r\n\t\t\/\/ Get the value\r\n\t\toleGet(objCell,"FormulaR1C1",zellenInhalt);\r\n\t}\r\n\telse return "";\r\n\r\n\treturn zellenInhalt "";\r\n}\r\n \r\n \r\n \r\nvoid main(void)\r\n{\r\n\t\/\/ Wenn Excel lokal installiert ist gibt es dieses OLE Objekt im \r\n \/\/ System.. suchs Hasso!!!\r\n\tOleAutoObj objExcel = oleCreateAutoObject( "Excel.Application" );\r\n\r\n\t\/\/ Das hier brauchen wir, um Parameter an OLE-Objekte zu \r\n \/\/ \u00fcbergeben - immer leer machen!\r\n\tOleAutoArgs objArgBlock = create;\r\n\r\n\t\/\/ Was steht in Application.isVisible?\r\n\tbool isVisible;\t\/\/ Auslesen 1\r\n\toleGet(objExcel, "Visible", isVisible);\t\/\/ Auslesen 2\r\n\tprint "Die Anwendung ist momentan " (isVisible?"sichtbar":"unsichtbar") "\\n";\r\n\r\n\t\/\/ Mache die Anwendung sichtbar Application.isVisible=true;\r\n\tolePut(objExcel, "Visible", true);\t\t\/\/ Reinschreiben\r\n\r\n\t\/\/ Ein Woorkbook ist eine Excel-Datei. Excel kann mehrere Dateien \r\n \/\/ \u00f6ffnen daher die Collection. Die Collection selbst hat die Open \r\n \/\/ Methode zum einlesen von XLS-Files\r\n\tOleAutoObj objWorkbooks;\r\n\toleGet(objExcel, "Workbooks", objWorkbooks);\t\/\/ Hole Workbooks Collection\r\n\r\n\t\/\/ \u00d6ffne Excel application\r\n\tstring xlsWorkbook="N:\\\\doorsattachments\\\\alarms.xls";\t\/\/ \u00d6ffne Workbook\r\n\tclear( objArgBlock );\r\n\tput( objArgBlock, xlsWorkbook);\r\n\tOleAutoObj objWorkbook = null;\r\n \/\/ Reinschreiben Datei zu \u00f6ffnen und Auslesen \r\n\toleGet(objWorkbooks, "Open",objArgBlock, objWorkbook ); \r\n\t\/\/ Hole das erste Sheet\r\n\tclear( objArgBlock )\r\n\tput( objArgBlock, 1 )\r\n\toleGet( objWorkbook, "Sheets", objArgBlock, objSheet);\r\n\r\n\t\/\/ Gib den Namen des ersten Sheets aus\r\n\tstring sheetName;\r\n\toleGet(objSheet, "Name", sheetName);\r\n\tprint sheetName "\\n";\r\n\r\n\t\/\/ Hole das Sheet mit dem Namen sheet1\r\n\tclear( objArgBlock );\r\n\tput( objArgBlock, "sheet1" ); \r\n\toleGet( objWorkbook, "Sheets", objArgBlock, objSheet);\t\r\n\r\n\t\/\/ Gib den Index des "sheet1" Sheets aus\r\n\tint sheetIndex;\r\n\toleGet(objSheet, "Index", sheetIndex);\r\n\tprint sheetIndex"\\n";\r\n\r\n\t\/\/ Hole das Cells(1,1) Objekt um auf die Excel Zellen zuzugreifen\r\n\tprint "Zelleninhalt : " getCellContent(objSheet,1,1) "\\n";\r\n\tprint "Zelleninhalt : " getCellContent(objSheet,2,2) "\\n";\r\n\tprint "Letzte Zeile : " findLastRow(objSheet) "\\n";\r\n\tprint "Letzte Spalte :" findLastColumn(objSheet) "\\n";\r\n\r\n\t\/\/ Iteration durch das Excel Sheet \r\n\tint spaltenCount = findLastColumn(objSheet);\r\n\tint zeilenCount = findLastRow(objSheet);\r\n\tint currentZeile, currentSpalte;\r\n\tstring zeilenString="";\r\n\r\n\tfor (currentZeile=1;currentZeile<zeilenCount;currentZeile++)\r\n\t{\r\n\t\t\r\n\t\tfor (currentSpalte=1;currentSpalte<spaltenCount;currentSpalte++)\r\n\t\t{\r\n\t\t\tzeilenString = zeilenString "" getCellContent(objSheet, \/\/-\r\n currentSpalte, currentZeile) "\\t";\t\r\n\t\t}\r\n\t\tprint zeilenString "\\n";\r\n\t\tzeilenString="";\r\n\t}\r\n\r\n\t\/\/ Speicher aufr\u00e4umen\r\n\toleCloseAutoObject( objExcel );\r\n}\r\n\r\nmain();\r\n<\/pre>\n