主题：[求助]关于一次批量导出多个EXCEL报表需求

Dim r As Row = Tables("表A").rows(3) '第四行

Dim wjm As String = r("客户") & date.today.month & r("序列") & ".xls"

msgbox(wjm)

导出人员是 user.name 或者 _UserName

导出时间是 date.now

导出次数，在原来的记录上加1即可