apang

sPath = Left(WScript.ScriptFullName, InStrRev(WScript.ScriptFullName,"\"))

Set objWord=CreateObject("Word.Application")
objWord.Visible = True
Set objDoc = objWord.Documents.Open(sPath & "1.DOC")
objDoc.Tables(1).Range.Copy
objDoc.Close
objWord.Quit

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
objExcel.WorkBooks.Add
objExcel.WorkSheets(1).Activate
objExcel.ActiveSheet.Paste
objExcel.ActiveWorkBook.SaveAs(sPath & "hello.xlsx")
objExcel.WorkBooks.Close
objExcel.Quit
复制代码

apang

sPath = Left(WScript.ScriptFullName, InStrRev(WScript.ScriptFullName,"\"))

Set objWord=CreateObject("Word.Application")
objWord.Visible = True
Set objDoc = objWord.Documents.Open(sPath & "1.DOC")
row = objDoc.Tables(1).Rows.Count
column = objDoc.Tables(1).Columns.Count

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
objExcel.WorkBooks.Add
objExcel.WorkSheets(1).Activate

For i = 1 to row
        For j = 1 to column
                s = objDoc.Tables(1).Cell(i, j).Range.Text
                objExcel.ActiveSheet.Cells(i, j) = Left(s, Len(s)-1)
        Next
Next

objDoc.Close
objWord.Quit
objExcel.ActiveWorkBook.SaveAs sPath & "hello.xls"
objExcel.WorkBooks.Close
objExcel.Quit
复制代码