Office: Quellcodes Vergleichen

Guten Abend zusammen,

ich würde gerne ein Makro schreiben, mit dem es möglich ist Makros aus anderen Excel Dateien zu vergleichen.

Sprich in Meiner Hauptdatei, in der das "Vergleichen" Makro läuft, möchte ich eine Tabelle mit den zu untersuchenden anderen Dateien anlegen:
Tabelle1.xlsm
Tabelle2.xlsm
Tabelle3.xlsm

Wird das Makro "Vergleichen" ausgeführt soll es den Quellcode, der in Tabell1 enthaltenen Makros, mit den Quellcodes der in Tabelle 2 und 3 enthaltenen Makros vergleichen. Ziel ist beispielsweise die Aussage Tabelle 2 ist ein Plagiat von Tabelle 1, Tabelle 3 ist nicht gleich.

Da ich leider absoluter Anfänger bin, stehe ich vor mehreren Problemen:
- Geht das überhaupt?
- Wie komme ich an den Quellcode in externen Excel Arbeitsmappen?
- Wie kann ich den eingeladenen Code dann Zeile für Zeile vergleichen?

Besten Dank im Voraus und viele Grüße,
Flobbes

:)

 

Möchtest du das immer mal wieder automatisch vergleichen, oder nur einmalig. Dann ist es vielleicht einfacher Notepad++ zu nutzen. Einfach die beiden Codes in die Fenster von NotePad++ kopieren und vergleichen lassen.

Aber ja, man kann auch den Code direkt vergleichen, wenn die Excelmappe und Excel so eingestellt sind, das die das zulassen.

Excel -> Datei - Optionen -> Trust Center -> Einstellung für das Trust Center -> Zugriff auf das VBA-Projektobjektmodell vertrauen

Da kann man aber ganz viel Blödsinn mit anstellen. Nicht umsonst ist dieser Hacken Standardmäßig nicht gesetzt!

Guter Rat von mir: Lass es sein und nutze NotePadd++

 

Hallo,
Schonmal Danke für die schnelle Rückmeldung.
Genau gesagt handelt es sich hierbei um eine Studienarbeit. Deshalb sollte sich das mit dem“Laiendasein“ im Laufe der Arbeit ändern *Smilie
Aber VBA ist gesetzt, auf ein anderes Programm ausweichen geht leider nicht...

 

Hallo nochmal,

Vielleicht kann mir nochmal jemand auf die Sprünge helfen. Wenn ich die oben genannte Einstellung gemacht habe, wie muss dann mein Code aussehen?

Zunächst muss ich wahrscheinlich die externe Datei einbinden: Set ext_WB = Workbook.Open(Pfad & „Name“)

Auf die Zellen könnte ich beispielsweise so zugreifen: Ext_WB.Sheets(„Tabelle1“).Range(„A2”)


Aber in diesem Fall möchte ich ja nicht auf eine Zelle in der externen Datei zugreifen, sondern auf ein Makro. Wie sieht die Anweisung dafür aus?

 

Hallo Flobbes,

was auch immer mit "Plagiat" hier gemeint ist: Du kannst einfach vergleichen, ob das komplette Modul identisch ist oder eben nicht.

Den Code eines Moduls liest Du nach folgendem Beispiel aus:
Code:

Das machst Du bei den anderen analog und vergleichst die Strings.

Da Du jetzt weißt, wie man alle Zeilen ausliest, kannst Du Dir auch herleiten, wie man eine ausliest. Auch weißt Du, wenn Du den Code verstanden hast, wie man die Anzahl der Codezeilen feststellt.

Grüße
EarlFred

 

...das Dilemma ist... hier wird immer nur Modul1 mit Modul 1 usw. vergleichen. Wenn ein Student clever istund nur die Modulnamen ändert, läuft das schon wieder ins Leere...
Oder soll jedes Modul mit jedem vergleichen werden? Dann müssten vorher noch die VBE Komponenten ermittelt werden...

 

\@Ralf,
ganz genau - aber nicht nur das, sondern auch: Variablennamen, Reihenfolge der Prozeduren, allein schon eine zusätzliche Leerzeile genügt.... Endlose Liste

Darum die Frage:

Was soll ein "Plagiat" sein und was nicht?

Die Aussage "ist nicht gleich" ist hingegen leicht zu prüfen. Da der Grund für den Vergleich nicht angegeben ist (kann ja sein, dass der Code nur auf Übereinstimmung geprüft werden soll, um sicherzugehen, dass er aktuell ist), ist das halt schwer einzuschätzen.

Grüße
EarlFred

 

Erstmal muss ich sagen, dass ich echt überrascht bin wie zahlreich und kompetent hier geholfen wird. Danke dafür.

Ja ich denke "ähnliche" Codes zu erkennen ist wirklich schwierig. Vorerst will ich versuchen codes die 100% identisch sind zu erkennen. Wenn das läuft kann verfeinert werden.

Ja, das wäre das Ziel. Quervergleich von allen Modulen in beiden Dateien. Kann man alle enthaltenen Modulnamen auslesen? Dann könnte ich diese praktisch als Variable in EarlFred's Code einfügen.

 

Hallo Flobbes,

Code:

Grüße
EarlFred

 

Das Erkennen ist nur die eine Seite. Vermutlich geht es ja darum, zu erkennen,ob jemand per Copy and paste "abgeschrieben" hat? Und da wird es schon schwieriger. Wie gesagt, geschickt ein paar Namen (egal ob Modul, Variable, Prozedur oder was auch immer) geändert, und schon wird es mit dem Beweis schwierig. Indizien allein zählen kaum als Beweis. Man kann bestenfalls seine schwarzen Schafe erkennen und für die Zukunft mehr im Auge behalten...

 

Hallo zusammen,

vielleicht lohnt in dem Falle auch mal ein Blick über den Excel-Tellerrand, denn im benachbarten Word-Teich schwimmt ein ganz ansehnlicher Comparefisch.

Mit dem kann man eine Kopie des Excel-Modultextes mit einer vorab exportierten/gespeicherten .bas oder .frm-Datei vergleichen und bekommt das auch noch ganz übersichtlich angezeigt.

Beispiel in Word 2010: Code:

 

So etwas gibt es doch schon dutzendweise
VBA Code Compare: compare Visual Basic code embedded into a VBA project
https://marketplace.visualstudio.com...re.CodeCompare
xlCompare - Compare and Merge Microsoft Excel Workbooks and VBA Projects
Also, warum nochmal das Rad erfinden?

Und für notepad++, was schon erwähnt wurde, gibt es ein Plugin
Notepad++ Compare plugin

 

Hallo,

Du könntest auch so eine Art "Prüfsumme" bilden:
Aus folgendem Code wird "SetWorkbooks.Open.VBProject.VBComponents().CodeModule.Lines.CountOfLines"

Code:

Vorgehen:
Suche Dir wichtige Codewörter (z. B: Methoden) aus dem Code, von denen Du denkst, dass sie (in dieser Reihenfolge) entscheidend für den Codeablauf sind (vorstehend rot markiert). Entferne dann daraus alle Variablennamen und teile sie ggf. auf, damit Du das erreichst.

Code:

wb.VBProject.VBComponents("Modul1").CodeModule"
wird zu
...".VBProject.VBComponents(", ").CodeModule")...

Code:

Das könnte ein weiterer Anhalt sein, ob jemand abgekupfert hat.

Bei umfangreichen Codes kannst Du das noch abwandeln...

Grüße
EarlFred