批处理之家 - Powered by Discuz! Board

标题: [问题求助] vbs如何doc文档文件转化成xls表格文件 [打印本页]

作者: hnldwhm52 时间: 2014-12-19 06:50 标题: vbs如何doc文档文件转化成xls表格文件

请教老师?
怎样用vbs将1.doc中表格转成2.xls 如下图：

600388 西南药业环保问题上升至国家层面股价上攻
002105 龙净环保体育总局调研概念股大涨
601226 信隆实业兼备“一带一路”华电重工再飙升
300368 华电重工受益互联网金融发展
000938 汇金股份工业4.0重磅盛会将召开
600026 紫光股份受益于油价下跌及运价上涨
601872 中海发展低油价+运价上涨招商轮船受益

先谢啦！！！！

谢谢 DAIC老师快速回复附件如下：

作者: DAIC 时间: 2014-12-19 10:50

把你的1.doc压缩之后传上来看看

作者: apang 时间: 2014-12-19 19:01

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
复制代码

作者: hnldwhm52 时间: 2014-12-19 21:27

apang 发表于 2014-12-19 19:01

首先感谢apang 老师的解答！但未成功（我用的是 Office2003 ），提示如下图：

请您再费心解答！！

作者: apang 时间: 2014-12-19 23:30

本帖最后由 apang 于 2014-12-19 23:32 编辑

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
复制代码

欢迎光临批处理之家 (http://bbs.bathome.net/)