[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[问题求助] vbs如何doc文档文件转化成xls表格文件

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

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

                先谢啦!!!!


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

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

TOP

  1. sPath = Left(WScript.ScriptFullName, InStrRev(WScript.ScriptFullName,"\"))
  2. Set objWord=CreateObject("Word.Application")
  3. objWord.Visible = True
  4. Set objDoc = objWord.Documents.Open(sPath & "1.DOC")
  5. objDoc.Tables(1).Range.Copy
  6. objDoc.Close
  7. objWord.Quit
  8. Set objExcel = CreateObject("Excel.Application")
  9. objExcel.Visible = True
  10. objExcel.WorkBooks.Add
  11. objExcel.WorkSheets(1).Activate
  12. objExcel.ActiveSheet.Paste
  13. objExcel.ActiveWorkBook.SaveAs(sPath & "hello.xlsx")
  14. objExcel.WorkBooks.Close
  15. objExcel.Quit
复制代码

TOP

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


首先感谢apang 老师的解答!但未成功(我用的是 Office2003 ),提示如下图:
   
请您再费心解答!!

TOP

本帖最后由 apang 于 2014-12-19 23:32 编辑
  1. sPath = Left(WScript.ScriptFullName, InStrRev(WScript.ScriptFullName,"\"))
  2. Set objWord=CreateObject("Word.Application")
  3. objWord.Visible = True
  4. Set objDoc = objWord.Documents.Open(sPath & "1.DOC")
  5. row = objDoc.Tables(1).Rows.Count
  6. column = objDoc.Tables(1).Columns.Count
  7. Set objExcel = CreateObject("Excel.Application")
  8. objExcel.Visible = True
  9. objExcel.WorkBooks.Add
  10. objExcel.WorkSheets(1).Activate
  11. For i = 1 to row
  12.         For j = 1 to column
  13.                 s = objDoc.Tables(1).Cell(i, j).Range.Text
  14.                 objExcel.ActiveSheet.Cells(i, j) = Left(s, Len(s)-1)
  15.         Next
  16. Next
  17. objDoc.Close
  18. objWord.Quit
  19. objExcel.ActiveWorkBook.SaveAs sPath & "hello.xls"
  20. objExcel.WorkBooks.Close
  21. objExcel.Quit
复制代码

TOP

返回列表