title image


Smiley Re: Excel-Datei komprimieren
Hallo,

oder versuch mal das:





Sub Komponenten_in_neue_Datei_exportieren()

'alles in neue Datei exportieren

Dim Ding As Object  

Dim Pfad As String  



Workbooks.Add



'On Error Resume Next



For Each Ding In ThisWorkbook.VBProject.VBComponents  

   'MsgBox Ding.Name

    Pfad = ThisWorkbook.Path & "\" & Ding.Name

    Ding.Export Pfad

    With ActiveWorkbook

      Application.VBE.ActiveVBProject.VBComponents.Import Pfad

    End With  



    Kill Pfad

   

Next Ding



End Sub  







aber immer schön testen, testen...

Gruß

Alfons

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: