↑ia独╯
加载宏做成快捷建后代码就没办法运行了，哪位:)能帮忙看看什么原因↑ia独╯
代码应该是没用问题的，单独复制出来是能运行的
就随便建了一个新表?数组 要不要把代码发给你试试？ ↑ia独╯
Sub wjhb()
Dim str As String
Dim wb As Workbook
Dim sht As Worksheet
str = Dir("d:\data\*.xls*")
For i = 1 To 100
Set wb = Workbooks.Open("d:\data\" & str)
For Each sht In wb.Sheets
sht.Copy after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Name = Split(wb.Name, ".")(0) & sht.Name
Next
wb.Close
str = Dir
If str = "" Then
Exit For
End If
Next
End Sub运行没问题，就是做成加载宏后就不行了
��愶滘� �庆重
这个王老师讲了 用thisworkbook 不能做成加载宏
?╯独ai↑
��愶滘� �庆重
有一个逻辑问题不对 具体你可以再看看老师怎么说的
爱热享分
thisworkbook 不能放在sub里面吗
��愶滘� �庆重
可以 这样用没问题 但是不能用在加载宏里
不具有通用性
爱热享分
我之前碰到 sheets(1).copy after。。。就运行不了
加载宏做成快捷建后代码就没办法运行了，哪位:)能帮忙看看什么原因
