高手请进！

taizhoexcelhome · 发表于 2023-4-14 13:05

本帖最后由 taizhoexcelhome 于 2023-4-14 15:15 编辑

Sub 测()

Workbooks.Open ("d:\测.xlsx")
Workbooks("测试").Worksheets(5).ange("a1:a3") = Workbooks("测").Worksheets(1).ange("a1:a3")
Application.ActiveWorkbooks "测"
Application.Workbook.SaveAs "d:\测已经打开" & Date().xlsx

Workbooks("测已经打开" & Date().xlsx).Close

End Sub

代号要达到的效果：
1、打开一个指定的文件名称：测.xlsx
2、把“”测“”文件中一些资料复制等操作到“”测试.xlsl“”文件中后
3、把“”测。xlsx“”文件名称修改成“”测已经打开&当天的时间。xlsx“”
4、把“”测已经打开&当天的时间。xlsx“” 关闭

因为刚接触vba，所以对于代码不是很熟悉，如果用变量应该怎么修改呢？感谢

ykcbf1100 · 发表于 2023-4-14 15:07

告诉你了，上个附件，也许问题早解决了。
算了，我不是高手，我就一打酱油的。

taizhoexcelhome · 发表于 2023-4-14 15:13

ykcbf1100 发表于 2023-4-14 15:07
告诉你了，上个附件，也许问题早解决了。
算了，我不是高手，我就一打酱油的。

老师，附件请查收，感谢！

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

[求助] 高手请进！