vba - 输入框编译错误

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) 代码时生成编译错误来帮助“强制”您正确声明和引用变量、对象等。