将“2020扶贫年度救治信息汇总表(增加).xls“中“按人次“表中数据复制到“2020年09月01份.xlsx“中"救治信息"表中报错.
Sub 宏2()
'D:\百度云同步盘\健康扶贫\待处理资料\2020扶贫年度救治信息汇总表(增加).xls
Windows("2020扶贫年度救治信息汇总表(增加).xls").Activate
Sheets("按人次").Select
Range("A1:AC8132").Select
Selection.Copy
'D:\百度云同步盘\健康扶贫\各类名单\2020年名单\2020年09月01份.xlsx
Windows("2020年09月01份.xlsx").Activate
Sheets("救治信息").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("O12").Select
ActiveWindow.SmallScroll Down:=-15
End Sub
Sub 宏2()
'D:\百度云同步盘\健康扶贫\待处理资料\2020扶贫年度救治信息汇总表(增加).xls
Windows("2020扶贫年度救治信息汇总表(增加).xls").Activate
Sheets("按人次").Select
Range("A1:AC8132").Select
Selection.Copy
'D:\百度云同步盘\健康扶贫\各类名单\2020年名单\2020年09月01份.xlsx
Windows("2020年09月01份.xlsx").Activate
Sheets("救治信息").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("O12").Select
ActiveWindow.SmallScroll Down:=-15
End Sub