excel获取当前日期vba代码写入某表格

Sub GetCurrentDate() '获取当前日期 Dim currentDate As Date currentDate = Date

'将日期写入指定单元格
Sheet1.Range("A1").Value = currentDate

End Sub

注：将Sheet1替换成你要写入日期的工作表名称，将A1替换成你要写入日期的单元格地址。