VBA代码:Sub 刷新流水数据()
Dim sq, n%
Dim mydata As New Date查询
dizhi = ThisWorkbook.Path & "\MOB.mdb"
n = Sheets("生产流水账").[a65536].End(3).Row + 1
Sheets("生产流水账").Range("a2:t" & n).ClearContents
sq = "SELECT * from 流水帐"
mydata.执行筛选 sq, Sheets("生产流水账").Range("a2")
MsgBox "完成"
End Sub