vba - VBA-编译错误: Expected Function or Variable

Question

首先，我不是程序员。我只是一个试图制作具有“发票”编号的文档的人，该编号在每次打印文档时都会增加。我在网上找到了一个宏代码，但我不断

Compile error

我将附上这张快照的快照，该快照将不断加亮。

我做错什么了吗？

Answer 1

扩展braX's answer ...

这是分配Function或Property Get成员的返回值的语法-即，您正在分配过程的标识符:

Public Function GetTotallyRandomNumber() As Long
    GetTotallyRandomNumber = 4
End Function

似乎您的意思是拥有一个名为 SerialNumber的局部变量，但是VBA已经将此标识符作为名为 Sub的 SerialNumber过程的名称，并且由于 Sub过程不返回任何内容，因此无法合法地分配该标识符。

在非法分配之前，在过程范围内声明一个局部变量:

Dim SerialNumber As String
SerialNumber = System.PrivateProfileString(...)

然后您的代码将起作用...但是，我不建议您使用与过程完全相同的名称。

我的建议是命名局部变量 SerialNumber，并重命名 Sub过程，以便其名称以动词开头。程序做一些事情，它们就是行动:找到一个有意义的名称来描述它的作用，然后再去做。

但是命名很困难-如果找不到描述过程所执行操作的简单名称，则可能是因为它做的事情太多。将其拆分为更小，更集中的过程。

Public Sub PrintActiveDocumentAndAddSerialNumberBookmark()