输入框编译错误

Question

当有人使用此宏时，我一直在尝试获取文件名的名称。但由于某种原因，每次我运行宏时都会出现错误： 编译错误： 参数数量错误或属性分配无效

我查看了大量视频和其他回复，但没有一个可以帮助我处理这个错误。

Sub inputbox()
Dim x As Variant
x = inputbox("Please enter your file name:", "File name")    
MsgBox ("Your file name is" & x) 
End Sub

Answer 1

这是您的程序，已更正：（复制并粘贴到新模块中。）

Option Explicit

Sub MyInputBoxTest()
    Dim x As Variant
    x = inputbox("Please enter your file name:", "File name")
    MsgBox ("Your file name is " & x)
End Sub

---

说明：

• 变体拼写错误。请注意，由于Variant 是默认数据类型，因此您实际上不需要指定它。 Dim x 与 Dim x as Variant 相同。

• 您不能使用像 InputBox 或 MsgBox 这样的名称作为过程的名称。它们是保留字 -- 已被 VBA 内置的另一个过程使用，因此编译器会混淆，因为它不知道您指的是哪个。

• 在 is 之后添加了一个空格。 （纯化妆品）

MsgBox 和 InputBox 等函数的调用方式可以不同，具体取决于是否使用括号以及是否需要返回值。

InputBox "Hi"
InputBox ("Hi")

...其中任何一个都可以正常运行（但不会返回用户输入的内容。）

Dim x
x = InputBox ("Hi")

...将值返回给变量x，但是：

x = InputBox "Hi"

...会抛出错误。

---

强烈建议，尤其是在学习时，将 Option Explicit 行添加到每个模块的最顶部。这将通过在您尝试编译 (F9) 或运行 (F5) 代码时生成编译错误来帮助“强制”您正确声明和引用变量、对象等。