如何在导出Datagrid数据到Excel时运行宏？

目前我已经采用了如下的方式进行将Datagrid中的数据导出到Excel中：

Protected Sub ToExcel_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ToExcel.Click Pro