vba求助-想实现打开指定名字的文件夹复制内容

Tmxu · 发表于 2024-4-23 10:56

各位大神

路过帮忙看下问题出在那里：
可以打开，可以时间复制，但是到了粘贴这一步就死了。

Sub 打开询价文件()
Dim ming As String
ming = Range("S1")
Workbooks.Open Filename:="C:\Users\A\Downloads\" & ming & "报价模板.xlsx", AddtoMru:=True
Workbooks(ming & "报价模板").Sheets("导入模板").Select
Sheets("导入模板").Cells.Select
Sheets("导入模板").Cells.Copy
Workbooks("智能报价单模板-上次更新2024-04-07 -加载版").Sheets("原数据参照表").Select
Workbooks("智能报价单模板-上次更新2024-04-07 -加载版").Sheets("原数据参照表").Range("A1").Select
Workbooks("智能报价单模板-上次更新2024-04-07 -加载版").Sheets("原数据参照表").Range("A1").Paste
Application.CutCopyMode = False

End Sub

沈默00 · 发表于 2024-4-23 13:57

录制宏的吗，太多无用代码，

沈默00 · 发表于 2024-4-23 13:59

没附件，猜一下
Sheets("导入模板").Cells.Copy ThisWorkbook.Sheets("原数据参照表").Range("A1")

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

[求助] vba求助-想实现打开指定名字的文件夹复制内容