如何将今日日期转为yyyymmdd格式文本字符串（禁用=today()公式）

网站不接受含公式的单元格，因此不能用=today()公式写入日期，需要直接生成静态文本格式的YYYYMMDD日期来替代公式。

核心解决方案代码 #

用VBA的Date函数获取当前日期，通过Format函数转换成指定格式的文本后，直接赋值给单元格：

Dim staticDate As String
staticDate = Format(Date, "YYYYMMDD")
Newsh.Range("L2:L" & numcampaigns).Value = staticDate

可选：确保单元格为文本格式 #

如果担心单元格自动识别为日期格式，可先设置单元格为文本格式再赋值：

With Newsh.Range("L2:L" & numcampaigns)
    .NumberFormat = "@" ' 设置单元格格式为文本
    .Value = Format(Date, "YYYYMMDD")
End With

说明 #

• Date函数返回当前系统日期，功能等同于工作表函数TODAY()，但返回的是VBA内部日期值
• Format(Date, "YYYYMMDD")将日期值转换为YYYYMMDD格式的纯文本字符串
• 赋值后单元格内无公式，是静态的文本内容，完全符合网站的上传要求

内容的提问来源于stack exchange，提问作者Casey M