Excel 프로그램 실행시 ”숨겨진 모듈의 컴파일 오류” 가 발생됩니다.

Question

다름이 아니고.

엑셀칼럼에 블룸버그의 지수정보를 다운 받고 이것을 유알엘 호출로 저희 회사 홈페이지에 올리는 매크로를 만들고 있는데요.

숨겨진 모듈의 컴파일 오류ㅡ BBPT_Utils 라는 오류가 나네요.

안그래도 몇 일동안 고생한 끝에 돌아가나 싶더니

또 저런 오류가 나네요.ㅠ

ㅠ 고수님들

이건 코드파일입니다.

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Workbook_Open()

    Application.Calculate

    Dim dow1, dow2, dow3, dow4

    Dim sp1, sp2, sp3, sp4

    Dim nasdaq1, nasdaq2, nasdaq3, nasdaq4

    Dim ftse1, ftse2, ftse3, ftse4

    Dim nikket1, nikket2, nikket3, nikket4

    Dim hs1, hs2, hs3, hs4

    dow1 = Mid(Str(Cells(7, 2).Value), 2)

    dow2 = Mid(Str(Cells(7, 4).Value), 2)

    dow3 = Mid(Str(Cells(7, 5).Value), 2)

    dow4 = Mid(Str(Cells(7, 6).Value), 2)

    sp1 = Mid(Str(Cells(8, 2).Value), 2)

    sp2 = Mid(Str(Cells(8, 4).Value), 2)

    sp3 = Mid(Str(Cells(8, 5).Value), 2)

    sp4 = Mid(Str(Cells(8, 6).Value), 2)

    nasdaq1 = Mid(Str(Cells(9, 2).Value), 2)

    nasdaq2 = Mid(Str(Cells(9, 4).Value), 2)

    nasdaq3 = Mid(Str(Cells(9, 5).Value), 2)

    nasdaq4 = Mid(Str(Cells(9, 6).Value), 2)

    ftse1 = Mid(Str(Cells(11, 2).Value), 2)

    ftse2 = Mid(Str(Cells(11, 4).Value), 2)

    ftse3 = Mid(Str(Cells(11, 5).Value), 2)

    ftse4 = Mid(Str(Cells(11, 6).Value), 2)

    nikket1 = Mid(Str(Cells(12, 2).Value), 2)

    nikket2 = Mid(Str(Cells(12, 4).Value), 2)

    nikket3 = Mid(Str(Cells(12, 5).Value), 2)

    nikket4 = Mid(Str(Cells(12, 6).Value), 2)

    hs1 = Mid(Str(Cells(13, 2).Value), 2)

    hs2 = Mid(Str(Cells(13, 4).Value), 2)

    hs3 = Mid(Str(Cells(13, 5).Value), 2)

    hs4 = Mid(Str(Cells(13, 6).Value), 2)

    'dow

    Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")

    URL = "http://www.kicdev.go.kr" + "/index.php" + "?" + "arg1=" + dow1 + "&" + "arg2=" + dow2 + "&" + "arg3=" + dow3 + "&" + "arg4=" + dow4

    objHTTP.Open "GET", URL, False

    objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"

    objHTTP.send ("")

    's&p500

    Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")

    URL = "http://www.kicdev.go.kr" + "/index.php" + "?" + "arg1=" + sp1 + "&" + "arg2=" + sp2 + "&" + "arg3=" + sp3 + "&" + "arg4=" + sp4

    objHTTP.Open "GET", URL, False

    objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"

    objHTTP.send ("")

    'nasdaq

    Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")

    URL = "http://www.kicdev.go.kr" + "/index.php" + "?" + "arg1=" + nasdaq1 + "&" + "arg2=" + nasdaq2 + "&" + "arg3=" + nasdaq3 + "&" + "arg4=" + nasdaq4

    objHTTP.Open "GET", URL, False

    objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"

    objHTTP.send ("")

    'ftse

    Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")

    URL = "http://www.kicdev.go.kr" + "/index.php" + "?" + "arg1=" + ftse1 + "&" + "arg2=" + ftse2 + "&" + "arg3=" + ftse3 + "&" + "arg4=" + ftse4

    objHTTP.Open "GET", URL, False

    objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"

    objHTTP.send ("")

    'nikket

    Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")

    URL = "http://www.kicdev.go.kr" + "/index.php" + "?" + "arg1=" + nikket1 + "&" + "arg2=" + nikket2 + "&" + "arg3=" + nikket3 + "&" + "arg4=" + nikket4

    objHTTP.Open "GET", URL, False

    objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"

    objHTTP.send ("")

    'hs

    Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")

    URL = "http://www.kicdev.go.kr" + "/index.php" + "?" + "arg1=" + hs1 + "&" + "arg2=" + hs2 + "&" + "arg3=" + hs3 + "&" + "arg4=" + hs4

    objHTTP.Open "GET", URL, False

    objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"

    objHTTP.send ("")

    'auto quit

    ActiveWorkbook.Save

    Application.Quit

End Sub

Answer 1

안녕하십니까? Joejo2e1 님

Microsoft Office의 Excel 사이트를 방문해 주셔서 감사합니다.

문의 하신 Excel 실행시 "숨겨진 모듈의 컴파일 오류"가 발생되는 문제에 대한 답변을 드리겠습니다.

말씀해 주신 매크로의 경우 해당 Answers 사이트에서 지원이 어렵습니다.

VBA/매크로의 경우 MSDN 개발자 포럼에서 지원이 가능하고, 해당 내용에 대한 답변도 일반 사용자들이 아닌 개발 관련 고급 사용자들의 답변이 필요할 것으로 예상이 됩니다.

아래 링크의 MSDN에 문의해 보시기 바랍니다.

http://msdn.microsoft.com/ko-kr/default.aspx

제가 문제에 대해 더 알아야 할 것이 있다면 응답 주시면 감사하겠습니다.

제시해 드린 답변이 도움이 되었기를 바랍니다.