VBA：按美国标准设置日期格式_Vba_Excel_Date

VBA：按美国标准设置日期格式

vba excel date

VBA：按美国标准设置日期格式,vba,excel,date,Vba,Excel,Date,我有一个宏，每天写一封电子邮件。对于电子邮件标题，宏将格式化特定单元格中的日期输入，如下所示： Period = ThisWorkbook.Sheets("aux").Cells(2, 1) MsgBCC = "" MsgFrom = "----Specific email address here----" MsgSub = "Daily Update (" & Format(Period, "

我有一个宏，每天写一封电子邮件。对于电子邮件标题，宏将格式化特定单元格中的日期输入，如下所示：

Period = ThisWorkbook.Sheets("aux").Cells(2, 1)
MsgBCC = ""
MsgFrom = "----Specific email address here----"
MsgSub = "Daily Update  (" & Format(Period, "dd/mmm") & ")"
Msg = "<html><body><font color=#303030 size=""3"" face=""Trebuchet MS"">"

Period=ThisWorkbook.Sheets（“辅助”）单元格（2,1）
MsgBCC=“”
MsgFrom=“----此处的特定电子邮件地址--”
MsgSub=“每日更新”（&Format（Period，“dd/mmm”）&
Msg=“”

问题是：我想更改日期的格式，以便它以英语显示月份名称（这不是我计算机的默认语言）。我希望日期是“dd/mm”格式，比如2月10日的“10/Feb”

我可以使用工作表中的“自定义”格式将日期格式更改为英语。我想要的格式的“坐标”是

[$-409]mmm/aa@。它们是Excel生成的，如下所示：
Period = ThisWorkbook.Sheets("aux").Cells(2, 1)
MsgBCC = ""
MsgFrom = "----Specific email address here----"
MsgSub = "Daily Update  (" & Format(Period, "dd/mmm") & ")"
Msg = "<html><body><font color=#303030 size=""3"" face=""Trebuchet MS"">"


但是，当我尝试在VBAformat
函数中使用此格式时，日期输出不会更改
我能改变日期格式吗
Application.Text(date(),"[$-40e]dddd") 

参考资料：

Application.Text（date（），“[$-40e]dddddd”）是从尼斯一号偷来的，伙计！我认为您还需要Period.Value
或Period.Text
，因为您试图格式化范围
对象，而实际需要的是它的值！所以格式（Period.Value，“dd/mm”）
@dougats您应该将其作为答案而不是评论发布。@MBBertolucci根据请求作为答案发布