回复1楼
Dim wrt As New WordReport(Tables("管理表"),tm,fl1) '定义一个WordReport
改成
Dim wrt As New WordReport(Tables("窗口1_Table1"),tm,fl1) '定义一个WordReport
回复2楼
如果你的excel和word要同时生成，那么，两段代码合并在一起即可
加好友 
发短信
Post By：2018/12/2 20:32:00 [只看该作者]
