| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 241 人关注过本帖
标题:如何将word中数据导入excel题库
只看楼主 加入收藏
王咸美
Rank: 1
等 级:新手上路
帖 子:656
专家分:3
注 册:2018-1-4
结帖率:97.44%
收藏
已结贴  问题点数:20 回复次数:3 
如何将word中数据导入excel题库
如何将word中数据导入excel题库?请高手赐教,万分感谢!!!
会计试题.zip (10.58 KB)

会计题库.zip (6.37 KB)

图片附件: 游客没有浏览图片的权限,请 登录注册

图片附件: 游客没有浏览图片的权限,请 登录注册
搜索更多相关主题的帖子: word 导入 数据 excel 
2024-05-03 11:13
王咸美
Rank: 1
等 级:新手上路
帖 子:656
专家分:3
注 册:2018-1-4
收藏
得分:0 
下列代码由Excel VBA改写的,有点问题,请高手指点,谢谢!

cPath=ADDBS(JUSTPATH(SYS(16)))
SET DEFAULT TO (cPath)

doc = CreateObject("word.application") '创建Word对象
doc.Documents.Open(cPath+\ "会计试题“)
    With doc
        c = .Documents(1).Range '这里直接引用Word程序打开的第一个文档的所有内容
        regx = CreateObject("vbscript.regexp") '引用正则表达式对象
        With regx
            .Global = True
            .Pattern = "\d+、\S+。" '题目部分的正则表达式
            Mat = .Execute(c)
            For Each m In Mat '循环所有符合条件的匹配值
                n = n + 1
                Cells(n, 1) = m.Value '提取所有符合条件的段落到excel中
            Next
        End With
    End With
    doc.Quit '退出word程序


[此贴子已经被作者于2024-5-3 21:46编辑过]

2024-05-03 21:40
laowan001
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:66
帖 子:1088
专家分:2677
注 册:2015-12-30
收藏
得分:20 
以下是引用王咸美在2024-5-3 21:40:40的发言:

下列代码由Excel VBA改写的,有点问题,请高手指点,谢谢!

有点啥问题?倒是说出来啊
2024-05-03 22:01
王咸美
Rank: 1
等 级:新手上路
帖 子:656
专家分:3
注 册:2018-1-4
收藏
得分:0 
没有将word数据提取到excel中
2024-05-03 22:06
快速回复:如何将word中数据导入excel题库
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.042621 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved