主题：[求助]如何定期备份数据库中的几个表，存成 Excel 表格

参考代码

static d As Date = Date.today.AddDays(-1)
If d <> Date.today AndAlso Date.Today.DayOfWeek = 1 AndAlso Date.Now.Hour = 12 Then
    d = Date.today
   
    Tables("表A").SaveExcel("d:\test" & format(d, "yyyMMdd") & ".xls", "表A")
    Tables("表B").SaveExcel("d:\test" & format(d, "yyyMMdd") & ".xls", "表B")
End If

http://www.foxtable.com/help/topics/0657.htm