测试VBS生成二维柱状图

yiwuyun

1. Dim objExcel,strArray(6)
   
2. strPath=Left(WScript.ScriptFullName,InStrRev(WScript.ScriptFullName,""))
   
3. Set objExcel=CreateObject("Excel.Application")
   
4. objExcel.WorkBooks.Add()
   
5. objExcel.DisplayAlerts=false
   
6. objExcel.visible=true
   
7. objExcel.SheetsInNewWorkBook=2
   
8. col=1
   
9. row=1
   
10. strArray(0)="姓名"
    
11. strArray(1)="数学"
    
12. strArray(2)="外语"
    
13. strArray(3)="历史"
    
14. strArray(4)="化学"
    
15. strArray(5)="生物"
    
16. For col=1 to 6
    
17.    objExcel.Cells(1,col).value=strArray(col-1)
    
18. Next
    
19. 
    
20. For row=2 to 10
    
21.   objExcel.Cells(row,1).value=String(1,65)+CStr(row)
    
22. Next
    
23. 
    
24. objExcel.Range("B2:F10").Formula="=40+Int(Rand()*61)"
    
25. objExcel.Range("A1:F10").Style.HorizontalAlignment=-4108
    
26. 
    
27. Set objShape=objExcel.ActiveSheet.Shapes.AddChart(51)
    
28. objShape.Chart.SetSourceData objExcel.Range("A1:F10"),2
    
29. Set objShape=Nothing
    
30. 
    
31. objExcel.ActiveSheet.SaveAs(strPath&"test.xlsx")
    
32. Set objExcel=Nothing
    
33. 'objExcel.Quit()
    

复制代码

g495326

回复 1# yiwuyun


    弱弱的问下，excel.application 对象-哪里有带有例子的资料。