批处理之家 - Powered by Discuz! Board

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

作者: gawk 时间: 2012-5-17 01:27 标题: [已解决]VBS脚本怎样获取Excel文件里面有哪些Worksheet？

本帖最后由 gawk 于 2012-5-18 06:47 编辑

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

作者: applba 时间: 2012-5-17 09:01

导出成jpg

作者: Demon 时间: 2012-5-17 14:35

本帖最后由 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

作者: powerbat 时间: 2012-5-17 14:42

如果没有安装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 时间: 2012-5-18 06:39

回复 3# Demon

测试成功，感谢分享。

作者: gawk 时间: 2012-5-18 06:46

回复 4# powerbat

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

不会调整

欢迎光临批处理之家 (http://bathome.net./)