VBA基础课程实例代码-赋能增效

Sub SplitWk(control As IRibbonControl) '将工作簿的每一个工作表存为单独的工作簿 '定义变量 Dim sht, sht2 As Worksheet Dim wk As Workbook Dim path, wkpath As String Application.DisplayAlerts = False '关