DIPLOMARBEIT SSAP - HTL- Innovativ Austria
DIPLOMARBEIT SSAP - HTL- Innovativ Austria
DIPLOMARBEIT SSAP - HTL- Innovativ Austria
Erfolgreiche ePaper selbst erstellen
Machen Sie aus Ihren PDF Publikationen ein blätterbares Flipbook mit unserer einzigartigen Google optimierten e-Paper Software.
Diplomarbeit<br />
Lanzanasto, Neumann, Plattner<br />
2.4. Programmübersicht<br />
2.4.1. Connection Excel<br />
Um mit dem Transfer der Daten in die Datenbank beginnen zu können, muss<br />
zuerst eine Verbindung mit dem Excel-File aufgebaut werden. Dazu wird als<br />
erstes mit der Funktion CreateObject(„Excel-Application“) ein neues<br />
Objekt generiert. Mit der Funktion Workbooks.Open(FileName, ,true) wird nun<br />
eine Verbindung zum gewünschten Excel-File aufgebaut. Dabei wird das File<br />
schreibgeschützt im Hintergrund geöffnet. Bei einem unerwarteten Programmabsturz<br />
würde das File geöffnet bleiben, daher wird es zur Vorsicht sichtbar<br />
gemacht, um zu sehen, dass es geöffnet wurde,und man es dann zu schließen<br />
hat.<br />
Dim objExcel, FileName, objWorkbook<br />
objExcel = CreateObject("Excel.Application")<br />
FileName = "...\SR Shops - IT Info.xlsm"<br />
objWorkbook = objExcel.Workbooks.Open(FileName, , True) ' Open Read Only<br />
objExcel.Visible = True<br />
Anschließend werden einzelne Unterprogramme zum Import nacheinander<br />
gestartet. Zuerst werden die Länder übertragen, danach die Shops und zuletzt die<br />
Hardware. Die Unterprogramme für Shops und Hardware werden immer für jeden<br />
Kontinent einzeln gestartet, da so für eine Übertragung weniger Worksheets aus<br />
dem Excelfile verwendet werden müssen.<br />
Seite 13