中国DOS联盟

呵呵` 问题丢出来应该是吓倒一片了把``

是CMD下不是DOS下哦``

知道的高人请回答

貌似Vba可以处理Excel文件，问问ccwan兄吧？

也可以放一个Excel文件上来，让大伙看看能不能用什么工具处理。

保存下面的脚本为vbs类型文件，运行后可得到简单的演示，想扩充功能可以自行参考Adodb.RecordSet组件的相关资料。

    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

编个vbs处理吧
Set oExcel = CreateObject("excel.application")
创建好对象后想干什么都成

不错的建议，但是DOS处理EXCEL应该是可以的啊，运用格式化文本方式转为cvs，