VBA宏找到一个excel文件复制到另一个excel里

最新推荐文章于 2024-08-16 18:47:01 发布

原创最新推荐文章于 2024-08-16 18:47:01 发布 · 1.7k 阅读

3 ·

CC 4.0 BY-SA版权

文章标签：

#excel #vba

Python操作Excel 专栏收录该内容

11 篇文章

订阅专栏

本文介绍了一种使用VBA批量修改Excel模板名称并更新模板内容的方法，通过代码实现自动删除旧数据、复制粘贴新数据及调整表格结构，提高了工作效率。

'找到平台销售模板，并修改模板名称
platmc = Dir(ipath & "\plat业绩*.xlsx")
platoldname = ipath & "\" & platmc
platnewname = ipath & "\plat业绩" & Format(Date, "yyyymmdd") & ".xlsx"
If platnewname <> "" Then
Name platoldname As platnewname
Else
MsgBox "没有找到plat业绩模板"
Exit Sub
End If

Set platwb = Workbooks.Open(platnewname)
With platwb
.Sheets("业绩").Rows("1:1048576").Delete
platr = ThisWorkbook.Sheets("修订版").Range("BA9")
ThisWorkbook.Sheets("修订版").Range("AT" & platr).CurrentRegion.Copy '复制aliexpress业绩表格
.Sheets("业绩").Range("a1").PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
.Sheets("业绩").Columns("A:AS").Delete Shift:=xlToLeft
.Sheets("业绩").Range("a1:d2").Value = .Sheets("业绩").Range("a1:d2").Value
.Close True
End With