Excel에서 코드를 실행하는 메모장의 VBA

Question

메모장에 저장 한 코드입니다. Excel.Applications를 변경해야합니까?

Option Explicit 

Dim xlApp 
Dim xlBook 

Set xlApp = CreateObject("Excel.Application") 
Set xlBook = xlApp.Workbooks.Open("H:\shane.xlsm", 0, True) 

xlApp.Run "Email" 
xlBook.close 
xlApp.Quit 

Set xlBook = Nothing 
Set xlApp = nothing 

이

내가 이메일을 보낼 수있는 코드와 내가 테스트 할 때 그것을 잘 작동하고 나에게 이메일을 보내드립니다.

Option Explicit 

Const strTo As String = "dvandervieren@enerplus.com" 
Const strCC As String = "" '<~~ change "def@abc.com" to "" if you do not want to CC 
Const strBCC As String = "" '<~~ change "ghi@abc.com" to "" if you do not want to BCC 

Sub Email() 
Dim OutApp As Object, OutMail As Object 
Dim strbody As String, strSubject As String 

strSubject = "Hello World" 
strbody = "This is the message for the body" 

Set OutApp = CreateObject("Outlook.Application") 

Set OutMail = OutApp.CreateItem(0) 

On Error Resume Next 
With OutMail 
    .To = strTo 
    .CC = strCC 
    .BCC = strBCC 
    .Subject = "This is the Subject line" 
    .Body = strbody 
    .Send 
End With 
On Error GoTo 0 

Set OutMail = Nothing 
Set OutApp = Nothing 
End Sub 

Answer 1

엑셀 문서를여십시오. VB 편집기를 엽니 다. 왼쪽 창의 창에서 Excel 문서를 찾습니다. 마우스 오른쪽 버튼을 클릭하고 삽입 >> 모듈을 선택하십시오. 코드를 새로 생성 된 모듈로 이동하십시오. 그러면 메소드 이름 인 Email을 사용하여 호출 할 수 있어야합니다. 이미 Excel에있는 애플리케이션을 delcare 할 필요가 없습니다. - Sorceri