看到spreadsheet控件上有按钮可以直接将内容导出到excel，是否有对应的脚本实现这样的功能？

需求是保存数据，要按时间以小时为单位备份成xls文件。数据来源于wincc当前数据库。数据查询已能实现，可以将每小时的数据显示在spreadsheet控件中，接下来怎么把这些数据导出呢？

网上搜到一段VBA的脚本：

q1.Spreadsheet1.Range("A1:IV65536").Select '选中Spreadsheet1中的全部
q1.Spreadsheet1.Selection.Copy '拷贝
Application.CutCopyMode = False '禁止自身复制粘贴
q1.Hide '隐藏窗体
Workbooks.Add '在EXCEL中新增一个空白EXCEL文档
ActiveSheet.Paste '粘贴刚才拷贝的内容

fna = InputBox("请给出需要保存的文件名称：(扩展名不用输入)")
ActiveWorkbook.SaveAs Filename:=fna &".xls"


试验不成功。。。上面这段VBA脚本的思路对么？或者还有其他方法满足需求么？
新手，望高人指点