若何通过Word网络信息,Excel自动摘录数据?

  

凭证事情要求,有时刻会放置发放一些基本信息考察表,内容各不相同,等收回来的时刻,一个一个文档举行重新录入,事情量十分伟大。有没有好的设施能够自动将数据统一录入到一起呢?office的最大优势就是联动,尤其从2013版本最先,PPT、Word、Excel里功效相互融合的趋势加倍显著。今天小编就分享一个通过Word文件网络信息,使用Excel自动摘录数据的方式。
若何通过Word网络信息,Excel自动摘录数据? 首先根据正常的事情要求制作Word信息网络表,制作完毕后修改待填信息框,切换到开发模式选项卡,点击“Aa”名堂文本内容控件(若是没有,点击文件—选项—自界说功效区,右侧勾选“开发工具”)。
若何通过Word网络信息,Excel自动摘录数据? 接下来单击信息框然后在开发工具中点选“设计模式”。
若何通过Word网络信息,Excel自动摘录数据? 弹出对话框输入问题,这就是信息框的信息提醒文字,要是有需求,还可以修改边框颜色、文本样式等等。
若何通过Word网络信息,Excel自动摘录数据? 每个信息框都做了响应的修改后,点击开发模式中的“限制编辑”,在Word右侧栏中,勾选“限制对选定的样式设置名堂”和“仅允许在文档中举行此类型的修改”并选中“填写窗体”。
若何通过Word网络信息,Excel自动摘录数据? Word部门就设置完毕了,这时刻可以将文件发送给被网络信息者,待返回后,最先用Excel批量自动摘录Word填表信息。打开Excel,同样是切换到开发工具选项卡,点选最左侧的“Visual Basic”。
若何通过Word网络信息,Excel自动摘录数据? 双击Sheet1,填写宏代码(登录PC版微信,订阅号中找到办公便签,点击查看历史新闻找到本文再举行复制):
若何通过Word网络信息,Excel自动摘录数据? Option Base 1 Sub readDoc() Dim WordApp As Word.Application Set WordApp = CreateObject("Word.Application") Dim WordDoc As Word.Document Dim diag1 As FileDialog Dim return1 As String Dim filePathArray() Set diag1 = Application.FileDialog(msoFileDialogFilePicker) '界说文件选择对话框 With diag1 .AllowMultiSelect = True '设置文件选择对话框能够选择多个文件 return1 = .Show '打开文件选择对话框 n = .SelectedItems.Count '将选中文件个数保留至变量n If return1 = -1 Then '如选中文件(retun1=-1)则将选中的文件路径保留到filePathArray数组 ReDim filePathArray(n) For i = 1 To n filePathArray(i) = .SelectedItems(i) Next Else '若是未选中任何文件则提醒 MsgBox "未选择任何文件", vbExclamation End If End With For j = 1 To n Set WordDoc = WordApp.Documents.Open(filePathArray(j)) '凭证filePathArray数组中的路径逐个打开Word文件 Dim ccSet Set ccSet = WordDoc.ContentControls '将ccSet设为打开文档的内容控件聚集 i = 1 For Each cc In ccSet '遍历所有内容控件 Application.ActiveSheet.Cells(j, i) = cc.Range.Text '将内容控件内容保留至单元格 i = i + 1 Next WordDoc.Close '关闭当前Word文档 Next WordApp.Quit End Sub 注重,缮写好宏代码后,不要着急关闭,点选当前Visual Basic界面上方工具栏的“工具—引用”,在“可使用的引用”中找到“Microsoft Word 16.0 Object Library”并勾选确定(Word2013中名称略有差异)。
若何通过Word网络信息,Excel自动摘录数据? 回到Excel主界面,照样在开发工具选项卡中,点击“宏”,选中适才编辑的这个宏下令,单击“运行”,这时Excel会自转动出文件选择框,找到要摘录信息的Word文档点选打开,Excel就可以最先自动摘录信息了。这样一来,数据摘录的事情就完全依赖电脑自动完成了,大大节约了事情时间,也制止了手工摘录的失足几率。
若何通过Word网络信息,Excel自动摘录数据?
若何通过Word网络信息,Excel自动摘录数据?插图(9)

给TA买糖
共{{data.count}}人
人已赞赏
软件百科

系统之家W7旗舰版Ghost免激活版32位下载

2021-11-20 16:49:18

软件百科

Win10更新出问题?微软指导修复Windows更新错误

2021-11-20 17:00:05

0 条回复 A文章作者 M管理员
    暂无讨论,说说你的看法吧
个人中心
购物车
优惠劵
今日签到
有新私信 私信列表
搜索