各位高手能帮忙看下为啥这个代码不起作用

qiongmei6

在标准工作簿中里有个高手提供了一个保存的代码，就是当他执行的时候，他会自动将同一个文件夹内的其他文件运行保存，但是现在出现的问题是：book工作簿中thisworkbook这里我设置了一个数据提取的代码，只要保存表格，这个代码就会自动运行，但是我使用标准工作簿中这个自动保存的代码，在book工作簿中他就不会自动运行数据提取的代码（book工作簿中录入表格中的w：x列如果打开后使用手动保存，录入表格内的w：x列出现在水果表格内的w：x列，但是用“标准工作簿中”使用这个同一文件夹内所有文件自动保存的代码就不能使之book工作簿中录入表格内的w：x列出现在水果表格内的w：x列），恳请高手帮忙看下，谢谢高手的帮忙

3190496160

目前提取数据这段代码中，不要说，对工作簿的限制，连对工作表的限制都没有，当有其他文件处于打开状态并处于激活状态时，代码就默认是活动工作簿了，

3190496160

Sub 提取数据()
Dim iRow&, iCol&, tRng As Range
Dim ww As Workbook
Dim sh As Worksheet
Set ww = ThisWorkbook
Set sh = ww.Worksheets(1)
Set Sht = ww.Worksheets(2)
iRow = sh.Cells(Rows.Count, 2).End(xlUp).Row
arr = sh.Range("a1:y" & iRow)
For i = 6 To UBound(arr)
    If arr(i, 13) = "水果" Then
      If Not tRng Is Nothing Then
        Set tRng = Union(tRng, sh.Range(sh.Cells(i, 2), sh.Cells(i, UBound(arr, 2))))
      Else
         Set tRng = Range(sh.Cells(i, 2), sh.Cells(i, UBound(arr, 2)))
      End If
    End If
Next i
If tRng Is Nothing Then
    sh.Cells(6, 2).Select
    MsgBox "没发现水果！", 48
Else
    tRng.Copy Sht.[b6]
    MsgBox "完成", 64
End If
Sht.Activate
End Sub

3190496160

qiongmei6

3190496160 发表于 2023-4-29 10:51
Sub 提取数据()
Dim iRow&, iCol&, tRng As Range
Dim ww As Workbook

谢谢3190496160 师傅，但是这个代码在启动标准工作簿让他用里头的程序运行同一个文件夹内的其他文件中这个提取数据的代码，一样是不能将录入表格内w：x列的数据保存到水果表格内的w：x列，能否帮我再看看吗，再次谢谢您的帮忙。