保存名为数据日期的新电子表格

Question

我想保存一个我从互联网上下载的文件，其中包含数据来自文件名的月份名称。我遇到的问题是我不能得到这个月。我在VBA中以mm / dd / yyy格式获取整个日期。工作表中的日期采用mm / dd / yyy h：mm格式。我想将此转换为该月，所以我将月份放在文件名中并保存。 VBA将其视为mm / dd / yyy，因此无法将其添加到文件名中。

感谢您的帮助！

Answer 1

鉴于Range("A1")包含您想要获得月份的日期，请写下：

Dim myDate as String
myDate = Format(Range("A1"),"mmmm"))

Answer 2

以今天为例，

Dim myDate as String
' if you want to get November 
myDate = monthname(month(date))  
'or 
myDate = Format(date,"mmmm")

'if you want to get 11
myDate = month(date) 

'if you want to get Nov
myDate = Format(date, "mmm")
' or LEFT the November to 3 characters