Új hozzászólás Aktív témák

• #2135 vilag tag martonx #2134

  Új Válasz 2013-06-27 13:06:45 #2135

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  vilag

  tag

  válasz martonx #2134 üzenetére

  Az ötleted nyomán a kollégám ezt hozta össze:

  Sub Gomb1_Kattintás()
  
  Dim komp
  Set fs = CreateObject("Scripting.FileSystemObject")
  For Each komp In Workbooks("proba.xlsm").VBProject.VBComponents
  ize = komp.Name
  If komp.Name = "Module1" Then
  komp.Export ("d:\temp\module1.bas")
  Workbooks("proba2.xlsm").VBProject.VBComponents.Import ("d:\temp\module1.bas")
  fs.DeleteFile ("d:\temp\module1.bas")
  End If
  Next
  
  End Sub

  Még nem próbáltam, hogy működik e.
  Ha odáig jutok szólok.

Új hozzászólás Aktív témák