클라이언트쪽 VBScript에서 Excel을 자동화하는 방법

요약

이 문서에서는 웹 페이지에 있는 단추를 누르면 Microsoft Excel을 시작하고 자동화하는 VBScript 클라이언트측 코드를 보여줍니다.

추가 정보

예제 코드

  1. 텍스트 편집기에서 다음 HTML 파일을 만들고 c:\excel.htm으로 저장합니다.
    <HTML>
    <BODY>

    <INPUT id=button1 name=button1 type=button value=Button>

    <SCRIPT LANGUAGE=vbscript>

    sub button1_onclick()

    ' Launch Excel
    dim app
    set app = createobject("Excel.Application")

    ' Make it visible
    app.Visible = true

    ' Add a new workbook
    dim wb
    set wb = app.workbooks.add

    ' Fill array of values first...
    dim arr(19,9) ' Note: VBScript is zero-based
    for i = 1 to 20
    for j = 1 to 10
    arr(i-1,j-1) = i*j
    next
    next

    ' Declare a range object to hold our data
    dim rng
    set rng = wb.Activesheet.Range("A1").Resize(20,10)

    ' Now assign them all in one shot...
    rng.value = arr

    ' Add a new chart based on the data
    wb.Charts.Add
    wb.ActiveChart.ChartType = 70 'xl3dPieExploded
    wb.ActiveChart.SetSourceData rng, 2 ' xlColumns
    wb.ActiveChart.Location 2, "Sheet1" 'xlLocationAsObject

    ' Rotate it around...
    for i = 1 to 360 step 30
    wb.activechart.rotation = i
    next

    ' Give the user control of Excel
    app.UserControl = true

    end sub
    </SCRIPT>

    </BODY>
    </HTML>
  2. Internet Explorer를 시작하고 주소 표시줄에 c:\excel.htm을 입력한 다음 Enter 키를 누릅니다.


    결과: 새 통합 문서가 Excel에 나타납니다. 새 통합 문서의 Sheet1이 데이터로 채워지고 새 차트가 만들어집니다. 새 차트가 회전합니다.
참고: 웹 페이지에 있는 단추를 누를 때 "ActiveX 구성 요소는 'createobject' 개체를 만들 수 없습니다."라는 오류 메시지가 나타나면 이 문서의 "참조" 절에 나와 있는 문서에서 설명하는 대로 보안 설정을 확인하십시오.


참조

자세한 내용은 Microsoft 기술 자료의 다음 문서를 참조하십시오.

195826 PRB: CreateObject가 클라이언트측 스크립트에서 실패한다




Microsoft 제품 관련 기술 전문가들과 온라인으로 정보를 교환하시려면 Microsoft 뉴스 그룹에 참여하시기 바랍니다.
속성

문서 ID: 198703 - 마지막 검토: 2011. 10. 6. - 수정: 1

피드백