Excel-Modul löschen

P1xelfehler

Hallo,

Ich importiere mit Hilfe von AutoIT VBA-Module in Excel.

ich würde gerne,dass das AutoIT-Skript entweder:
A) Erkennt, dass das Modul schon vorhanden ist und dieses nicht importiert
ODER
B) Das Modul in jedem Fall vorher löscht und es dann erst importiert

Wie mache ich das?

Vielen Dank im voraus!

Code:

C

#include <Excel.au3>
#include <ExcelConstants.au3>
Global $oExcel = _Excel_Open()
;Hier löschen oder erkennen, ob vorhanden???
$oExcel.Application.VBE.ActiveVBProject.VBComponents.Import ("C:\Users\peter\Desktop\mdl_Kopieren.bas")
$oExcel.Application.Run("Kopieren")

**water**

Dr. Google hilft:
https://www.tutorials.de/threads/vba-mo…rtieren.365924/

P1xelfehler

Irgendwie nicht, da das auf der Seite ja innerhalb von Excel ist. Sowas hab ich schon mehrmals gefunden. Nur weiß ich nicht, wie ich das in AutoIT schreiben soll.

Das hier geht zumindest nicht:

Code

$oExcel.Application.VBE.ActiveVBProject.VBComponents.Remove $oExcel.Application.VBE.ActiveVBProject.VBComponents("Kopieren")

Das hier auch nicht:

Code

$oExcel.ThisWorkbook.VBProject.VBComponents.Remove $oExcel.ThisWorkbook.VBProject.VBComponents("Kopieren")

**water**

$oExcel.ThisWorkbook.VBProject.VBComponents.Remove($oExcel.ThisWorkbook.VBProject.VBComponents("Modul1"))

**water**

Details gibt's hier:
https://msdn.microsoft.com/de-de/library/office/gg264481.aspx

P1xelfehler

Nope..

**water**

Wir sollten natürlich zuerst ein Excel Workbook öffnen

Code

#include <Excel.au3>
Global $oExcel = _Excel_Open()
Global $oWorkbook = _Excel_BookOpen($oExcel, "C:\temp\test.xlsm")
$oWorkbook.VBProject.VBComponents("Modul1").Name = "Test99"
ConsoleWrite(@error & @CRLF)
$oWorkbook.VBProject.VBComponents.Remove($oWorkbook.VBProject.VBComponents("Test99"))
ConsoleWrite(@error & @CRLF)

P1xelfehler

Dann gibt es ein kleines Problem: Der Pfad ist immer ein anderer, also will ich die geöffnete Datei nehmen ... sorry^^

Wenn nichts hilft, könnte man ja den Namen des Fensters auslesen und von da den Dateinamen ableiten.

**water**

Dann nimmst Du statt _Excel_BookOpen die Funktion _Excel_BookAttach. Damit kannst Du Dich an ein offenes Workbook anhängen.

P1xelfehler

Irgendwie bekomme ich es nicht hin

**water**

Was?

P1xelfehler

Hab halt alles mögliche probiert und es geht einfach nicht. Kannst du mal ein bisschen rumprobieren, bitte, bis es klappt?

Bin halt immer noch ein AutoIT Noob

**water**

Dass Du ein Noob ist habe ich nun mitgekriegt, mehr aber auch nicht

Was funktioniert nun konkret nicht?
Das löschend es Moduls oder _Excel_BookAttach?
Was hast Du probiert (sprich: Poste den Code)?
Welche Fehlermeldungen / @error kriegst Du?

P1xelfehler

Code

#include <Excel.au3>
Global $oExcel = _Excel_Open()
Global $oWorkbook = _Excel_BookAttach("Excel")
;Import
$oExcel.Application.VBE.ActiveVBProject.VBComponents.Import(@MyDocumentsDir & "\Modul1.bas")
MsgBox(0,"","Ist es jetzt importiert??")


;Umbenennung des Moduls (hab nicht genau verstanden, warum man das vorher machen muss
$oWorkbook.VBProject.VBComponents("Modul1").Name = "Test99"


;??? Er schreibt den Fehler in die Konsole, aber wie sehe ich das??
ConsoleWrite(@error & @CRLF)


;Löschen des Moduls
$oWorkbook.VBProject.VBComponents.Remove($oWorkbook.VBProject.VBComponents("Test99"))


;??? Er schreibt den Fehler in die Konsole, aber wie sehe ich das??
ConsoleWrite(@error & @CRLF)


MsgBox(0,"","Ist das Modul jetzt wieder gelöscht?")

Alles anzeigen

Importieren klappt schon mal. Beim Umbenennen (Zeile 9) kommt dann der Fehler:

"C:\Users\peter\Documents\AutoIT\test 5.au3" (9) : ==> Variable must be of type "Object".:
$oWorkbook.VBProject.VBComponents("Modul1").Name = "Test99"
$oWorkbook^ ERROR
>Exit code: 1 Time: 7.388

Ach ja, und danke bis hier her schon mal für deine Hilfe

Was will dieses "_Excel_BookAttach" denn als Wert haben? Den Namen des Workbooks? Also wie die Excel-Datei heißt? kann man das aus dem Fenstertitel auslesen und da einfügen?

P1xelfehler

Lol, hab es hingekriegt

Code

#include <Excel.au3>
Opt("WinTitleMatchMode", 2)


Global $oExcel = _Excel_Open()


$Title = WinGetTitle("Microsoft Excel")
$Title = StringTrimLeft($Title,18)


Global $oWorkbook = _Excel_BookAttach($Title)
;Import
$oExcel.Application.VBE.ActiveVBProject.VBComponents.Import(@MyDocumentsDir & "\Modul1.bas")
MsgBox(0,"","Ist es jetzt importiert??")


;Umbenennung des Moduls (hab nicht genau verstanden, warum man das vorher machen muss
$oWorkbook.VBProject.VBComponents("Modul1").Name = "Test99"


;??? Er schreibt den Fehler in die Konsole, aber wie sehe ich das??
ConsoleWrite(@error & @CRLF)


;Löschen des Moduls
$oWorkbook.VBProject.VBComponents.Remove($oWorkbook.VBProject.VBComponents("Test99"))


;??? Er schreibt den Fehler in die Konsole, aber wie sehe ich das??
ConsoleWrite(@error & @CRLF)


MsgBox(0,"","Ist das Modul jetzt wieder gelöscht?")

Alles anzeigen

**water**

Poste mal einen Screenshot vom VB Editor (der TreeView links wo man die Projekte etc. sieht).
Die Umbenennung war nur lt. einem der von mir geposteten Links notwendig. Wenn es ohne geht, umso besser.

**water**

Statt ConsoleWrite solltest Du MsgBox verwenden um die Meldungen auch außerhalb von SciTe zu bekommen.

P1xelfehler

hm...

Kann ich auch machen, dass AutoIT die Fehler ignoriert? Sprich: Wenn das Modul noch nicht importiert ist, kann er es nicht löschen. Diesen Fehler soll er ignorieren.

Das ganze dient dazu, dass wenn das Modul doppelt ist, es nicht gestartet werden kann. Also soll es vorher gelöscht werden.

**water**

Zwei Möglichkeiten:

Den Fehler einfach nicht abfragen. Dann läuft das Skript ja mit dem nächsten Befehl weiter
Die Liste aller Module prüfen und - falls vorhanden - löschen. Wenn dann ein Fehler auftritt, dann ist es ein Fehler, den Du abfangen musst (z.B. weil das Modul gerade verwendet wird)

P1xelfehler

Ohne Abragen gibt es doch auch einen Fehler? Wie soll man den denn nicht abragen?^^

Code

#include <Excel.au3>
Opt("WinTitleMatchMode", 2)


Global $oExcel = _Excel_Open()


$Title = WinGetTitle("Microsoft Excel")
$Title = StringTrimLeft($Title,18)


Global $oWorkbook = _Excel_BookAttach($Title)
;Import
;$oExcel.Application.VBE.ActiveVBProject.VBComponents.Import(@MyDocumentsDir & "\Modul1.bas")
;MsgBox(0,"","Ist es jetzt importiert??")


;Löschen des Moduls
$oWorkbook.VBProject.VBComponents.Remove($oWorkbook.VBProject.VBComponents("Modul1"))
MsgBox(0,"","Ist das Modul jetzt wieder gelöscht?")

Alles anzeigen