VBA提取word表格内容到excel

这是一段提取word表格中部分内容的vb代码。

vbscript 复制代码
Sub 提取word表格()
mypath = ThisWorkbook.Path & "\"

myname = Dir(mypath & "*.doc*")

n = 4 ' index of rows


Range("A1:F1") = Array("课程代码", "课程名称", "专业", "备用1", "备用2", "备用3")

While myname <> ""

Set mydoc = GetObject(mypath & myname)

m = 4 ' index of rows of a table in word

With mydoc

With .Tables(1)


maxRows = .Rows.Count

'Debug.Print .Cell(2, 10).Range.text

While maxRows - m >= 2

Cells(n, 1) = .Cell(m, 3).Range.text
Cells(n, 1) = Left(Cells(n, 1), Len(Cells(n, 1)) - 1) '去除末尾小黑点,小黑点貌似代表换行符
Cells(n, 2) = .Cell(m, 4).Range.text
Cells(n, 2) = Left(Cells(n, 2), Len(Cells(n, 2)) - 1)

Cells(n, 3) = myname
m = m + 1
n = n + 1

'Cells(3, 1) = .Cell(3, 16).Range.text
'Cells(4, 1) = maxRows

Wend

End With

.Close False

End With

myname = Dir '再次调用,获取下一个文件名

Wend

MsgBox "COMPLETE"

End Sub

上述代码,可以把下面表格中课程代码和课程名称,提取到excel中。

相关推荐
BillKu27 分钟前
在 Delphi 5 中获取 Word 文档页数的方法
word·delphi
Access开发易登软件33 分钟前
Access开发导出PDF的N种姿势,你get了吗?
后端·低代码·pdf·excel·vba·access·access开发
課代表1 小时前
VBA 中的 Excel 工作表函数
excel·vba·函数·对象·属性·range·静态变量
IssacNew4 小时前
【原创软件】第14期:FastWordReplace-Word文字批量替换工具V1.1
word·文字替换·批量替换
UrbanJazzerati6 小时前
掌握 xlwings 的 used_range:高效处理 Excel 数据区域
python·面试·excel
XiaoMu_0017 小时前
【Markdown转Word完整教程】从原理到实现
word·markdown
m0_555762909 小时前
Excel ——INDEX + MATCH 组合
excel
焚 城9 小时前
Excel数据导出小记二: [大数据示例]
大数据·excel
偷心伊普西隆11 小时前
Python EXCEL 小技巧:最快重新排列dataframe函数
python·excel
Leslie_Lei11 小时前
【EasyExcel】Excel工具类2.0
excel