请把你的语句： Sheets("database").Select 修改为：
恕我直言WordApp.ActiveDocument.Tables(1).Rows(1).Selec
和VB有一点区别，要写Application.path
两个问题，有没有一个叫：“DN2”的工作表，还有将Cells("B2")改成：R
退出360安全桌面就行了 亲测有用