关于从excel中提取数据的问题。

huangshiming

excel文件中有大量表格（大概30张），使用以下办法让word中的表格数据得以更新： Dim eApp As Object Set eApp = GetObject("E:\ftp_Victor\chintoz\35机械数据表.xls") eApp.Application.Visible = True eApp.Parent.Windows(1).Visible = True eApp.Sheets("A类表").Range("B5:H34").Copy '''数据源 AppActivate "Microsoft Word", False Application.Selection.GoTo Name:="wordtable1" '''需要更新的表格 Application.Selection.PasteSpecial 以上只是更新一张表格，但是系统开销似乎很大，速度慢。有没有更好的办法实现类似的功能？ 谢谢。

七叶一枝梅

你在word中用链接的方式插入数据表，以后你每次编辑完excel后，再打开word那么word中的数据就已经自动更新了。无需向word中写入数据。