恳请大神们帮忙看下这个代码要咋改成不用指定工作表名称

qiongmei6

Set Fso = CreateObject("scripting.filesystemobject")
    Application.ScreenUpdating = False
    Set sh = ThisWorkbook.Sheets("工资汇总")
    p = ThisWorkbook.Path & "\"
    ReDim brr(1 To 10000, 1 To 30)
    On Error Resume Next
    For Each f In Fso.GetFolder(p).Files
        If f.Name Like "*.xls*" Then
            If InStr(f.Name, ThisWorkbook.Name) = 0 Then
                fn = Fso.GetBaseName(f)
                Set wb = Workbooks.Open(f, 0)
                With wb.Sheets("录入")
                    arr = .UsedRange
                    wb.Close False
                End With
                For i = 5 To UBound(arr)
                    If arr(i, 2) <> Empty Then
                        m = m + 1
                        brr(m, 1) = m
                        For j = 2 To UBound(arr, 2)
                            brr(m, j) = arr(i, j)
                        Next
                    End If
                Next
            End If
        End If
    Next f
    With sh
        .UsedRange.Offset(2) = ""
        .[a3].Resize(m, 26) = brr
    End With
    Application.ScreenUpdating = True
    MsgBox "OK！"
，这段代码是ykcbf1100大神提供的，主要的功能是帮助我从多张工作簿汇总内容到一个表格内，但是我想这个代码改成可以在任何工作表内执行，而不是限定在“工资汇总”内执行，我觉得应该是修改 Set Sh = ThisWorkbook.Sheets("工资汇总")，改成在当前的工作表执行，可是本人是菜鸟，改了半天，都不成功，恳请大师们帮忙看下，再次谢谢各位大神的帮忙

gwjkkkkk

1. Set sh = ActiveSheet

复制代码

这样试试

鄂龙蒙

'    With sh
    With ActiveSheet   '此处改为当前工作表
        .UsedRange.Offset(2) = ""
        .[a3].Resize(m, 26) = brr
    End With

鄂龙蒙

汇总.rar (344.62 KB, 下载次数: 3)

2024-2-11 08:01 上传

点击文件名下载附件

ykcbf1100

2楼正解。。。