Vba 从每月名称文件复制数据表的宏公式是什么?

Vba 从每月名称文件复制数据表的宏公式是什么?,vba,excel,Vba,Excel,对不起我的英语不是很好,还在宏新手 我能够抓取数据,复制粘贴到其他文件上的其他表格。但问题是这些文件是按月和按年归档的。。因此,我需要每年更改宏观公式 例如: Workbooks.Open Filename:= _ "C:\REPORT\2016\february\STOCK REPORT_JANUARI_*2016*.xls" 有没有什么公式或什么东西,我不需要每次都更改年份?您可以使用年份功能 使用Year(Date)等于当前日期的年份。就今天而言,年(“28/02/2017”)等于201

对不起我的英语不是很好,还在宏新手

我能够抓取数据,复制粘贴到其他文件上的其他表格。但问题是这些文件是按月和按年归档的。。因此,我需要每年更改宏观公式

例如:

Workbooks.Open Filename:= _
"C:\REPORT\2016\february\STOCK REPORT_JANUARI_*2016*.xls"

有没有什么公式或什么东西,我不需要每次都更改年份?

您可以使用
年份
功能

使用
Year(Date)
等于当前日期的年份。就今天而言,
年(“28/02/2017”)
等于2017年

将代码行替换为以下行:

Workbooks.Open Filename:= _
"C:\REPORT\2016\february\STOCK REPORT_JANUARI_*" & Year(Date) & "*.xls"

@A.S.H那太苛刻了,我只是稍微修改了一下,想尽可能多地离开他的帖子:)@A.S.H如果我需要更正,请告诉我正确的答案,英语不是我的主要语言,如果这个问题语法太差,我仍然在学习,非常抱歉LOL@MikoIndra没有冒犯意味着,只是稍微放点好心情:)问题很清楚,这就是为什么你得到了完美的答案;)。我的笑话是写给Shai btwnope的……不起作用…………等等,它起作用了,但我从中删除了*it@MikoIndra你有错误吗?在“调试”中运行时,
Year(“您在这里的任何日期”)
的值是多少?如果文件名为“C:\REPORT\2016\二月\STOCK REPORT\u 1\u 2”&Year(Date)和“.xls”如何……月份如何,因此唯一的更改将仅为日期?调试错误显示文件名……*2017*因此我删除它并仅使用“&Year(date)&”完成。下一个问题是关于月份如何,我必须使用什么函数?@MikoIndra您应该打开一个新帖子,添加更新的编辑代码,问一下你想要实现什么。它将允许其他用户(除了我)帮助您