유저폼도 똑같은 방식으로 export시키시면 됩니다. Application.VBE.ActiveVBProject.VBComponents.Item("유저폼이름").Export("D:\Documents\Excel\ufrm.frm")
다만.. 확장자에 주의를 해주세요..
모듈은 .bas
유저폼은 .frm
입니다.
여러개를 한번에 Export하려면 아래의 코드처럼 하면 되겠죠..
'### VBA 모듈 및 유저폼 등 컴포넌트 항목 화일로 내보내기 '### Created by abyul.com 2012.03.05 PM10:56 Sub testExportVBComponents() Dim i As Long, strExtension As String With Application.VBE.ActiveVBProject.VBComponents For i = 1 To .Count Select Case .Item(i).Type Case 100: strExtension = ".cls" Case 1: strExtension = ".bas" Case 3: strExtension = ".frm" End Select .Item(i).Export ("D:\Documents\Excel\" & .Item(i).Name & strExtension) Next i End With End Sub
안녕하세요?
엑셀대단해님의 "간단한것"의 정의가 궁금하네요..
저에게는 어떠한 질문도 간단한게 없습니다.
회원님들이 이해할 수 있도록 설명하는게 어렵기 때문이죠.
모듈은 아래처럼 export시키시면 되구요..
Application.VBE.ActiveVBProject.VBComponents.Item("모듈명").Export ("D:\Documents\Excel\test.bas")
유저폼도 똑같은 방식으로 export시키시면 됩니다.
Application.VBE.ActiveVBProject.VBComponents.Item("유저폼이름").Export("D:\Documents\Excel\ufrm.frm")
다만.. 확장자에 주의를 해주세요..
모듈은 .bas
유저폼은 .frm
입니다.
여러개를 한번에 Export하려면 아래의 코드처럼 하면 되겠죠..
'### VBA 모듈 및 유저폼 등 컴포넌트 항목 화일로 내보내기
'### Created by abyul.com 2012.03.05 PM10:56
Sub testExportVBComponents()
Dim i As Long, strExtension As String
With Application.VBE.ActiveVBProject.VBComponents
For i = 1 To .Count
Select Case .Item(i).Type
Case 100: strExtension = ".cls"
Case 1: strExtension = ".bas"
Case 3: strExtension = ".frm"
End Select
.Item(i).Export ("D:\Documents\Excel\" & .Item(i).Name & strExtension)
Next i
End With
End Sub
도움이 되셨기를..