| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für EPLAN |
Autor
|
Thema: Seitenmakro (.emp) mit Excel bearbeiten (2377 mal gelesen)
|
ePlanVirus Mitglied CAD Konstrukteur
Beiträge: 9 Registriert: 23.08.2018
|
erstellt am: 27. Aug. 2019 19:43 <-- editieren / zitieren --> Unities abgeben:
Hallo zusammen, vielleicht kann mir eine(r) helfen, habe im Forum nichts zutreffendes gefunden. Würde gerne ein Seitenmakro (.emp Format) mit Excel öffnen (XML-Format) überarbeiten und wieder speichern, nun meine Fragen: 1. Wie kann ich aus Excel XML Format wieder in .emp speichern? 2. kann ich mittels Makro bestimmte Werte aus einer anderen Tabelle suchen und ersetzen? Vielen Dank im Voraus Gruß Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
django Moderator Elektrokonstrukteur
Beiträge: 2903 Registriert: 12.02.2002 EPLAN 3.33 EPLAN 5.xx P8 1.9.6 P8 1.9.10 P8 1.9.11 P8 2.0.9 - 2.8 alle Prof.
|
erstellt am: 28. Aug. 2019 06:52 <-- editieren / zitieren --> Unities abgeben: Nur für ePlanVirus
Zitat: Original erstellt von ePlanVirus: Hallo zusammen,vielleicht kann mir eine(r) helfen, habe im Forum nichts zutreffendes gefunden. Würde gerne ein Seitenmakro (.emp Format) mit Excel öffnen (XML-Format) überarbeiten und wieder speichern, nun meine Fragen: 1. Wie kann ich aus Excel XML Format wieder in .emp speichern? 2. kann ich mittels Makro bestimmte Werte aus einer anderen Tabelle suchen und ersetzen? Vielen Dank im Voraus Gruß
Die Datei in EXCEL zu öffnen ist das eine. Das andere ist du musst wissen was du ändern willst. Dieses Format ist nicht beschrieben und es gibt auch offiziell nichts von EPLAN. Bei diesem Zahlencode durch zublicken ist nicht gerade einfach. Also ich habe mich da ausgeklinkt. Zu großer Aufwand für zu wenig Ertrag. Wäre die Struktur beschrieben wäre es machbar.
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cad_hans Ehrenmitglied V.I.P. h.c. Techn. Angestellter
Beiträge: 2052 Registriert: 25.08.2003 ruplan4.70 eplan5.x P8 V1.9 bis V2.7
|
erstellt am: 28. Aug. 2019 07:36 <-- editieren / zitieren --> Unities abgeben: Nur für ePlanVirus
|
ePlanVirus Mitglied CAD Konstrukteur
Beiträge: 9 Registriert: 23.08.2018
|
erstellt am: 28. Aug. 2019 09:15 <-- editieren / zitieren --> Unities abgeben:
|
Klabauterfrau Mitglied
Beiträge: 492 Registriert: 15.04.2014 EPLAN 5.70 SP1 EPLAN P8 V2.9 Professional, EPLAN P8 2023 Windows 10 Enterprise 64 Bit
|
erstellt am: 28. Aug. 2019 10:58 <-- editieren / zitieren --> Unities abgeben: Nur für ePlanVirus
Wir benutzen das oft, wenn wir z.B. viele ähnliche Klemmenkästen erstellen müssen, und übergeordnet bestimmte Zeichenketten abgeändert werden müssen. So erreicht man Strukturkennzeichen und z.B.Texte in einem Arbeitsgang. Man muss darauf achten, dass die zu ändernde Zeichenkette eindeutig und nicht zu kurz ist! Und es sind einige Sachen von Hand nachzuarbeiten.(Ausgabeseiten, alte Strukturkennzeichen in der Verwaltung löschen, BMK) Wir haben in einer Excel Tabelle ein VBA Makro erstellt, mit dessen Hilfe in der emp-Datei Zeichenketten ausgetauscht werden. Wir gehen dann so vor: - In EPLAN Seitenmakro erstellen - vorbereitete Excel Tabelle öffnen und darin die Vorher/Nachher Texte in 2 Spalten gegenüberstellen - Das Excel Makro starten - die gewünschte emp-Datei auswählen - es werden Texte ersetzt und eine neue emp-Datei erstellt - die kann in EPLAN importiert werden
------------------ Der tägliche Eplan P8 Kampf: abgleichen – aktualisieren – vervollständigen – exportieren – importieren – abgleichen – aktualisieren – vervollständigen – exportieren - importieren– abgleichen – aktualisieren – vervollständigen… Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Hennig.T Mitglied Ingenieur, Elektroprojektant
Beiträge: 422 Registriert: 15.08.2010 Eplan 5.70 - Eplan P8(2023) Siegraph ET/CAE Eagle
|
erstellt am: 28. Aug. 2019 15:29 <-- editieren / zitieren --> Unities abgeben: Nur für ePlanVirus
Text ist nicht immer Text es gibt hier in einer Datei verschiedene Codierungen. ANSI, UTF8 oder sogar die HTML Darstellung für Umlaute. Nicht immer wird NL und CR zusammen verwendet um einen Zeilenumbruch zu generieren. Was bei EXEL schon einmal ein bisschen Bauchschmerzen bereitet. ------------------ E-Plan ist nichts zum Essen. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
ePlanVirus Mitglied CAD Konstrukteur
Beiträge: 9 Registriert: 23.08.2018
|
erstellt am: 28. Aug. 2019 18:25 <-- editieren / zitieren --> Unities abgeben:
Hallo zusammen, vielen Dank für die Antworten und Anregung. Würde es ach gerne in die Richtung gehen wie von Klabauterfrau beschrieben : - vorbereitete Excel Tabelle öffnen und darin die Vorher/Nachher Texte in 2 Spalten gegenüberstellen - Das Excel Makro starten - die gewünschte emp-Datei auswählen - es werden Texte ersetzt und eine neue emp-Datei erstellt - die kann in EPLAN importiert werden Leider hat es bei mir noch geklappt so ein VB Script zu erstellen, Excel öffnet das Seitenmakto als XML und will es auch so abspeichern. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
ePlanVirus Mitglied CAD Konstrukteur
Beiträge: 9 Registriert: 23.08.2018
|
erstellt am: 28. Aug. 2019 18:26 <-- editieren / zitieren --> Unities abgeben:
Hallo zusammen, vielen Dank für die Antworten und Anregung. Würde es ach gerne in die Richtung gehen wie von Klabauterfrau beschrieben : - vorbereitete Excel Tabelle öffnen und darin die Vorher/Nachher Texte in 2 Spalten gegenüberstellen - Das Excel Makro starten - die gewünschte emp-Datei auswählen - es werden Texte ersetzt und eine neue emp-Datei erstellt - die kann in EPLAN importiert werden Leider hat es bei mir noch geklappt so ein VB Script zu erstellen, Excel öffnet das Seitenmakto als XML und will es auch so abspeichern. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
ePlanVirus Mitglied CAD Konstrukteur
Beiträge: 9 Registriert: 23.08.2018
|
erstellt am: 28. Aug. 2019 18:27 <-- editieren / zitieren --> Unities abgeben:
Hallo zusammen, vielen Dank für die Antworten und Anregung. Würde es ach gerne in die Richtung gehen wie von Klabauterfrau beschrieben : - vorbereitete Excel Tabelle öffnen und darin die Vorher/Nachher Texte in 2 Spalten gegenüberstellen - Das Excel Makro starten - die gewünschte emp-Datei auswählen - es werden Texte ersetzt und eine neue emp-Datei erstellt - die kann in EPLAN importiert werden Leider hat es bei mir noch geklappt so ein VB Script zu erstellen, Excel öffnet das Seitenmakto als XML und will es auch so abspeichern. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
ePlanVirus Mitglied CAD Konstrukteur
Beiträge: 9 Registriert: 23.08.2018
|
erstellt am: 28. Aug. 2019 18:27 <-- editieren / zitieren --> Unities abgeben:
Hallo zusammen, vielen Dank für die Antworten und Anregung. Würde es ach gerne in die Richtung gehen wie von Klabauterfrau beschrieben : - vorbereitete Excel Tabelle öffnen und darin die Vorher/Nachher Texte in 2 Spalten gegenüberstellen - Das Excel Makro starten - die gewünschte emp-Datei auswählen - es werden Texte ersetzt und eine neue emp-Datei erstellt - die kann in EPLAN importiert werden Leider hat es bei mir noch geklappt so ein VB Script zu erstellen, Excel öffnet das Seitenmakto als XML und will es auch so abspeichern. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
nairolf Ehrenmitglied Elektroingenieur
Beiträge: 1987 Registriert: 21.01.2006 EPLAN Electric P8 2022.0.3 Update 2 (Build 17673) EPLAN Pro Panel Professional Addon EPLAN Fluid Addon
|
erstellt am: 29. Aug. 2019 08:30 <-- editieren / zitieren --> Unities abgeben: Nur für ePlanVirus
Was für Werte / Eigenschaften sollen denn genau geändert werden ? Dieses ganze externe “Gefrickel” ist halt nicht ungefährlich und seitdem nun auch seitenübergreifende Platzhalter existieren, ist oftmals die EPLAN-interne Lösung zielführend. Liebe Grüße, nairolf ------------------ Der Fuchs ist schlau und stellt sich dumm. Bei vielen ist es andersrum ------------------------------------------ Da lernt man mühevoll laufen und sprechen, und nun soll ich stillsitzen und die Klappe halten ! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Hennig.T Mitglied Ingenieur, Elektroprojektant
Beiträge: 422 Registriert: 15.08.2010 Eplan 5.70 - Eplan P8(2023) Siegraph ET/CAE Eagle
|
erstellt am: 29. Aug. 2019 08:53 <-- editieren / zitieren --> Unities abgeben: Nur für ePlanVirus
Ich muss nairolf recht geben. Mit einem Falschen Parameter kann man sich das ganze Projekt zerschießen. Es werden nicht alle Werte beim Import auf Plausibilität geprüft. Manche Fehler zeigen sich erst bei der Auswertung/Übersetzung/Aktualisierung... ------------------ E-Plan ist nichts zum Essen. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Klabauterfrau Mitglied
Beiträge: 492 Registriert: 15.04.2014 EPLAN 5.70 SP1 EPLAN P8 V2.9 Professional, EPLAN P8 2023 Windows 10 Enterprise 64 Bit
|
erstellt am: 29. Aug. 2019 09:30 <-- editieren / zitieren --> Unities abgeben: Nur für ePlanVirus
Zitat: Original erstellt von ePlanVirus:
Leider hat es bei mir noch geklappt so ein VB Script zu erstellen, Excel öffnet das Seitenmakto als XML und will es auch so abspeichern.
Excel soll das Seitenmakro gar nicht öffnen, nur darin Texte tauschen. Ich drücke dazu den Knopf auf der Seite mit den gegenübergestellten Texten. (1.Zeile leer, keine Leerzeilen) Siehe Bild Hier mal das kleine Programm: --------------------------------------------- Private Sub cmdStart_Click() Dim Suchen As String Dim Ersetzen As String Dim Index1 As Integer Dim Zelle As String Dim err As Integer Dim Filename As String Dim FileNr1 As Integer Dim FileNr2 As Integer Dim Inhalt As String Dim Pos As Integer Dim ListeSuchen As New Collection Dim ListeErsetzen As New Collection Dim Index As Integer Dim ret As Integer Dim Anzahl As Integer With wsMakro Index1 = 2 Anzahl = 0 Do Zelle = "A" & CStr(Index1) Suchen = .Range(Zelle).Value If Suchen <> "" Then Zelle = "B" & CStr(Index1) Ersetzen = .Range(Zelle).Value ListeSuchen.Add Suchen ListeErsetzen.Add Ersetzen Else Exit Do End If Index1 = Index1 + 1 Loop Until Suchen = "" Or Index1 > 100 End With With dlgDatei .Filter = "*.emp" .InitDir = DieseArbeitsmappe.Path & "\" .Filename = "*.emp" .MaxFileSize = 1000 .ShowOpen Filename = .Filename End With If err = 0 And Filename <> "*.emp" Then cmdStart.BackColor = vbRed DoEvents FileNr1 = FreeFile Open Filename For Input As #FileNr1 FileNr2 = FreeFile Filename = Replace(Filename, ".emp", "_IMPORT.emp") Open Filename For Output As #FileNr2 Do Until EOF(FileNr1) Line Input #FileNr1, Inhalt For Index = 1 To ListeSuchen.Count If InStr(Inhalt, ListeSuchen.Item(Index)) > 0 Then Inhalt = Replace(Inhalt, ListeSuchen.Item(Index), ListeErsetzen.Item(Index)) Anzahl = Anzahl + 1 End If Next Print #FileNr2, Inhalt Loop Close #FileNr1 Close #FileNr2 End If cmdStart.BackColor = vbGreen ret = MsgBox(CStr(Anzahl) & " Einträge ersetzt", vbOKOnly, "Suchen und Ersetzen") End Sub ---------------------------------------------------------------------------------------- ------------------ Der tägliche Eplan P8 Kampf: abgleichen – aktualisieren – vervollständigen – exportieren – importieren – abgleichen – aktualisieren – vervollständigen – exportieren - importieren– abgleichen – aktualisieren – vervollständigen… Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Klabauterfrau Mitglied
Beiträge: 492 Registriert: 15.04.2014 EPLAN 5.70 SP1 EPLAN P8 V2.9 Professional, EPLAN P8 2023 Windows 10 Enterprise 64 Bit
|
erstellt am: 29. Aug. 2019 09:41 <-- editieren / zitieren --> Unities abgeben: Nur für ePlanVirus
Zitat: Original erstellt von Hennig.T: Ich muss nairolf recht geben.(Nairolf: Dieses ganze externe “Gefrickel” ist halt nicht ungefährlich und seitdem nun auch seitenübergreifende Platzhalter existieren, ist oftmals die EPLAN-interne Lösung zielführend.) Mit einem Falschen Parameter kann man sich das ganze Projekt zerschießen. Es werden nicht alle Werte beim Import auf Plausibilität geprüft. Manche Fehler zeigen sich erst bei der Auswertung/Übersetzung/Aktualisierung...
Ihr habt beide Recht. Da wird auch absolut nicht auf Plausibilität geprüft - einfach nur 'dumm' eins gegen das andere ersetzt. (Siehe Bild oben) Muss man abwägen, ob einem das was bringt oder nicht. Wir haben z.B.massenweise Klemmenkästen kopiert, dann mit dem Tool das Gerüst geändert, und dann manuell die Unterschiede eingearbeitet. Dabei wären gravierende Fehler aufgefallen. ...wäre natürlich der Hammer, wenn EPLAN so etwas mit Plausibilitätsprüfung anbieten würde! ;-)
------------------ Der tägliche Eplan P8 Kampf: abgleichen – aktualisieren – vervollständigen – exportieren – importieren – abgleichen – aktualisieren – vervollständigen – exportieren - importieren– abgleichen – aktualisieren – vervollständigen… Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Hennig.T Mitglied Ingenieur, Elektroprojektant
Beiträge: 422 Registriert: 15.08.2010 Eplan 5.70 - Eplan P8(2023) Siegraph ET/CAE Eagle
|
erstellt am: 29. Aug. 2019 11:44 <-- editieren / zitieren --> Unities abgeben: Nur für ePlanVirus
Denke daran das die Texte 1. mit =" beginnen müssen 2. mit " + Leerzeichen enden müssen 3. auch Fremdsprachenmarker enthalten können z.B. @de_DE .... 4. Bilder machen sehr lange Strings unter Umständen musst Du da im VBA anpassen Sonnst besteht die gefahr das Du Sätze kaputt machst. ------------------ E-Plan ist nichts zum Essen. [Diese Nachricht wurde von Hennig.T am 29. Aug. 2019 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
ePlanVirus Mitglied CAD Konstrukteur
Beiträge: 9 Registriert: 23.08.2018
|
erstellt am: 29. Aug. 2019 23:19 <-- editieren / zitieren --> Unities abgeben:
Abend zusammen, vielen Dank Klabauterfrau für das „kleine“ Script, das werde ich direkt morgen testen. Das ist echt komplex mit excel seitenmakros bearbeiten zu wollen. @nairolf ich wollte zb verschiedene Frequenzumrichter mittels der Artikelnummer auswählen und dann auf verschiedenen Seiten im Plan platzieren zb Seite1 Single Motor Modul, Seite 2 Double Motor Modul usw. und das am liebsten als „Optionen“ in excel. Vielen dank nochmals euch. Gruß Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |