老师们，求个工作薄之间移动复制工作表的代码

EMINE · 发表于 2024-9-23 11:40

老师们，求个工作薄之间移动复制工作表的代码

例如：将已打开的工作薄“每日统计数据.xlsm”内的某张工作表或某几张工作表复制到已存在的“D:\工作数据”目录下的“日报表汇总.xlsx”工作薄内，“日报表汇总.xlsx”该表内原来的工作表保留；谢谢各位老师了

ykcbf1100 · 发表于 2024-9-23 11:48

求助先上附件。

饮冰e士 · 发表于 2024-9-23 12:16

代码在文件1

EMINE · 发表于 2024-9-23 12:34

饮冰e士发表于 2024-9-23 12:16
代码在文件1

谢谢！太感谢了

wengjl · 发表于 2024-9-23 12:36

   bmc="你的工作表"
   For i = 1 To Worksheets.Count          ' 按工作表数量循环
      If Worksheets(i).Name = bmc Then    ' 通过循环判断，来完成指定表名是否存在的查找
      Worksheets(i).Delete                ' 删除表
      Exit For
      End If
   Next i
   Sheets.Add.Name = bmc                               ' 增加表，并起名为 BMC 变量中的值
   Sheets(bmc).Move after:=Sheets(Sheets.Count) ' 将刚新增的表移动到最右侧

EMINE · 发表于 2024-9-23 13:24

ykcbf1100 发表于 2024-9-23 11:48
求助先上附件。

公司办公电脑，所有可编辑的文件都加密处理了，上传上来各位老师打不开文件的。所以就没上传文件。

limonet · 发表于 2024-9-23 13:54

insert into

EMINE · 发表于 2024-9-23 14:34

本帖最后由 EMINE 于 2024-9-23 15:34 编辑

饮冰e士发表于 2024-9-23 12:16
代码在文件1

老师，您好！再帮我优化一下代码，谢谢！
怎么一次将多张sheet复制到目标工作薄内？
如下图：我想一次将“文件1.xlsm”内的多张或者全部sheeet移动到“文件2.xlsx”

Sub 复制PR表到PR总表()
Dim path$, file$, n%, i%
Dim wk As Workbook
   path = "F:\数据汇总\PR汇总"
   file = path & "\文件2.xlsx"
   Set wk = Workbooks.Open(file)
   n = wk.Worksheets.Count
   i = Val(Sheet1.[D2])
   ThisWorkbook.Sheets(i).Copy after:=wk.Sheets(n)
   'wk.Sheets(n + 1).Name = "新 " & Format(Date, "mmdd")
   ActiveWorkbook.Close Savechanges:=True
End Sub

EMINE · 发表于 2024-9-23 14:35

wengjl 发表于 2024-9-23 12:36
bmc="你的工作表"
For i = 1 To Worksheets.Count ' 按工作表数量循环
If ...

谢谢！我消化一下代码

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

[求助] 老师们，求个工作薄之间移动复制工作表的代码