[问题求助] [已解决]VBS脚本怎样获取Excel文件里面有哪些Worksheet？

gawk

我有一个Excel文件，里面有30多个Worksheet，怎样用VBS脚本导出它们的名称呢？

applba

导出成jpg

Demon

'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

powerbat

如果没有安装excel（比如我）

xls = "C:\Users\root\Desktop\1.02战法数据表.xls"

strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=" & xls & ";Extended Properties=""Excel 8.0;"";"

Set AdoCnn = CreateObject("ADODB.Connection")
AdoCnn.Open strConnect
Set rs = AdoCnn.OpenSchema(20)
Do Until rs.EOF
    WScript.Echo rs.Fields("table_name")
    rs.MoveNext
Loop
AdoCnn.Close
复制代码

适当整理一下即可（ado有个小问题是会把名字中的点.替换为#，如果结果中出现#则无法得知确切名称）。

gawk

回复 3# Demon


    测试成功，感谢分享。

gawk

回复 4# powerbat


测试发现的几个小问题：
1、得到的列表没有按照原来的顺序，被排序了。
2、行尾多了$符号。
3、有空格的sheet的行首和行尾还被加了单引号。

不会调整