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

程序媛小姑娘

于 2020-03-12 15:19:21 发布

阅读量1.7k

点赞数

CC 4.0 BY-SA版权

分类专栏： Python操作Excel 文章标签： excel vba

本文链接：https://blog.youkuaiyun.com/TK_Phoenix/article/details/104819773

Python操作Excel 专栏收录该内容

11 篇文章

订阅专栏

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

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

'找到平台销售模板，并修改模板名称
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