Mrrrr's Forum (VIEW ONLY)
Un forum care ofera solutii pentru unele probleme legate in general de PC. Pe langa solutii, aici puteti gasi si alte lucruri interesante // A forum that offers solutions to some PC related issues. Besides these, here you can find more interesting stuff.
|
Lista Forumurilor Pe Tematici
|
Mrrrr's Forum (VIEW ONLY) | Reguli | Inregistrare | Login
POZE MRRRR'S FORUM (VIEW ONLY)
Nu sunteti logat.
|
Nou pe simpatie: Nebunyka pe Simpatie.ro
 | Femeie 19 ani Bacau cauta Barbat 21 - 52 ani |
|
TRaP
Moderator
Inregistrat: acum 7 ani
Postari: 827
|
|
Sub Xport() ' make sure you enabled reference to the Microsoft Visual Basic for Applications Extensibility library
Dim objMyProj As VBProject Dim objVBComp As VBComponent
Set objMyProj = Application.VBE.ActiveVBProject
For Each objVBComp In objMyProj.VBComponents If objVBComp.Type = vbext_ct_StdModule Then objVBComp.Export "D:\VBA Modules Backup\" & objVBComp.Name & ".bas" End If Next
End Sub
|
Source - Andy Pope
|
|
pus acum 4 ani |
|