ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 1373|回复: 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, 下载次数: 11

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

查看全部评分

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, 2024-3-28 18:17 , Processed in 0.048783 second(s), 11 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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