中国DOS联盟

    sXLS = GetFile()

Set oAdox = CreateObject("Adox.Catalog")

Set oConn = CreateObject("Adodb.Connection")

Set oRecordSet = CreateObject("Adodb.RecordSet")

    sConn = "Provider = Microsoft.Jet.OleDb.4.0;" & _

            "Data Source = " & sXLS & ";" & _

            "Extended Properties = ""Excel 8.0"";"

    oConn.Open sConn 

    sSQL = "Select * From "

    oAdox.ActiveConnection = oConn

    

    '遍历所有表

    For Each itemTable In oAdox.Tables

        oRecordSet.Open sSQL & "
",oConn

        oRecordSet.MoveFirst

        WScript.Echo oRecordSet.GetString

        oRecordSet.Close

    Next

    

    oConn.Close

Set oConn = Nothing

Set oAdox = Nothing

Set oRecordSet = Nothing



'获得被操作的文件名

Function GetFile()



    Dim objDialog    

    If WScript.Arguments.Count < 1 Then     

		Set objDialog = CreateObject("UserAccounts.CommonDialog")

		'objDialog.InitialDir = "."

		objDialog.Filter = "VBScript Scripts|*.xls|All Files|*.*"

		objDialog.FilterIndex = 1

		

		If objDialog.ShowOpen Then

			GetFile = objDialog.FileName

		Else

		    Set objDialog = Nothing

		    WScript.Quit

		End If

		

		Set objDialog = Nothing

		

     Else

         GetFile = WScript.Arguments(0)

     End If



End Function