Has declarado la variable firstdayofweek
que estás pasando como parámetro? Le has asignado valor?
Ese parámetro determina el primer día de la semana (en algunos países la semana empieza el domingo en vez del lunes).
Asegúrate de que ese parámetro contiene un valor correcto (consulta la documentación de la función WeekdayName
para ver cómo son los parámetros que pide). En la documentación se ve claramente que firstdayofweek es opcional, así que no hace falta pasar el tercer parámetro, así:
ActiveSheet.Name = WeekdayName(Weekday(strDate), True) + " " + strDate
Usándola así, firstdayofweek
= 0 por defecto. Entonces coge el primer día de la semana de la configuración del sistema.
Si quieres especificar el primer día de la semana, el tercer parámetro tiene que tener el valor numérico del día de la semana deseado (domingo->1, lunes->2, etc.). Así:
ActiveSheet.Name = WeekdayName(Weekday(strDate), True, 2) + " " + strDate
Por supuesto, puedes pasar una variable con el valor numérico en vez de meterlo a piñón fijo.
Puede que devolviera siempre "Sat" porque, si ese parámetro es null
(es decir, variable sin declarar o con valor null
), alguna función usada internamente en WeekdayName
podría estar devolviendo -1
(a veces las funciones hacen eso para avisar de que algo ha salido mal). Si ese fuese el caso, talvez la función no está capturando ese error y sigue adelante con sus operaciones internas (lo cual, si Domingo == 0, podría ser interpretado como sábado).