클라이언트쪽 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 - 마지막 검토: 10/06/2011 00:47:00 - 수정: 3.0

Microsoft Office Excel 2007, Microsoft Excel 2002 Standard Edition, Microsoft Excel 2000 Standard Edition, Microsoft Excel 97 Standard Edition

  • kbhowto KB198703
피드백