同事急忽忽的前來(lái)求助，單位人員近三年的年度考核結(jié)果都保存在Excel表格，如圖1所示，這里按照姓名、考核結(jié)果列出了所有人員的年度考核結(jié)果，她現(xiàn)在需要將這些考核結(jié)果導(dǎo)入到已形成的《干部任免考核表》的“年度考核結(jié)果”單元格，但這些任免考核表都是Word格式，由于考核人員接近千人，如果全部通過(guò)手工的方法完成導(dǎo)入，工作量可想而知，而且也很容易出現(xiàn)錯(cuò)誤，有沒(méi)有簡(jiǎn)單方便一些的方法呢？

　　我們可以借助VBA代碼完成這一任務(wù)，打開(kāi)Excel格式的年度考核表，按下“Alt+F11”組合鍵，打開(kāi)Microsoft Visual Basic for Applications編輯器窗口，依次選擇“插入→模塊”，在右側(cè)窗格插入一個(gè)空白模塊，在這里手工輸入或粘貼如下代碼：

　　Sub test()

　　Dim Word App As New Word.

　　Application，My File$，arr，i%

　　arr=Range(“A1”).Current Region

　　MyPath=This Workbook.Path &“”

　　Application.ScreenUpdating=False

　　For i=2 To UBound(arr)

　　MyFile=Dir(MyPath &“*.doc”)

　　Do While MyFile <>””

　　If InStr(MyFile，arr(i，1)) And MyFile <>

　　ThisWorkbook.Name Then

　　d=True

　　With GetObject(MyPath & MyFile)

　　.tables(2).cell(2，2).Range.text=arr(i，2)

　　.Close True

　　End With

　　End If

　　MyFile=Dir

　　Loop

　　Next

　　MsgBox“批量導(dǎo)入完成！”

　　Application.ScreenUpdating=True

　　End Sub

　　上述代碼的“test”可以根據(jù)喜好任意設(shè)置，導(dǎo)入完成之后的提示信息也可以按照需要設(shè)置，檢查無(wú)誤之后依次選擇“文件→關(guān)閉并返回到MicrosoftExcel”命令，返回Excel主界面，按下“Alt+F8”組合鍵，打開(kāi)“宏”對(duì)話(huà)框，選擇并運(yùn)行宏，此時(shí)會(huì)看到圖2所示的“批量導(dǎo)入完成”的對(duì)話(huà)框，隨后會(huì)在相應(yīng)的Word表格完成年度考核結(jié)果的批量填充，效果如圖3所示。如果提示“找不到工程或庫(kù)”，請(qǐng)打開(kāi)“引用-VBAProject”對(duì)話(huà)框，在可使用的引用列表下勾選“Microsoft Word 16.0 object Library”復(fù)選框，確認(rèn)之后即可生效。

關(guān)注讀覽天下微信， 100萬(wàn)篇深度好文， 等你來(lái)看……