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

使用VBA提取word文档中的表格数据

新建一个excel文档，在VBA编辑界面操作

添加用户界面：

代码：

PrivateSubCommandButton1_Click(）

DimsAsString

s=TextBox2.Text

Dimfs，myfolder,myfile,myfiles，wdapp，mydoc

DimmTableAsTable,mCellAsCell

Setfs=CreateObject（”Scripting.FileSystemObject”)

Setmyfolder=fs。GetFolder（s）

Setmyfiles=myfolder.Files

Dimm，nAsInteger

m=0

n=1

ForEachmyfileInmyfiles

m=m+1

Setwdapp=CreateObject（”word。application)

wdapp。Documents.Openmyfile。Path

wdapp.Visible=False

wdapp。Visible=True

Setmydoc=wdapp.Documents。Item(myfile。Name)

ForEachmTableInmydoc.Tables

ForEachmCellInmTable.Range。Cells

ThisWorkbook.ActiveSheet。Cells(m，n）=Left(mCell。Range。Text，Len(mCell.Range。Text）-1）

n=n+1

NextmCell

NextmTable

Setmydoc=Nothing

wdapp。Quit

TextBox1.Text=TextBox1.Text+vbCrLf+已完成第+Str（m)+项：”+myfile。Path

n=1

Next

TextBox1.SetFocus

TextBox1。Text=TextBox1。Text+vbCrLf+”全部完成！共计”+Str(m）+项”

MsgBox(全部完成!共计”+Str（m）+”项”）

EndSub