Dim Filter As String
...
....
Tables("窗口1_Table1").Filter = Filter
Tables("订单").Filter = Filter
是这样吗？
加好友 
发短信
Post By：2018/8/27 21:40:00 [只看该作者]
