Im- und Export von Makros

20/11/2007 - 22:01 von Jürgen Dietze | Report spam
Excel 2007

Hallo zusammen,
mit folgender Anweisung schreibe ich alle Makros einer Arbeitsmappe in
einzelne Textdateien:

Sub Makro_Export()
Dim s_Datei As String
Dim i As Long
with thisworkbook
For i = 1 To .VBProject.VBComponents.Count
s_Datei = .Path & "\Modul" & Format(i, "00") & ".txt"
.VBProject.VBComponents(i).Export s_Datei
Next i
End With
End Sub

Und mit dieser Schrittfolge lese ich sie in eine andere Mappe ein:


Sub Makro_Import()
Dim i As Long
Dim s_Datei As String
With ThisWorkbook
For i = 1 To 36
s_Datei = .Path & "\Modul" & Format(i, "00") & ".txt"
Application.VBE.ActiveVBProject.VBComponents(vbname).Import
s_Datei
Next i
End With
End Sub

Problem:
Die Makros werden in Klassenmodule eingelesen und es entsteht so etwas wie
Klassenmodul
Diese Arbeitsmappe1 usw.

In der erzeugten Textdatei steht aber auch so etwas wie
Attribute VB_Name = "DieseArbeitsmappe"

Wie kann ich denn auf diese Information zugrteifen um den Zielort
(=Microsoft Excel Objekte - Diese Arbeitsmappe) für den Import festzulegen?

Danke für Eure Hilfe!
Jürgen Dietze
 

Lesen sie die antworten

#1 Herbert Taferner
20/11/2007 - 22:47 | Warnen spam
Hallo Jürgen,

schau mal hier rein
http://www.jumper.ch/Artikel/215.htm

z. B. unter Punkt 2

mfg Herbert

Ähnliche fragen