1. FAQ
  2. 엑셀(Excel)
  3. AfterEffects
  4. Premiere
  5. Photoshop
  6. ETC

이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.

[레벨:30]아별

2012.03.05 22:28



안녕하세요?

엑셀대단해님의 "간단한것"의 정의가 궁금하네요..

저에게는 어떠한 질문도 간단한게 없습니다.

회원님들이 이해할 수 있도록 설명하는게 어렵기 때문이죠.

   

모듈은 아래처럼 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

 

도움이 되셨기를..

문서 첨부 제한 : 0Byte/ 2.00MB
파일 제한 크기 : 2.00MB (허용 확장자 : *.*)