主题：您好 请问我想定期自动导出做的统计，应该怎么操作？

您好  请问我想定期把所做的统计导出为excel表格，应该怎么操作？

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

 

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","息费收回情况分析")

 

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

您好，现在可以生产带日期的文件名了，如果我想把生成的问价直接生产到阿里云服务器上，需要怎么弄呀？！

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

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，名称叫ftpuser；试了一下可以连接上的，但是电脑上的文件夹上传不上去，文件也上传不上去，您给看一下。
此主题相关图片如下：微信截图_20171031101108.png


此主题相关图片如下：微信截图_20171031101229.png


此主题相关图片如下：微信截图_20171031101244.png

改过了，单个文件可以上传了，但是我这里面的文件都是自动生成的，文件量也大，如果一个个文件上传的话可能会很麻烦，能否直接把整个文件夹上传上去，或者批量上传文件？

好的  谢谢！