이 기사에서는 모듈을 활성 통합 문서로 가져 오는 매크로를 만듭니다.

가져 오려는 모듈로 Filename.bas를 사용할 것입니다.

삽입 버튼을 클릭하여 Filename.bas에서 활성 통합 문서로 모듈을 가져옵니다.

ArrowMain

통합 문서에는 “MainModule”모듈이 하나만 포함되어 있습니다.

ArrowMainModule

매크로를 실행 한 후 Filename.bas

ArrowOutput

에서 새 모듈을 가져옵니다.

논리 설명

이 기사에서는 두 개의 매크로, InsertVBComponent 및 Calling_Procedure

InsertVBComponent

통합 문서 이름과 파일 이름을 입력으로 사용하고 모듈을 통합 문서로 가져옵니다.

Calling_Procedure

활성 통합 문서와 Filename.bas를 입력으로 사용하여 InsertVBComponent 매크로를 호출하는 데 사용됩니다.

코드 설명

If Dir (CompFileName) <> “”Then 위 코드는 디렉토리에 파일 이름이 있는지 확인하는 데 사용됩니다.

wb.VBProject.VBComponents.Import CompFileName 위 코드는 모듈을 활성 통합 문서로 가져 오는 데 사용됩니다.

아래 코드를 따르세요

Option Explicit

Sub InsertVBComponent(ByVal wb As Workbook, ByVal CompFileName As String)

' Inserts the content of CompFileName as a new component in workbook

' CompFileName must be a valid VBA component suited for

' import (an exported VBA component)

'Checking whether CompFileName file exists

If Dir(CompFileName) <> "" Then



'Ignore errors

On Error Resume Next



'Inserts component from file

wb.VBProject.VBComponents.Import CompFileName



On Error GoTo 0

End If

Set wb = Nothing

End Sub

Sub Calling_Procedure()



'Calling InsertVBComponent procedure

InsertVBComponent ActiveWorkbook, "C:\Users\Ramandeep\Desktop\Filename.bas"



End Sub

이 블로그가 마음에 들면 Facebook 및 Facebook에서 친구들과 공유하십시오.

여러분의 의견을 듣고 싶습니다. 작업을 개선하고 더 나은 서비스를 제공 할 수있는 방법을 알려주십시오. [email protected]로 문의 해주세요