Es wird eine L\u00f6sung f\u00fcr das Ein- und Auslesen von Werten in Excelsheets ben\u00f6tigt.
\nA solution shall enable the user to read and write data to an excel spreadsheet.<\/p>\n
Die Nutzung der OLE Schnittstelle von Excel erlaubt die Fernsteuerung.
\nThe usage of the OLE Interface allows Excel to control excel remotely. <\/p>\n
Der folgende DXL Schnipsel erlaubt die Fernsteuerung von Excel mit OLE Automation.
\nThe following DXL Snipplet allows the user to control the excel interface remotely. <\/p>\n
\r\n\/****************************************************************************\r\n * Beispiele f\u00fcr das Einlesen mit OLE Excel Automation in DXL \r\n * erstellt von Bj\u00f6rn Karpenstein an einem Sonntag (was ich alles mache!!) \r\n ****************************************************************************\/\r\n\r\n\/\/ String Functions\r\n#include "\\\\\\\\bbmag2k\\\\exchange\\\\doors\\\\dxl\\\\strings.inc"; \r\n\r\n\/\/ Global settings\r\n\r\n\/\/pragma encoding,"UTF-8";\r\npragma runLim, 0;\r\n\r\nint findLastRow (OleAutoObj objExcelSheet)\r\n{\r\n OleAutoObj objUsedRange, objRows;\r\n int iRow = 0;\r\n oleGet(objExcelSheet,"UsedRange",objUsedRange);\r\n oleGet(objUsedRange,"Rows",objRows);\r\n oleGet(objRows,"Count",iRow);\r\n\r\n return iRow+1;\r\n}\r\n\r\nint findLastColumn (OleAutoObj objExcelSheet)\r\n{\r\n OleAutoObj objUsedRange, objColumns;\r\n int iColumn = 0;\r\n oleGet(objExcelSheet,"UsedRange",objUsedRange);\r\n oleGet(objUsedRange,"Columns",objColumns);\r\n oleGet(objColumns,"Count",iColumn );\r\n\r\n return iColumn +1;\r\n}\r\n\r\n\/\/ Excel: Table1.Cells(1,2).Value;\r\nstring getCellContent(OleAutoObj objSheet, int x, int y)\r\n{\r\n \/\/ Das hier brauchen wir, um Parameter an OLE-Objekte\r\n \/\/ zu \u00fcbergeben - immer leer machen!\r\n OleAutoArgs objArgBlock = create;\r\n\r\n OleAutoObj objCell;\t\/\/ Das Zellen-Objekt nach \u00dcbermittlung der Koordinaten (1,1)\r\n string zellenInhalt;\t\/\/ Der Inhalt aus der Zelle als String\r\n clear( objArgBlock ); \/\/ Parameter leeren\r\n put( objArgBlock, y ); \/\/ Parameter 2\r\n put( objArgBlock, x ); \/\/ Parameter 1\r\n oleGet(objSheet, "Cells", objArgBlock,objCell); \/\/ Das Zellenobjekt nimmt Koordinaten an\r\n\r\n if (!null objCell)\r\n {\r\n \/\/ Get the value\r\n \/\/ oleGet(objCell,"Value",zellenInhalt);\r\n oleGet(objCell,"FormulaR1C1",zellenInhalt);\r\n }\r\n\r\n return zellenInhalt "";\r\n}\r\n\r\nvoid setCellContent(OleAutoObj objSheet, int x, int y, string zellenInhalt)\r\n{\r\n \/\/ Das hier brauchen wir, um Parameter an OLE-Objekte\r\n \/\/ zu \u00fcbergeben - immer leer machen!\r\n OleAutoArgs objArgBlock = create;\r\n\r\n OleAutoObj objCell;\t\/\/ Das Zellen-Objekt nach \u00dcbermittlung der Koordinaten (1,1)\r\n clear( objArgBlock ); \/\/ Parameter leeren\r\n put( objArgBlock, y ); \/\/ Parameter 2\r\n put( objArgBlock, x ); \/\/ Parameter 1\r\n oleGet(objSheet, "Cells", objArgBlock,objCell); \/\/ Das Zellenobjekt nimmt Koordinaten an\r\n\r\n if (!null objCell)\r\n { \r\n olePut(objCell,"FormulaR1C1",zellenInhalt);\r\n }\r\n}\r\n\r\n \r\nvoid main(void)\r\n{\r\n \/\/ Wenn Excel lokal installiert ist gibt es dieses OLE Objekt im System.. suchs Hasso!!!\r\n OleAutoObj objExcel = oleCreateAutoObject( "Excel.Application" );\r\n\r\n \/\/ Das hier brauchen wir, um Parameter an OLE-Objekte zu \u00fcbergeben - immer leer machen!\r\n OleAutoArgs objArgBlock = create;\r\n\r\n \/\/ Was steht in Application.isVisible?\r\n\r\n bool isVisible;\t\t\t\t\t\/\/ Auslesen 1\r\n oleGet(objExcel, "Visible", isVisible);\t\/\/ Auslesen 2\r\n\r\n\r\n print "Die Anwendung ist momentan " (isVisible?"sichtbar":"unsichtbar") "\\n";\r\n\r\n \/\/ Mache die Anwendung sichtbar Application.isVisible=true;\r\n olePut(objExcel, "Visible", true);\t\t\/\/ Reinschreiben\r\n\r\n \/\/ Ein Woorkbook ist eine Excel-Datei. Excel kann mehrere Dateien \u00f6ffnen daher die \r\n \/\/ Collection. Die Collection selbst hat die Open Methode zum einlesen von XLS-Files\r\n OleAutoObj objWorkbooks;\r\n oleGet(objExcel, "Workbooks", objWorkbooks);\t\t\t\/\/ Hole Workbooks Collection\r\n\r\n \/\/ \u00d6ffne Excel application\r\n string xlsWorkbook="C:\\\\dev\\\\alarms.xls";\t\/\/ \u00d6ffne Workbook\r\n clear( objArgBlock );\r\n put( objArgBlock, xlsWorkbook);\r\n OleAutoObj objWorkbook = null;\r\n oleGet(objWorkbooks, "Open",objArgBlock, objWorkbook ); \/\/ Reinschreiben Datei zu \u00f6ffnen und Auslesen \r\n oleGet(objWorkbooks, "Add", objWorkbook ); \/\/ Falls man die obere Zeile nicht ausfuehrt eins adden\r\n\r\n \r\n\r\n \/\/ Hole das erste Sheet\r\n clear( objArgBlock )\r\n put( objArgBlock, 1 )\r\n oleGet( objWorkbook, "Sheets", objArgBlock, objSheet);\r\n\r\n \/\/ Gib den Namen des ersten Sheets aus\r\n string sheetName;\r\n oleGet(objSheet, "Name", sheetName);\r\n print sheetName "\\n";\r\n\r\n \/\/ Hole das Sheet mit dem Namen adt_warnings_uni.v1.0\r\n clear( objArgBlock );\r\n put( objArgBlock, "adt_alarms_uni.v1.0" ); \r\n oleGet( objWorkbook, "Sheets", objArgBlock, objSheet);\t\r\n\r\n \/\/ Gib den Index des "adt_warnings_uni.v1.0" Sheets aus\r\n int sheetIndex;\r\n oleGet(objSheet, "Index", sheetIndex);\r\n print sheetIndex"\\n";\r\n\r\n \/\/ Hole das Cells(1,1) Objekt um auf die Excel Zellen zuzugreifen\r\n print "Zelleninhalt : " getCellContent(objSheet,17,1) "\\n";\r\n print "Zelleninhalt : " getCellContent(objSheet,18,1) "\\n";\r\n print "Letzte Zeile : " findLastRow(objSheet) "\\n";\r\n print "Letzte Spalte :" findLastColumn(objSheet) "\\n";\r\n\r\n \/\/ Iteration durch das Excel Sheet \r\n int spaltenCount = findLastColumn(objSheet);\r\n int zeilenCount = findLastRow(objSheet);\r\n int currentZeile, currentSpalte;\r\n string zeilenString="";\r\n Skip texte = create;\r\n\r\n for (currentZeile=1;currentZeile<zeilenCount;currentZeile++)\r\n {\r\n\t\r\n DxlObject eqtext = new();\r\n eqtext->"BK_EQtext_english"=getCellContent(objSheet,17,currentZeile) "";\r\n eqtext->"BK_EQtext_german"=getCellContent(objSheet,18,currentZeile) "";\r\n string theKey = getCellContent(objSheet,3,currentZeile) "";\r\n\r\n \/\/ Delete Brackets and numbers within the key\r\n int anfangBrackets=indexOf(theKey, "(");\r\n int endeBrackets=lastIndexOf(theKey, ")");\r\n if (anfangBrackets<endeBrackets)\r\n {\r\n theKey = theKey[0:anfangBrackets-1];\r\n }\r\n\r\n put(texte,trim(theKey),eqtext); \r\n }\r\n\r\n \/\/ Iteration through the SkipList\r\n for myIterator in texte do \r\n {\r\n string keyValue = (string key(texte));\r\n DxlObject currentObject = null;\r\n\r\n if(find(texte, keyValue, currentObject))\r\n {\r\n \/\/ Just put the column names here.. it will work\r\n \/\/print keyValue "\\t";\r\n \/\/print (string currentObject->"BK_EQtext_english") "\\t";\r\n \/\/print (string currentObject->"BK_EQtext_german") "\\n";\r\n }\r\n }\r\n\r\n Module m = edit("\/Project\/filder\/module", true);\r\n Object o;\r\n\r\n for o in m do\r\n {\r\n string doorsKey = trim(o."Object Text" "");\r\n\r\n if (doorsKey != "" && (o."BK_AlarmType" "" == "Alarm") ) \r\n {\r\n DxlObject currentObject = null;\t\r\n if (find (texte, doorsKey, currentObject)) \r\n {\r\n string BK_EQtext_english = (string currentObject->"BK_EQtext_english");\r\n string BK_EQtext_german = (string currentObject->"BK_EQtext_german");\t\t\r\n \t\t\r\n \/\/ Zuweisen\r\n if(trim(BK_EQtext_english) != "")\r\n {\r\n o."BK_EQtext_english" = replace(BK_EQtext_english, charOf(30) "", "\\n") "";\r\n o."BK_EQtext_german" = replace(BK_EQtext_german, charOf(30) "", "\\n") "";\r\n print doorsKey "<<< Da wird was zugwiesen\\n";\r\n }\r\n }\r\n else print "Not found: " doorsKey "\\n";\r\n }\r\n }\r\n\r\n \/\/ Speicher aufr\u00e4umen\r\n oleCloseAutoObject( objExcel );\r\n}\r\n\r\nmain();\r\n<\/pre>\n