1. Public Sub ButtunClick(sender As Object,e As SpreadsheetGear.Windows.Forms.ShapeActionEventArgs)
   
2. AW.WorkbookSet.GetLock()
   
3. if e.shape.name="Button 1" then
   
4. CF.Text = "#打印"
   
5. Dim XHTimer As DispatcherTimer = New DispatcherTimer
   
6. XHTimer.Interval = New TimeSpan(0, 0, 0, 1, 0)
   
7. AddHandler XHTimer.Tick, Sub(s1, e1)
   
8. ActiveWorkbook.WorkbookSet.GetLock()
   
9. CF.Text = "#保存并新增"
   
10. ActiveWorkbook.WorkbookSet.ReleaseLock()
    
11. XHTimer.Stop()
    
12. End Sub
    
13. XHTimer.Start()
    
14. 
    
15. End if
    
16. AW.WorkbookSet.ReleaseLock()
    
17. End Sub'按钮/标签点击事件

复制代码

谢谢老板，这问题终于解决了！！！！！

这问题终于解决了！！！！！

vba怎么触发导出按钮，把指定的多个sheet批量导出为excel? 谢谢

学习中，谢谢分享！！！！！！

谢谢老板，这问题终于解决了！！！！！

这问题终于解决了！！！！！

vba怎么触发导出按钮，把指定的多个sheet批量导出为excel? 谢谢

学习中，谢谢分享！！！！！！