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

gawk · 发表于 2012-5-17 01:27:30

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

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

applba · 发表于 2012-5-17 09:01:27

导出成jpg

Demon · 发表于 2012-5-17 14:35:38

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

如果没有安装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:13

回复 3# Demon

测试成功，感谢分享。

gawk · 发表于 2012-5-18 06:46:56

回复 4# powerbat

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

不会调整

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

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

评分

评分

浏览过的版块