利用vba在excel中提取word表格数据_小二

个人资料

小二

微博

正文字体大小：大中小

利用vba在excel中提取word表格数据

(2011-04-15 14:31:05)

标签：

Sub 按钮1_Click()

Dim wdApp

Set wdApp = CreateObject("word.application")

path_ = ThisWorkbook.Path

wdApp.Documents.Open (path_ & "\新建 Microsoft Word 文档.docx")

wdApp.Visible = True

n = wdApp.ActiveDocument.Tables.Count

x = 0

y = 0

For i = 1 To n

rs = wdApp.ActiveDocument.Tables(i).Rows.Count

cs = wdApp.ActiveDocument.Tables(i).Columns.Count

For m = 1 To rs

x = x + 1

y = 1

For n = 1 To cs

vv = wdApp.ActiveDocument.Tables(i).cell(m, n)

Cells(x, y) = Mid(vv, 1, Len(vv) - 1)

y = y + 1

End Sub

阅读┊ 收藏 ┊ 喜欢 ▼ ┊打印┊举报/Report