小发现 回头看

原因为何等后续深入学习再来看看

 

worksheets.Add(before:=worksheets("sheet5"))  正确的应为不加红色括号，如果加会报错“缺少：=”

 

set wws=worksheets.Add(before:=worksheets("sheet5"))    这边  如果不加红色括号会报错“缺少语句结束”

wws.name="嘿嘿嘿"

 

同理：

fname=“D:\Desktop\VBA练手代码\课件\基础篇练习\19-工作簿汇总\19-工作簿汇总\月报汇总\6月.xlsx”

Workbooks.Open Filename:=fname, ReadOnly:=True

 

Set wbo = Workbooks.Open(Filename:=fname)
'wbo.SaveAs Filename:="luanlai"