我想问一下有没有在CMD下编辑Excel文件的工具 - 中国DOS联盟论坛

保存下面的脚本为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

第1楼　bob1989	发表于 2007-05-14 14:17
中级用户　发帖 144　积分 322
我想问一下有没有在CMD下编辑Excel文件的工具呵呵` 问题丢出来应该是吓倒一片了把`` 是CMD下不是DOS下哦`` 知道的高人请回答

第2楼　lxmxn	发表于 2007-05-14 14:32
版主　发帖 4,938　积分 11,386
貌似Vba可以处理Excel文件，问问ccwan兄吧？也可以放一个Excel文件上来，让大伙看看能不能用什么工具处理。

第3楼　3742668	发表于 2007-05-14 19:21
荣誉版主　发帖 718　积分 2,013
保存下面的脚本为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

第4楼　ebfok	发表于 2007-05-14 19:23
初级用户　发帖 33　积分 87　来自 cs
编个vbs处理吧 Set oExcel = CreateObject("excel.application") 创建好对象后想干什么都成

第5楼　pcbfans	发表于 2010-03-07 17:35
新手上路　发帖 8　积分 11
不错的建议，但是DOS处理EXCEL应该是可以的啊，运用格式化文本方式转为cvs，