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有个小问题是会把名字中的点.替换为#，如果结果中出现#则无法得知确切名称）。