以下代码不能加载宏如何解决。

活在理想的世界

1. Sub 合并工作簿()
   
2. Dim 文件名, 路径 As String
   
3. Dim WB As Workbook
   
4. Dim SHT As Worksheet
   
5. Dim I As Integer
   
6. 路径 = InputBox("请输入路径")
   
7. If 路径 = "" Or IsNumeric(路径) = True Then
   
8.     Exit Sub
   
9. End If
   
10. 文件名 = Dir(路径 & "" & "*.xls*")
    
11. For I = 1 To 1000
    
12.     Set WB = Workbooks.Open(路径 & "" & 文件名) '打开工作簿
    
13.     '导入工作簿
    
14.     For Each SHT In WB.Sheets
    
15.         SHT.Copy AFTER:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
    
16.         ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Name = SHT.Name
    
17.     Next
    
18.     WB.Close '关闭工作簿
    
19.     文件名 = Dir
    
20.     If 文件名 = "" Then
    
21.         Exit For
    
22.     End If
    
23. Next
    
24. Sheet1.Select
    
25. End Sub

复制代码

上面的代码在工作簿里运行没问题，但加载宏后就出错。

原因是.xlam文件和当前工作簿都有一个THISWORKBOOK，请问如何解决？

十分感谢。

huang1314wei

activeworkbook

活在理想的世界

huang1314wei 发表于 2017-2-5 12:39
activeworkbook

我试过了，也不行

huang1314wei

活在理想的世界 发表于 2017-2-5 12:40
我试过了，也不行

Workbooks.Open  改成  getobject
然后 thisworkbook改成  activeworkbook

活在理想的世界

Sub 合并工作簿()
Dim 文件名, 路径 As String
Dim WB As Workbook
Dim SHT As Worksheet
Dim I As Integer
路径 = InputBox("请输入路径")
If 路径 = "" Or IsNumeric(路径) = True Then
    Exit Sub
End If
文件名 = Dir(路径 & "*.xls*")
For I = 1 To 1000
    Set WB = getobject(路径 & 文件名) '打开工作簿
    '导入工作簿
    For Each SHT In WB.Sheets
        SHT.Copy AFTER:=activeworkbook.Sheets(activeworkbook.Sheets.Count)
        activeworkbook.Sheets(activeworkbook.Sheets.Count).Name = Split(WB.Name, ".")(0) & SHT.Name
    Next
    WB.Close '关闭工作簿
    文件名 = Dir
    If 文件名 = "" Then
        Exit For
    End If
Next
Sheet1.Select
End Sub

活在理想的世界

huang1314wei 发表于 2017-2-5 13:17
Workbooks.Open  改成  getobject
然后 thisworkbook改成  activeworkbook

求老师再想想办法，麻烦老师了。。。。

huang1314wei

活在理想的世界 发表于 2017-2-5 13:52
求老师再想想办法，麻烦老师了。。。。

你问题都没有说，不知道你遇到什么问题

活在理想的世界

这问题我自己解决了，定义一个一个变量等于ACTIVEWORKBOOK.NAME就可以了。