你问过啊

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=108341&skin=0

导出excel，参考

http://www.foxtable.com/webhelp/scr/0559.htm

上次没有搞懂，而且也没找到备份按钮在哪，然后我就想着是导出来弄。这次看来您发的链接，结合着写了个代码，在命令窗口里可以执行，但是不知道这个代码要写在哪里了，麻烦您看一下：

static d1 As Date = Date.today.AddDays(-1)
\'23时 执行
If d1 <> Date.today AndAlso  Date.Now.Hour=11 Then
    d1 = Date.today
    Dim g As New CrossTableBuilder("息费收回情况分析", DataTables("r3"), "[r304]<>\'结清\'")
    g.HGroups.AddDef("r306", DateGroupEnum.Year, "年")
    g.HGroups.AddDef("r306", "月")
    g.VGroups.AddDef("r306_2")
    g.Totals.AddDef("r305", "r305")
    g.HorizontalTotal = True
    g.VerticalTotal = True
    g.Filter = "[r304]<>\'结清\'"
    g.Build()
    MainTable = Tables("息费收回情况分析")
End If
CurrentTable.SaveExcel("C:\\1\\testDate.today.xls","息费收回情况分析")

这个代码执行之后可以直接生成《息费收回情况分析》表，上面代码应该写在什么地方比较合适的；还有生产的文件名我想加上当时生成的时间，这个要怎么加上的？谢谢了

1、代码可以放在你beforeCloseProject事件，这样关闭后就会生成；

2、也可以弄一个计划任务，定时执行；

3、加上时间，参考

Tables("息费收回情况分析").SaveExcel("C:\\1\\" & format(date.Now,"yyyyMMddHHmmss") & ".xls","息费收回情况分析")

搭建一个ftp服务器，上传上去

http://www.foxtable.com/webhelp/scr/1403.htm

是这样子吗？这个代码 我试过了 不行的，总是提醒我上传失败？

Dim ftp1 As New FtpClient
ftp1.Host="阿里云外网ip"
ftp1.Account = "administrator"
ftp1.Password = "密码"
If ftp1.Upload("c:\\1","c:\\测试备份") = True Then
    Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
    Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

首先测试能否连接ftp

Dim ftp1 As New FtpClient
ftp1.Host="阿里云外网ip"
ftp1.Account = "administrator"
ftp1.Password = "密码"
ftp1.OpenManager

如果不能连接，先搭建一个ftp

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&replyID=714466&ID=104284&skin=1