Function GetExportInfo()
Dim xl As excel.Workbooks
Set xl = excel.Workbooks
xl.Open ("路径")
xl.Application.Run ("文件名!宏名")
excel.Application.Visible = True
End Function
Function GetExportInfo()
Dim xl As excel.Workbooks
Set xl = excel.Workbooks
xl.Open ("路径")
xl.Application.Run ("文件名!宏名")
excel.Application.Visible = True
End Function