VBA取干部大表WORD文件中的单元格内容到EXCEL

最新推荐文章于 2024-08-17 09:15:49 发布

gxchai

最新推荐文章于 2024-08-17 09:15:49 发布

阅读量858

点赞数 1

分类专栏：随手小代码 EXCEL VBA 文章标签： vba excel

本文链接：https://blog.csdn.net/gxchai/article/details/125896866

版权

使用VBA编写代码，将多个DOC格式的干部大表中的人员信息高效地抽取到Excel中，方便数据整理和分析。

摘要由CSDN通过智能技术生成

碰到一个问题，是要从干部大表中提取人员的各种信息，几百张大表都是DOC格式，就写了以下代码，把这个EXCEL文件和所有WORD放在同一个目录下，运行下就可以了。

Sub 读word()
    
    '选择文件夹
    strDir = ActiveWorkbook.Path & "\"
    
    '遍历文件
    Dim arrFile
    ReDim arrFile(0)

    strfile = Dir(strDir & "*.*"

最低0.47元/天解锁文章

确定要放弃本次机会？

福利倒计时

: :

立减 ¥

普通VIP年卡可用

立即使用

gxchai

关注关注

1
点赞
踩
7

收藏

觉得还不错? 一键收藏
0
评论
复制链接

分享到 QQ

分享到新浪微博

扫一扫

专栏目录

VBA读取word中的内容到Excel中

weixin_30701521的博客

06-28

3571

VBA读取word中的内容到Excel中，这类代码的思路都是一致的，包括ADO、SQL、DELPHI、VB…… 先声明、创建一个对象 → 用此对象打开需要操作的文件、数据库 → 从头到尾循环一遍做某事 → 关闭文件 → 关闭对象 → 释放对象。 Public Sub Duqu() Dim myFile As String Dim docApp As Word.App...

excel通过vba 批量读取word内表格的内容并写入excel

01-08

excel通过vba 批量读取word内表格的内容并写入excel

参与评论您还未登录，请先登录后发表或查看评论

VBA学习(32)：将word中的数据批量提取到excel中

热门推荐

bailang_zhizun的博客

04-09

1万+

通过VBA将word中的表格导入到excel中由于项目需要，需要将word中的表格按照格式导入到excel中，所以通过在word中写VBA程序的方式将word的内容导出到excel中。1、添加“开发工具”选项卡打开word(我的是office2007)，点击左上角“office 按钮”，点击“word选项”，打开如下图所示界面：勾选“在功能区显示“开发工具”选项卡”2、VBA编辑界...

【一步一步学习VBA】WORD 返回每个表格单元格的内容

自信的尘埃 www.gocpplua.com

08-06

6109

返回每个表格单元格的内容，并将文字指定给相应的数组元素 Sub ReturnCellContentsToArray() Dim intCells As Integer Dim celTable As Cell Dim strCells() As String Dim intCount As Integer Dim rngText As Range

提取word表格数据到Excel的vba程序代码

04-13

标题中的“提取word表格数据到Excel的vba程序代码”是指使用VBA（Visual Basic for Applications）编程语言，编写一个宏来实现从Microsoft Word文档中的表格自动抽取数据并存储到Excel工作表中。这个过程可以大大...

将excel单元格内容及公式添加到Word中-VBA源码.rar

02-22

本话题聚焦于如何利用VBA将Excel中的单元格内容和公式无缝插入到Word文档中。 Excel单元格中的数据可以是纯文本、数字或复杂的计算公式，而这些内容在Word文档中同样有着广泛的应用，如报告、报表或模板。VBA使得这...

VBA双击获取合并单元格的内容.xlsm

04-04

VBA双击获取合并单元格的内容.xlsm

使用VBA提取文件夹内所有word文档中的表格数据

03-27

使用VBA提取文件夹内所有word文档中的表格数据

matlab 读取word的表格数据,请教高手：使用VBA批量提取word中的表格数据，急！

weixin_32823659的博客

03-20

1711

代码如下：Dim FilesList(1 To 99999, 1 To 1) '在主SUB代码外定义数组及位置变量，为跨SUB调用Dim FilesList_i As IntegerDim FS As ObjectDim If_Sub As StringSub 遍历文件() '主SUBDim Path_todo As StringPath_todo = InputBox("输入待处理目录路径", ...

vba listview 允许复制_Word与Excel用VBA交互(五)批量合并Word文档

weixin_39947396的博客

12-14

560

昨天和小伙伴们分享了，Excel个人档案合并到一起，今天和小伙伴们分享，用VBA合并Word文档到一个文档follow meSub main()Dim w, app, wwSet app = CreateObject("Word.application")Dim i As IntegerApplication.ScreenUpdating = False With Applicat...

word合并单元格后,VBA读取设置相应单元格内容

WV1124的专栏

11-02

6260

设置单元格的行列坐标并写的word文档中Sub SetTablePosition() Dim tbl As Table Dim cell As cell Dim tblIndex As Integer Dim cellContent As String 以下遍历表格中存在的单元格 For Each tbl In ThisDocument.Tables

将WORD中的表格转换到EXCEL中

qq_25846269的博客

11-15

468

将WORD中的表格转换到EXCEL中以下代码在WORD中使用 Option Explicit Sub word2Excel() Dim iPath As String, iName As String, i As Long, j As Long Dim iEx As Object Dim iWbk As Object Dim iSht As Object...

Excel 提取 Word中的数据到Excel表格中

m0_60646395的博客

08-04

1328

Sub importfromword() Dim w As Object, i As Long, doc As Object '创建一个word的Application对象，由w代表 Set w = CreateObject("word.application") '循环打开使用数字命名的各个word文档，由doc代表 For i = 1 To 8 Set doc = w.documents.Open("D:...

Office Word 工作薄间工作表合并 VBA

jeackem的博客

04-12

496

在日常生活中，我们经常使用到Word；有时我们要将Word合并，这时候一个个复制站点体贴显得不那么方便快捷，这时候就要使用到Word自带的开发者工具，进行VBA编程实现。具体实现代码如下： Sub 工作薄间工作表合并() Dim FileOpenDim X As IntegerApplication.ScreenUpdating = FalseFileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xls),*.x.

.rpt文件内容读取java_VBA 文件遍历、内容读取与合并、正则替换、行/列操作

weixin_39614657的博客

11-25

203

一根据文件遍历结果创建工作表需求：根据文件名创建工作表在同一个文件夹下有很多文件比如：2019-06_辽宁_沈阳_qwd.xlsx2019-06_辽宁_葫芦岛_sdsd.xlsx2019-06_黑龙江_sad.xls有的是xlsx 有的是xls文件，格式都是统一的前缀必为2019-06.同一个省份可能有多个市的文件，我想用VBA读取文件名里的省份(估计要用正则表达式？)，根据每个省份...

用vba代码把word的内容逐段复制到excel文件不同单元格

04-18

抱歉，我可以回答你的问题。你可以使用以下VBA代码将单个Word文档中的内容逐段复制到Excel文件的不同单元格： Sub CopyWordToExcel() Dim wrdApp As Word.Application Dim wrdDoc As Word.Document Dim rng As Word.Range Dim iRow As Integer Set wrdApp = New Word.Application Set wrdDoc = wrdApp.Documents.Open("C:\your_path\your_doc.docx") iRow = 1 For Each rng In wrdDoc.Paragraphs ActiveSheet.Cells(iRow, 1).Value = rng.Range.Text iRow = iRow + 1 Next rng wrdDoc.Close wrdApp.Quit Set wrdDoc = Nothing Set wrdApp = Nothing End Sub 请将代码中的路径"C:\your_path\your_doc.docx"更改为您的Word文档路径并执行该代码。您将看到Word文档中的每个段落都被复制到不同的Excel单元格中的第一列。您可以根据需要更改代码以匹配您的Excel布局和Word文档格式。