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
번호 제목 글쓴이 날짜 조회 수sort
공지 공지 [공지] 아별닷컴의 엑셀 질문방 폐쇄합니다. 카페 질문방 이용하세요.. imagefile [레벨:30]아별 2015-04-23 137706
622 엑셀수식 엑셀 여러가지 만족하는 수식 file [3] [레벨:5]눈물바다 2013-07-04 4988
621 엑셀일반 데이터 유효성 검사 [1] [레벨:3]빛의행운아 2012-02-24 4989
620 기타 안녕하세요 아별님^^ [1] [레벨:2]쿠라 2013-02-15 4991
619 엑셀일반 일일단위로 순위갱신되는 인터넷 참조 시트 만들기 질문입니다. imagefile [2] [레벨:6]파이스 2012-07-05 4999
618 아별툴관련질문 sheet 통합하기 file [1] [레벨:2]광택입니다 2011-12-06 5001
617 VLookup vlookup 의 true 기능 관련. [5] [레벨:3]rynoel 2012-07-02 5008
616 아별툴관련질문 자동 표 테두리 생성 기능 문의 [1] [레벨:1]일꾼개미 2011-11-02 5014
615 피벗테이블 Vlookup 에서 혼동이 와 문의드려요~ file [11] [레벨:1]예진 2012-11-11 5028
614 아별님~~도와주세용... [2] [레벨:1]hope so 2009-07-09 5031
613 엑셀일반 질문하나 더 드립니다! [1] [레벨:4]나카타 2011-12-09 5031
612 엑셀수식 자동계산 질문입니다._세금계산서 자리수 & 숫자 한글 표시 file [4] [레벨:5]정화 2011-09-14 5035
611 엑셀일반 활성창 이동 [2] [레벨:3]해바라기1 2011-09-01 5043
» VBA 오늘은 간단한 것 질문할께요 _ VBE 모듈, 유저폼 내보내기(Export) 방법 [4] [레벨:3]엑셀대단해 2012-03-05 5044
609 IF수식 특정조건에 만족이 되면 끝에 문자를 추가하는 방법 file [3] [레벨:4]부루끄 2012-02-02 5045
608 피벗테이블 질문하나 더 올립니다 file [6] [레벨:4]pgpoch 2012-01-02 5046
607 VBA textbox 크기 질문 [2] [레벨:4]신강현 2013-01-29 5054
606 MATCH 2가지 조건을 만족하는 값을 찾는 식 file [4] [레벨:2]봉2 2013-08-14 5058
605 VBA 사용자 지정 메뉴 크기조정 imagefile [2] [레벨:5]맑은이슬 2013-01-29 5063
604 엑셀일반 데이터 유효성 검사질문입니다. file [4] [레벨:4]열심회원 2013-09-24 5069
603 아별님 [1] [레벨:2]윙윙 2010-04-05 5072