不同工作薄间复制工作表出现问题

nl054685

我是小白一个，我想把数据薄里的工作表复制到汇总表里，在本地窗格里逐句运行是可实现，但在sheet1里运行汇总工作表就出错，请大神看下并帮忙修改一下代码。

ykcbf1100

工作表合并。。。

ykcbf1100

工作表合并

nl054685

ykcbf1100 发表于 2024-10-5 20:25
新写一个吧。

不好意思，我没说清楚，我只是复制工作表，不是汇总

ykcbf1100

nl054685 发表于 2024-10-5 20:28
不好意思，我没说清楚，我只是复制工作表，不是汇总

你复制工作表是复制全部工作表还是只复制其中一个工作表？

quqiyuan

参与一下，仅供参考。。。

quqiyuan

代码如下。。。
Sub 汇总1()
    Application.ScreenUpdating = False
    Set wb = ThisWorkbook
    With Application.FileDialog(msoFileDialogOpen)
        .InitialFileName = wb.Path & "\"
        If .Show Then f = .SelectedItems(1) Else Exit Sub
    End With
    With Workbooks.Open(f, 0)
        For i = 1 To .Sheets.Count
            .Sheets(i).Copy after:=wb.Sheets(wb.Sheets.Count)
        Next
        .Close
    End With
    Application.ScreenUpdating = True
    Beep
End Sub

nl054685

quqiyuan 发表于 2024-10-5 20:31
参与一下，仅供参考。。。

非常感谢老师的帮助，就是这个样

ykcbf1100

改一下吧，复制工作表

ykcbf1100

复制工作表