如何确定word文档中有多少个表以及各表的行、列数，并提取数据

cunfu2010 · 发表于 2017-3-24 23:47

本帖最后由 cunfu2010 于 2017-3-27 11:47 编辑

经过多天查找，学习。总算对提取word中的数据有所了解了，但总感觉还有进一步完善的可能。想法：
1、通过代码确定word中表格数量及各表格的具体情况（行、列数）（可以存在临时变量中，也可以存在辅助工作表或单元格中）；
2、依据确定的数据，通过循环将word中的各表分别提取到不同的工作表中（word中的一表对应excel中的一个工作表）
上面两个想法在论坛中都已经实现，想将其整合在一起，但没有实现。故求助。

cunfu2010 · 发表于 2017-3-25 12:27

自己顶顶，求助各位

cunfu2010 · 发表于 2017-3-26 08:05

比较生辟的应用，求各位大虾帮忙

QQ214189912 · 发表于 2017-3-26 08:27

cunfu2010 发表于 2017-3-26 08:05
比较生辟的应用，求各位大虾帮忙

Sub 遍历表格()
Dim i As Integer
Debug.Print "共" & ThisDocument.Tables.Count; "个表格"
For i = 1 To ThisDocument.Tables.Count
Tables(i).Range.Select
Debug.Print "第" & i & "表格"
Debug.Print Tables(i).Range.Rows.Count & "行"
Debug.Print Tables(i).Range.Columns.Count & "列"
Debug.Print Tables(i).Range.Cells.Count & "个单元格"
Debug.Print
Next
End Sub

复制代码

duquancai · 发表于 2017-3-26 08:37

cunfu2010 发表于 2017-3-26 08:05
比较生辟的应用，求各位大虾帮忙

什么叫“整合在一起？”

duquancai · 发表于 2017-3-26 09:44

整合在一起  就是放在一个Excel表格中？在你的代码上添加的》》》》》》

Sub text()
Dim wd As New Word.Application
Cells.Clear
With CreateObject(ThisWorkbook.Path & "\" & "1.doc")
      For Each tb In .tables
         n = n + 1
         If n = 1 Then
            Range("A1").Activate
            tb.Range.Copy
            Sheet1.Paste
         Else
            r = Sheet1.UsedRange.SpecialCells(11).Row + 1
            Range("A" & r).Activate
            tb.Range.Copy
            Sheet1.Paste
         End If
      Next
End With
wd.Quit
End Sub

cunfu2010 · 发表于 2017-3-26 12:04

duquancai 发表于 2017-3-26 09:44
整合在一起就是放在一个Excel表格中？在你的代码上添加的》》》》》》

Sub text()

谢谢！不是放在一个工作表中。
我的表述可能没说清楚，我想要的结果是：word文档中表格数有几个就在excel工作薄中新建几个工作表，把word文档中表格内容分别提取到excel工作薄中对应的工作表中。这样说不知道说清楚没。

duquancai · 发表于 2017-3-26 12:12

cunfu2010 发表于 2017-3-26 12:04
谢谢！不是放在一个工作表中。
我的表述可能没说清楚，我想要的结果是：word文档中表格数有几个就在exce ...

稍加修改对应建表

duquancai · 发表于 2017-3-26 12:19

cunfu2010 发表于 2017-3-26 12:04
谢谢！不是放在一个工作表中。
我的表述可能没说清楚，我想要的结果是：word文档中表格数有几个就在exce ...

Sub text()
Dim wd As New Word.Application
With CreateObject(ThisWorkbook.Path & "\" & "1.doc")
      For Each tb In .tables
         n = n + 1
         Sheets.Add After:=Sheets(Sheets.Count)
         Sheets(Sheets.Count).Name = "表" & n
         Sheets("表" & n).Range("A1").Activate
         tb.Range.Copy
         Sheets("表" & n).Paste
      Next
End With
wd.Quit
End Sub

jiminyanyan · 发表于 2017-3-26 12:22

cunfu2010 发表于 2017-3-26 12:04
谢谢！不是放在一个工作表中。
我的表述可能没说清楚，我想要的结果是：word文档中表格数有几个就在exce ...

都中级了，基础不怎么好呀…………
Sub text()
Dim wd As New Word.Application
Cells.Clear
With CreateObject(ThisWorkbook.Path & "\" & "1.doc")
      For Each tb In .tables
         n = n + 1
         If n = 1 Then
            Range("A1").Activate
            tb.Range.Copy
            Sheet1.Paste
         Else
            k = k + 1
            Sheets.Add After:=Sheets(Sheets.Count)
            Sheets(Sheets.Count).Name = k
            tb.Range.Copy
            Sheets(Sheets.Count).Paste
         End If
      Next
End With
wd.Quit
End Sub

		自动登录	找回密码
密码			免费注册

[求助] 如何确定word文档中有多少个表以及各表的行、列数，并提取数据

评分

评分

评分