ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

EH搜索     
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel 2016函数公式学习大典 Office知识技巧免费学 打造核心竞争力的职场宝典
300集Office 2010微视频教程 Tableau-数据可视化工具 精品推荐-800套精选PPT模板,点击获取 ExcelHome出品 - VBA代码宝免费下载
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 Excel VBA经典代码实践指南
查看: 435|回复: 3

[求助] 再次求助:EXCEL自动提取WORD文档一个文本框中的某一部分内容填入指定的单元格

[复制链接]

TA的精华主题

TA的得分主题

发表于 2020-1-13 22:02 | 显示全部楼层 |阅读模式
前几天发了一帖子求助提取WORD中的内容,目前又遇上新的问题,WORD文档中的内容在文本框中,自己试了几天,我这初学VBA的水平确实无法在帮助我的老师的基础上按新情况修改代码。特向各位老师再次求助。原贴地址:http://club.excelhome.net/thread-1516893-1-1.html,在10楼已经有老师帮助写了提取一般WORD文档的代码,目前有两个新的问题,一是在某一文件夹内每新建一个WORD文档时,让EXCEL自动提取该文档中的某一部分内容填入相应的EXCEL单元格,但该WORD文档中需提取的内容在文本框中,怎么改代码。二是如果EXCEL工作簿与WORD文档不在同一文件夹中,怎么改代码。请哪位老师帮助改改代码,非常感谢!!!!


2323.png

求助.zip

69.1 KB, 下载次数: 10

TA的精华主题

TA的得分主题

发表于 2020-1-14 08:07 | 显示全部楼层
本帖最后由 zc123zc 于 2020-1-14 08:08 编辑

Sub Wordd()
    Dim oDoc As Object
    Dim myPath$, MyName$
   
   
    myPath = ThisWorkbook.Path & "\入库单\"
    MyName = Dir(myPath & "*.doc*")
   

    Do While MyName <> ""
    k = Split(Split(MyName, "(")(1), "号")(0) + 0
        
            Set oDoc = GetObject(myPath & MyName)
            k = k + 1
           
            Cells(k + 1, 1) = k - 1
            With oDoc.Shapes(1)
                Cells(k + 1, 4) = Split(Split(.TextFrame.TextRange, "入库:")(1), ";(")(0)
               
            End With
            
               
            oDoc.Close True
      
        MyName = Dir
    Loop
   
End Sub

评分

参与人数 1鲜花 +2 收起 理由
fnre + 2 感谢帮助

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-1-20 16:46 | 显示全部楼层
zc123zc 发表于 2020-1-14 08:07
Sub Wordd()
    Dim oDoc As Object
    Dim myPath$, MyName$

你好,首先非常感谢老师的帮助,目前有个问题再次请教:如果后续有WORD文档新建加入,每次在EXCEL中执行一次代码都要对工作簿中已经导入的数据进行刷新,这样的话WORD文档过多就会影响代码执行速度,请教一下如何才能在已经填入数据的下一个空白行开始执行代码导入数据,也就是说每次执行代码时仅导入新建的WORD文档中的相应内容,原来已导入的不再刷新?再次感谢!!!!

TA的精华主题

TA的得分主题

发表于 2020-8-5 09:42 | 显示全部楼层
这个自己加个判断好了,文件创建时间晚于最后一次执行时间才导入
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关注官方微信,每天学会一个新技能

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2020-8-9 19:09 , Processed in 0.074433 second(s), 20 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2020 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

快速回复 返回顶部 返回列表