日期显示在msgbox中，但不是用于重命名工作表的变量

Question

我正在尝试使用上周六的日期重命名工作表标签。我可以使用Msgbox正确显示日期。

但是，当我尝试在代码中使用相同的变量时，它会抛出一个＆＃34;编译错误：预期：）＆＃34;。

我知道它正在寻找a）但是我确实尝试过放入每个位置但仍然得到错误。感谢您在帮助解决此问题时的考虑。下面是整个子​​程序。

create table temp_t as
    select *
    from t;

truncate table t;

insert into t(a, b)
    select distinct a, b
    from temp_t tt
    where tt.b = (select max(tt2.b) from temp_t tt2 where tt2.a = tt.a);

Answer 1

错误的行：

ActiveWorkbook.Sheets(2).Name = (UCase(Format(Date, "mmm")) & " Data through " & Format(LastSaturdayDate, "mmm d" & sfx)

有和额外的＆＃34;（＆＃34;在等号前面。它应该是：

ActiveWorkbook.Sheets(2).Name = UCase(Format(Date, "mmm")) & " Data through  " & Format(LastSaturdayDate, "mmm d" & sfx)