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

nl054685 · 发表于 2024-10-5 20:10

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

ykcbf1100 · 发表于 2024-10-5 20:25

本帖最后由 ykcbf1100 于 2024-10-5 20:40 编辑

工作表合并。。。

ykcbf1100 · 发表于 2024-10-5 20:26

本帖最后由 ykcbf1100 于 2024-10-5 20:40 编辑

工作表合并

nl054685 · 发表于 2024-10-5 20:28

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

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

ykcbf1100 · 发表于 2024-10-5 20:29

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

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

quqiyuan · 发表于 2024-10-5 20:31

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

quqiyuan · 发表于 2024-10-5 20:32

代码如下。。。
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 · 发表于 2024-10-5 20:33

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

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

ykcbf1100 · 发表于 2024-10-5 20:39

改一下吧，复制工作表

ykcbf1100 · 发表于 2024-10-5 20:39

复制工作表

		自动登录	找回密码
密码			免费注册

[求助] 不同工作薄间复制工作表出现问题

评分