- 帖子
- 766
- 积分
- 1451
- 技术
- 117
- 捐助
- 0
- 注册时间
- 2010-5-12
|
本帖最后由 Demon 于 2012-5-17 14:40 编辑
'Author: Demon
'Website: http://demon.tw
'Date: 2012/5/17
Option Explicit
'Must be full path
Const xls = "C:\Users\Demon\Desktop\demo.xls"
Dim Excel, Workbook, Worksheet
Set Excel = WScript.CreateObject("Excel.Application")
Set Workbook = Excel.Workbooks.Open(xls)
For Each Worksheet In Workbook.Worksheets
WScript.Echo Worksheet.Name
Next
Workbook.Close
Excel.Quit
|
-
1
评分人数
-
|