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 42163
402 엑셀일반 온라인 동기화 지원 관련 질문입니다. [5] [레벨:6]파이스 2012-03-13 2470
401 날짜/시간 수식 엑셀질문입니다 file [2] [레벨:4]현대자동차 2012-03-13 2142
400 엑셀수식 찾기/참조 함수인지 아니면.... file [2] [레벨:2]북곰 2012-03-12 2136
» VBA 오늘은 간단한 것 질문할께요 _ VBE 모듈, 유저폼 내보내기(Export) 방법 [4] [레벨:3]엑셀대단해 2012-03-05 3122
398 VLookup 멀고도 먼 길이여 _ OFFSET을 활용하여 조건별 현황 뽑기 file [2] [레벨:3]빛의행운아 2012-03-02 2775
397 엑셀수식 엑셀 수식 질문.. _ OFFSET 활용하여 특정 범위값만 합계로 표시하기 file [1] [레벨:1]박주연 2012-02-29 2956
396 VLookup 하 ~.~ vlookup 이여 _ VLOOKUP과 MATCH 활용하여 값 불러오기 file [11] [레벨:3]빛의행운아 2012-02-28 3890
395 기타 이건 그냥 도서에 관한 질문입니다. [3] [레벨:3]빛의행운아 2012-02-28 2372
394 엑셀일반 불규칙한 공백을 지닌표를 정리하는 방법 _ 텍스트 나누기를 수식으로 구현해보기 imagefile [5] [레벨:6]파이스 2012-02-28 4405
393 엑셀일반 사진에있는 GPS메타정보추출 file [3] [레벨:1]얼씨구 2012-02-24 4421
392 엑셀일반 궁금합니다. 아별님+_+ [5] [레벨:3]빛의행운아 2012-02-24 2429
391 엑셀일반 데이터 유효성 검사 [1] [레벨:3]빛의행운아 2012-02-24 2583
390 엑셀일반 특정 문자를 포함하는 셀을 하이라이트 하는 법 file [3] [레벨:4]pgpoch 2012-02-22 4667
389 엑셀수식 ㅠ 그렇군요. _ 수식의 기본원리.. 이해.. 함수식이란? 인수와 문장부호 [5] [레벨:3]빛의행운아 2012-02-17 3839
388 엑셀일반 프린트시 여백설정방법에 대하여 질문합니다. file [4] [레벨:5]정화 2012-02-17 3181
387 엑셀일반 궁금해서 미치겠습니다.ㅠㅠㅠ [1] [레벨:3]빛의행운아 2012-02-17 2361
386 엑셀수식 기본적인 질문인데 답변부탁드립니다. - 십원(10원) 단위 절사 방법 [1] [레벨:1]매직 2012-02-17 2466
385 추가기능(AddIns) 매크로 다른 파일에서 편하게 불러쓰는 법 [2] [레벨:6]파이스 2012-02-15 3223
384 아별툴관련질문 아별툴 실행 에러 관련 [1] [레벨:3]고독한나그네 2012-02-14 2868
383 엑셀일반 아별님 안녕하세요 ^^ 자동채우기 관련 질문입니다. [2] [레벨:6]파이스 2012-02-09 5146