Userform Importieren
01.10.2003 12:34:10
Alex
wie schon erwähnt, hab ich ein userform exportiert. dieses habe ich bereits extern abgespeichert. es geht nun darum, dieses userform automatisch an eine
exceldatei anhängen zu lassen.
könnte mir jemand (Nepomuk? - von ihm ist die u.a. vorlage) sagen, wie ich den Code ummodellieren muss, damit mir dieses userform eingefügt wird?
bitte, danke!
Option Explicit
Public Sub alle_Userforms_exportieren()
Dim vbc As Object, Dateiname As String
Temp_loeschen
For Each vbc In ThisWorkbook.VBProject.VBComponents
With vbc.CodeModule
If vbc.Type = 3 Then Workbooks(ThisWorkbook.Name).VBProject.VBComponents(vbc.Name).Export "C:\TEMP\" & vbc.Name & ".frm"
End With
Next vbc
With Workbooks("Mappe2.xls").VBProject
Dateiname = Dir("C:\TEMP\" & "*.*")
Do While Dateiname <> ""
If UCase(Right(Dateiname, 4)) = ".FRM" Then .VBComponents.Import "C:\TEMP\" & Dateiname
Dateiname = Dir
Loop
End With
Temp_loeschen
End Sub
Private Sub Temp_loeschen()
Dim Dateiname As String
Dateiname = Dir("C:\TEMP\" & "*.*")
Do While Dateiname <> ""
If UCase(Right(Dateiname, 4)) = ".FRM" Then Kill ("C:\TEMP\" & Dateiname)
Dateiname = Dir
Loop
End Sub