Visual Basic - Fototrend Hozzászólások

LOGOUT témák

PROHARDVER! témák

Mobilarena témák

IT café témák

GAMEPOD témák

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

vilag tag

#2135
#2134 martonx
2013-06-27 13:06:45

Új Válasz
Ú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

vilag

tag

#2134 martonx

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

Aktív témák

Új fizetett hirdetések

Üzleti előfizetők hirdetései

Állásajánlatok

Számítástechnikai értékesítő

Cég: Laptopműhely Bt.

Város: Budapest

Részletek