| | | Accelerate Digital Transformation | >> Anmelden und Early Bird Discount sichern! <<, eine Pressemitteilung
|
Autor
|
Thema: Skript zum Import von Artikel von Excel-Stückliste in E3 Projekt (557 / mal gelesen)
|
Thomas6789 Mitglied CAE-Admin
Beiträge: 32 Registriert: 24.10.2018 Zuken E3
|
erstellt am: 22. Feb. 2023 14:02 <-- editieren / zitieren --> Unities abgeben:
Hallo an alle E3 Nutzer! ich möchte ein Skript erstellen zum Import von Artikeln aus einer Excel Stückliste (siehe Beispiel Stückliste). E3 müsste also alle in einer bestimmten Excel Stückliste vorhandenen Artikel mit der entsprechenden Anzahl einlesen und Anhand der Artikelnummer schauen, ob der jeweilige Artikel in der DB vorhanden ist. Wenn ja, soll der Artikel im Betriebsmittelbaum in der entsprechenden Stückzahl eingefügt werden. Hat jemand eventuell bereits in ähnliches Skript erstellt, was ich als Vorlage verwenden könnte? In der COM-Hilfe konnte ich leider nichts passendes finden. Vielen Dank
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Ex-Mitglied
|
erstellt am: 22. Mrz. 2023 10:21 <-- editieren / zitieren -->
Hallo Zusammen Das Thema würde mich auch brennend interessieren. So könnte man ein Projekt komplett strukturiert vorplanen und danach die Bauteile im Schema ablegen, oder habe ich da etwas falsch verstanden? Bei uns wird die Maschine meist aus der Planung bereits komplett in Excel vorgeplant. So wäre es, falls E3 es erlaubt, ein kleines das Material bereits ins Projekt zu schieben. Den Teil im Excel programmieren wäre kein Problem allerdings habe ich keine Ahnung wie man die DB im E3 anspricht. Auch in der COM Hilfe habe ich nichts gefunden, wobei wenn man dort nicht weiss wonach man sucht, findet man wohl auch nix Als erstes müsste man ja vielleicht prüfen ob das Bauteil in der E3-Datenbank existiert. Danach den Artikel in der gewünschten Menge in die richtige Struktur einfügen. Wenn man dann das ganze noch weitertreiben will könnte man die Bauteile noch automatisch im Plan ablegen. Sehr interessant auf jeden Fall Gruss Sevy ------------------ Dieser Eintrag wurde mit glücklichen Elektronen aus 100% freier Haltung geschrieben |
K0NFUZIUS Moderator
Beiträge: 271 Registriert: 06.02.2006
|
erstellt am: 22. Mrz. 2023 11:56 <-- editieren / zitieren --> Unities abgeben: Nur für Thomas6789
Hallo, tut nicht genau das, das Skript das schon mitinstalliert wird? Addon-ons -> Excel Documents -> Include Device table (EXCEL Dokumente->Betriebsmitteltabelle einbinden) Hab das mal ausprobiert und in das Excel File Bauteilname und Betriebsmittelkennzeichen eingeben und dann auf den Pfeil zurück gedrückt und dann wurde das Betriebsbmittel angelegt. Gruß Jörg Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Ex-Mitglied
|
erstellt am: 22. Mrz. 2023 12:25 <-- editieren / zitieren -->
Hallo Jörg Das ist ja der Hammer sag mal woher weisst du all das Zeugs? Hast du etwa E3 entwickelt? Jedenfalls vielen Dank für deine Hilfe, ich geh dann mal damit rumspielen. Gruss und eine schöne Restwoche, Sevy ------------------ Dieser Eintrag wurde mit glücklichen Elektronen aus 100% freier Haltung geschrieben |
K0NFUZIUS Moderator
Beiträge: 271 Registriert: 06.02.2006
|
erstellt am: 22. Mrz. 2023 13:29 <-- editieren / zitieren --> Unities abgeben: Nur für Thomas6789
|
Ex-Mitglied
|
erstellt am: 24. Mrz. 2023 07:21 <-- editieren / zitieren -->
Zitat: Original erstellt von K0NFUZIUS: K0NFUZIUS sagt:
Guten morgen Jörg Solche Lebensweisheiten machen mich immer ganz Konfus(zius) Dein Excel-File habe ich ausprobiert funktioniert einwandfrei. Schön das der Code frei zugänglich ist, der kommt nun in meine Sammlung. Besten Dank dir und ein schönes Weekend, Gruss Sevy '**************************************************************** Im OP habe ich gesehen das eine Summenstückliste verwendet werden soll. Das macht, von meiner Sicht aus dann ja wohl keinen Sinn die so in E3 einzulesen. Die Summenliste könnte man ja dann vielleicht so auflösen. [Quick&Dirty] Code:
Set ws = ActiveSheet For i = 5 To 39 If ws.Cells(i, 1) <> "" And Left(ws.Cells(i, 1), 1) = "=" Then Anlage = ws.Cells(i, 1) If ws.Cells(i, 2) <> "" And Left(ws.Cells(i, 2), 1) = "+" Then Ort = ws.Cells(i, 2) If ws.Cells(i, 3) <> "" Then For j = 1 To ws.Cells(i, 2) RFK = Anlage & Ort & "-" & j Stück = 1 ERP = ws.Cells(i, 3) '<Write to E3.DB> Next j End If Next i
------------------ Dieser Eintrag wurde mit glücklichen Elektronen aus 100% freier Haltung geschrieben |
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|