作者：绿色风
分类：
时间：2022-08-17
浏览：187
楼主
breezy |
将以下代码保存为VBScripttoexcel.HTML然后用IE打开。- <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>
 VBScript to excel.rar
|
2楼
breezy |
通过VBScript来操作EXCEL，仅供学习参考。
可以很方便地用网页形式来生成EXCEL。 |
3楼
opelwang |
感谢分享。支持一下。
目前还没有学到那个阶段。 |
4楼
amulee |
不一定要网页的，直接用VBS也行哦 |
5楼
九尾龙 |
感谢分享。支持一下。
目前还没有学到那个阶段。 |
6楼
浮尘远去 |
挺高深啊 |
7楼
mqsung |
谢谢 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一