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