powerbat

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

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

Set AdoCnn = CreateObject("ADODB.Connection")
AdoCnn.Open strConnect
Set rs = AdoCnn.OpenSchema(20)
Do Until rs.EOF
    tbl = rs.Fields("table_name")
    s = s & tbl & vbCrLf & String(40,"-") & vbCrLf
    s = s & AdoCnn.Execute("select * from [" & tbl & "]").GetString(2)
    s = s & String(80,"=") & vbCrLf & vbCrLf
    rs.MoveNext
Loop
AdoCnn.Close
WScript.Echo s
复制代码