求大神将word文档表格转为excel表格，并且为每一行为单独一行

谢宝庆 · 发表于 2024-6-29 20:23

求大神将附件word的表格转化为excel表格，并且每题占用一行，不要出现如图所示的这种一道题占两行的

而是要

这种，非常感谢

3190496160 · 发表于 2024-6-30 09:54

很奇怪，第一个表竟然循环不到，代码仅从参考
Sub word到excel()
Application.ScreenUpdating = False
Dim FilePath As String
Dim i As Integer, n As Integer
Dim arr
Dim WordApp As Object
Set WordApp = CreateObject("Word.Application") '新建Word对象
WordApp.Visible = True
Dim WordD As Object
ReDim arr(1 To 100000, 1 To 5)
Set WordD = WordApp.Documents.Open(ThisWorkbook.Path & "\交易公司专业题库.docx")
On Error Resume Next
For s = 1 To WordD.tables.Count
Set ta = WordD.tables(s)
zd = ta.Cell(2, 3).Range.Text
For i = 2 To ta.Rows.Count
      n = n + 1
      For j = 1 To ta.Columns.Count
         arr(n, j) = Replace(ta.Cell(i, j).Range.Text, Chr(13) & Chr(7), "")
      Next j
Next i
Next s
WordD.Close
Set WordD = Nothing
WordApp.Quit
Range("a2").Resize(n, 5) = arr
Application.ScreenUpdating = True
MsgBox "完成"
End Sub

3190496160 · 发表于 2024-6-30 09:54

新建文件夹.rar (1.85 MB, 下载次数: 8)

gwjkkkkk · 发表于 2024-6-30 10:32

部分表格不规范，无法提取，请自行参考。。。

谢宝庆 · 发表于 2024-6-30 10:39

3190496160 发表于 2024-6-30 09:54

你好，中间还是有不少错行

谢宝庆 · 发表于 2024-6-30 10:42

3190496160 发表于 2024-6-30 09:54
很奇怪，第一个表竟然循环不到，代码仅从参考
Sub word到excel()
Application.ScreenUpdating = False

大神，运行的时候报错了

lizhipei78 · 发表于 2024-6-30 12:55

感觉表格不是很规范，所以提取不全

提取数据.rar (1.89 MB, 下载次数: 4)

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

[求助] 求大神将word文档表格转为excel表格，并且为每一行为单独一行