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

taizhoexcelhome

Sub 测()

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

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

End Sub



如果用变量应该怎么修改呢？感谢

taizhoexcelhome

代号要达到的效果：
1、打开一个指定的文件名称：测.xlsx

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

taizhoexcelhome

各位老师，帮忙看一下，万分感谢

abc123281

红色部分是什么？
Workbooks("测试").Worksheets(5).ange("a1:a3") = Workbooks("测").Worksheets(1).ange("a1:a3")

ykcbf1100

你上个附件啊。

洋务德雷

ange("a1:a3")应该是  range("a1:a3")吧。直观上看到这个应该是错误的。

taizhoexcelhome

ykcbf1100 发表于 2023-4-14 14:20
你上个附件啊。

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

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

一掷乾坤

date可以直接这么用吗？没声明变量吧。

taizhoexcelhome

洋务德雷 发表于 2023-4-14 14:49
ange("a1:a3")应该是  range("a1:a3")吧。直观上看到这个应该是错误的。

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

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

taizhoexcelhome

一掷乾坤 发表于 2023-4-14 14:52
date可以直接这么用吗？没声明变量吧。

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

刚接触vba，有些书写方式是不对的，主要想实现以上的目的

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