主题：保存为EXCEL

 自己做一个保存按钮

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
dlg.FileName = CurrentTable.Name & Format(Date.Now, "yyyyMMdd") & ".xls"
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
     CurrentTable.SaveExcel(dlg.FileName, CurrentTable.Name)  '保存文件
End If