这个代码有什么问题，感谢大家！

taizhoexcelhome

abc123281 发表于 2023-4-14 13:25
红色部分是什么？
Workbooks("测试").Worksheets(5).ange("a1:a3") = Workbooks("测").Worksheets(1).ange ...

abc123281  老师，您好
红色ange是range，写错了
此问题主要是想实现以下功能（打开-保存-关闭）：
1、当前打开操作的工作薄“测试.xlsm”运行程序
2、自动打开d盘下面的“新建文件.xlsx”工作薄
3、把“新建文件.xlsx”工作薄中一些内容拷贝等操作到“测试.xlsm”工作薄后
4、把“新建文件.xlsx”工作薄保存到相同文件夹中名称为“已经打开过2023年4月14日.xlsx”工作薄（保存的工作薄名称中的时间是自动匹配系统的时间）
5、这样保存后，文件夹中不存在“新建文件.xlsx”工作薄
6、关掉“已经打开过2023年4月14日.xlsx”工作薄

感谢您的关注和帮助！！！

taizhoexcelhome

审核太慢了，帖子都凉凉了

taizhoexcelhome

各位高手，帮忙看看，这个代码应该怎么修改，感谢感谢

一掷乾坤

Sub 测222()
Dim  b As String, c As Date
Workbooks.Open ("d:\测.xlsx")
Workbooks("测").Worksheets(1).Range("a1:a3").Copy Workbooks("测试").Worksheets(5).Range("a1:a3")
Application.Workbooks("测").Close savechanges:=False
c = Date
b = Application.WorksheetFunction.Text(c, "yyyy年mm月dd日")
Name ("d:\测.xlsx") As ( "d:\测已经打开" & b & ".xlsx")
End Sub