excel - Excel VBA - 将字符串作为代码执行

Question

我正在尝试使用 Evaluate 将以下字符串作为代码执行，但出现错误 2029。有人知道为什么吗？

非常感谢帮助。

Calculation = "Format(""21/08/2012"", ""MMM"")"
Value = Evaluate(Calculation)

Answer 1

试试吧

Calculation = "TEXT(""21/08/2012"", ""MMM"")"

EVALUATE 将公式转换为结果，FORMAT 是 VBA 函数。等效的公式是 TEXT。

您也可以跳过评估并直接在日期上使用 FORMAT 函数。

Answer 2

您可以直接在 VBA 中使用大多数工作表函数Application.WorksheetFunction.- 例如 - 试试这个：

Sub DateExample()

Dim StringTest As String
StringTest = Application.WorksheetFunction.Text("12/08/2012", "MMM")

Cells(1, 1).Value = StringTest

End Sub

祝你好运