[已解决]为什么生成路径不一样？

dfadas

Sub 宏1()
    Dim sh As Worksheet
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    For Each sh In Worksheets
        sh.Copy
        ActiveWorkbook.Close True, ThisWorkbook.Path & "\" & sh.Name & ".xlsx"
    Next
End Sub

Sub 宏2()
    Dim sh As Worksheet
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    For Each sh In Worksheets
        sh.Copy
        ActiveWorkbook.Close True, ActiveWorkbook.Path & "\" & sh.Name & ".xlsx"
    Next
End Sub

工作簿在桌面，桌面路径为D:\My Documents\桌面
宏1生成路径为D:\My Documents\桌面
宏2生成路径为D:\

最佳答案

月排行榜 / 总排行榜

zjdh

2014-10-21 08:53

宏2产生的路径是刚复制的工作簿路径，那是没有路径的，用以下语句可以验证：
Sub 宏2()
    ......
    For Each sh In Worksheets
        sh.Copy
        abc = ActiveWorkbook.Path & "\"
        ActiveWorkbook.Close True, ActiveWorkbook.Path & "\" & sh.Name & ".xlsx"
    Next
End Sub

跳转到最佳答案楼层

xdragon

两段代码的区别在于ThisWorkbook与ActiveWorkbook，这两个的区别在于，前者是代码所在工作簿；后者是当前操作的工作簿（活动工作簿）

zjdh

宏2产生的路径是刚复制的工作簿路径，那是没有路径的，用以下语句可以验证：
Sub 宏2()
    ......
    For Each sh In Worksheets
        sh.Copy
        abc = ActiveWorkbook.Path & "\"
        ActiveWorkbook.Close True, ActiveWorkbook.Path & "\" & sh.Name & ".xlsx"
    Next
End Sub