格式函数在任务调度的VBA中导致未定义的变量错误

Question

我是论坛的新手，但我是该网站的活跃搜索者和读者，用于编码解决方案。

我附上一些代码，这些代码是我已安排的任务的一部分，它将打开一个文件，刷新数据（删除行），并用时间戳保存。

 Option Explicit
Dim Xlapp, Xlbook,wbnam,ext,dt
Set Xlapp = CreateObject("Excel.Application")
xlapp.visible = TRUE
Set XlBook = xlapp.Workbooks.Open("C:\Users\newtonm\Box Sync\Matthew.Newton\Campaign Deliverables\Donor Dev\Weekly 10k\WklyTest.xlsx")
wbnam = "C:\Users\newtonm\Box Sync\Matthew.Newton\Campaign Deliverables\Donor Dev\weekly 10k\wklytest"
dt = format(date,"yyyy_mm_dd")
ext = ".xlsx"
xlbook.SavecopyAs wbnam&dt&ext
xlbook.Close false
xlapp.quit
set xlbook = Nothing
set xlapp = Nothing

当我执行代码时 - 我收到以下错误。

我假设有两件事情中的一件正在发生 1）格式函数的语法是错误的。 2）为DT创建Dim缺少了一些东西。

任何有关这方面的帮助都会很有帮助，因为我一直在转动轮子。