数组中的字符串未显示为已输入

Question

所以我想创建一个简单的字符串，代码非常简单

Sub Macro1()

Dim yr As Variant
Dim site As Variant
  yr = Array("2013", "2014")
  site = Array("SHR", "SHW", "SHH")
  q = 0
  a = 0

  Range("D3").Formula = "\\shared\Export\STA30\" & site(q) & "\" & Year(a) & "\XL\"

End Sub

非常基本，它可以工作，但输出是：

\\shared\Export\STA30\SHR\1899\XL\

我假设我的Excel设置发生了什么变化？我过去使用过像这样的数组，从未遇到过这个问题。有谁知道为什么会发生这种情况？

Answer 1

您必须使用年（a）而不是年（a）。 Year（int）将转换后的int返回到year。

Answer 2

您已将数组声明为yr，并且在输出字符串中打印时使用的是年份（a）。

只需将年份（a）更改为年（a）即可获得所需的输出。