我们可以用VBA代码来完成这一任务，年度考核表，按打开Excel格式；ALT + f11组合键，打开微软的Visual Basic应用程序编辑器窗口中，选择插入；具有；模块；模块，插入一个空白在右窗格中，下面的代码在这里手工输入或粘贴：
子测试（）
昏暗的wordapp作为新单词。应用，来啊，我的美元，%
ARR =范围（A1）。currentregion
MYPATH =工作簿。路径
application.screenupdating = false
我= 2，UBound（ARR）
myfile = dir（MYPATH *。doc）
在来做
如果InStr（myfile，ARR（I，1））和MyFile ThisWorkbook的名字然后
D =真
时（MyPath MyFile）
表格（2）。细胞（2, 2）。Range.text = ARR（I，2）
近真。
结束
最后如果
myfile = dir
环
下一个
MsgBox批量导入完成！
application.screenupdating =真
端子
上面的代码test可以根据任何信息的偏好，在导入完成后还可以在需要设置一致，检查后，选择文件正确；RARR；关闭并返回到微软excel命令，返回到Excel主界面，按；ALT + f8组合键，打开宏碁对话框中，选择运行宏，此时会看到图2 批量导入的对话框，然后批量的年度考核结果将在相应的单词形式填充作用来完成的，如图3所示。如果提示找不到项目或库请打开参考vbaproject对话框，检查可用的参考目录下的微软Word 16对象library复选框可以有效确认后。
