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

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

아별님.

안녕하세요.

잘 지내시겠죠? 한양대 쪽으로 갈 일이 없어 뵙기가 잘 안되네요.

정모 하신다고 했는데 언제 하시나요? 꼭 참석하겠습니다.


오늘 질문은 간단한 것입니다.

그동안 작성한 프로그램이 꽤 되는 것 같은데 전체 VBA 프로그램을 외부 텍스트 파일로 추출하는 것은 어떻게 하나요.(기왕이면 모듈내용만이 아니라 폼이미지 까지면 더욱 좋구요)

각 파일마다 많은 모듈들이 있고 여러개의 파일에 프로그램을 작성한지라 유사 프로그램을 보고 싶으면 그 파일을 열어서 모듈을 찾아가야 원하는 것을 볼 수 있는데 텍스트 파일로 추출하여 보관하면 좋을 것 같아서요.


어차피 프로그램 소스도 형상관리가 필요하고 일부는 제출할 필요도 있어서 궁금한차에 연락도 드릴 겸 문의를 드립니다.

비가 와서 감기걸리기 쉬운 날씨네요.

건강 조심하세요.



댓글 '4'

profile

[레벨:30]아별

2012.03.05 22:28:34
*.130.73.75



안녕하세요?

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

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

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

   

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

 

도움이 되셨기를..

profile

[레벨:30]아별

2012.03.06 22:40:16
*.104.126.21

아참.. 아래의 게시물을 참고해보세요..

http://www.examo.co.kr/       에 먼저 로그인 한 다음 아래 링크 클릭하세요..

http://www.examo.co.kr/tn7/board.php?board=qqqtip&command=body&no=1037


모듈을 자동으로 업데이트하는 팁입니다.

엑셀 옵션 > "보안센터" > "보안센터설정" > "매크로설정" > "VBA 프로젝트 개체 모델에 안전하게 엑세스할 수 있음"을 체크해줘야 작동합니다.

abyul.com_059_2.jpg



해당 게시물에는 관련 command bar를 실행시켜주는 코드도 포함되어 있네요.

Set c = Application.CommandBars.FindControl(ID:=3627)

c.Execute '명령버튼을 실행한다


모듈을 제거하거나 불러오는 코드는 아래와 같습니다. 참고하세요..

ThisWorkbook.VBProject.VBComponents.Remove ThisWorkbook.VBProject.VBComponents(5)

ThisWorkbook.VBProject.VBComponents.Import "D:\Documents\Excel\ModuleName.bas"


첨부

[레벨:3]엑셀대단해

2012.03.15 10:58:56
*.173.111.15

요즘 바빠서 회답을 오래 못드렸네요. 이렇게 성심성의껏 대답해 주셨는데...

감사합니다. 

그리고 간단한게 아니네요. 제 말실수였습니다.

엑셀의 길은 멀고도 먼 것 같습니다.

열심히 하겠습니다.

profile

[레벨:30]아별

2012.03.16 12:21:50
*.104.126.21

너무 간단하게 질문을 하셔서..

살짝 맘이 상했었습니다. ^^

 

저는 답변 자판기가 아닙니다.

동전을 넣으면 답이 나오는게 아니지요..

 

서로를 배려하는 공간이 되었으면 좋겠습니다.

 

ps. 살짝 맘 상했던것은 답변에 댓글 달아주셔서 다 풀렸습니다. ㅎㅎ

문서 첨부 제한 : 0Byte/ 2.00MB
파일 제한 크기 : 2.00MB (허용 확장자 : *.*)
List of Articles
번호 제목 글쓴이 날짜 조회 수
공지 공지 [공지] 아별닷컴의 엑셀 질문방 폐쇄합니다. 카페 질문방 이용하세요.. imagefile [레벨:30]아별 2015-04-23 44871
33 VBA .Find 주소 검색기 이름중복검색 file [3] [레벨:1]최종원 2012-08-07 3090
32 VBA sub과function차이 [4] [레벨:2]snail0513 2012-08-07 2317
31 VBA [ XML PARSING ] 오픈 API 관련된 질문입니다. [3] [레벨:2]난호 2012-07-26 2831
30 VBA 조건문을 변수화 하는 방법 [2] [레벨:3]엑셀대단해 2012-07-23 6645
29 VBA 필터된 데이터 가져오기 시 문제점 [5] [레벨:3]엑셀대단해 2012-07-23 4127
28 VBA 시트와 차트에 따라 다른 함수 실행? [4] [레벨:3]고독한나그네 2012-07-14 1843
27 VBA [긴급] Range 범위 "A2:A10" -> 를 변수로 받게 하는 방법.. file [3] [레벨:1]마리너 2012-07-05 4418
26 VBA 셀에 맞춰 그림 삽입하기 [1] [레벨:5]눈물바다 2012-06-05 7782
25 VBA 도형에 회전에 관해서.... [5] [레벨:2]루이비나 2012-05-27 3436
24 VBA 데이터가 있을 경우 수식 넣기?? [4] [레벨:1]아우릭 2012-03-20 2901
23 VBA 데이터 수집 질문_01 입니다. file [2] [레벨:1]아우릭 2012-03-20 2660
» VBA 오늘은 간단한 것 질문할께요 _ VBE 모듈, 유저폼 내보내기(Export) 방법 [4] [레벨:3]엑셀대단해 2012-03-05 3158
21 VBA 외부 어플리케이션 실행 & 유저폼 일괄 닫기 & 리본 메뉴 사용자 추가 탭 숨기거나 보이게 하는 방법 [7] [레벨:3]엑셀대단해 2012-02-08 4736
20 VBA 동적 데이터 교환 질문 [1] [레벨:3]바람 2011-12-27 2915
19 VBA 아별님 안녕하세요 질문이 하나 있습니다 ^^ file [3] [레벨:0]하이버리 2011-12-09 2818
18 VBA 랜덤 출력 관련 짧고 간결(?)한 3가지 질문입니다. _ 중복 없는 랜덤 패스워드 생성하는 방법.. [4] [레벨:6]파이스 2011-11-29 6695
17 VBA 갑자기 궁금해서 질문드리는건데요... _ VBA를 다른 오피스 프로그램에서 사용 가능한지..? [3] [레벨:6]파이스 2011-11-27 3302
16 VBA 2개의 시트를 비교하여 다른 부분을 찾아내는 프로시저 질문입니다! file [3] [레벨:6]파이스 2011-11-24 4925
15 VBA 아별님 안녕하세요? 파이스입니다. _ 엑셀창과 VBE창 창전환 쉽게 하는 방법 [3] [레벨:6]파이스 2011-11-23 3583
14 VBA 질문있습니다. 아뵬님. ㅠ _ 텍스트 박스 회전시키는 VBA 코드 [1] [레벨:6]ryanoh 2011-11-15 2995