VBA简单的公共子调用公共函数

Question

我希望使这个简单的函数存在，只调用另一个函数(它简化了我的代码过程)。它给了我错误信息：

编译错误： 参数不是可选的

下面是代码(我已经做了大约2-3周的工作)：

Public Sub Function32or16Bit()
Call Function4_ArrangeData1
End Sub

Function4_ArrangeData1的第一行：

Public Sub Function4_ArrangeData1(ByRef pathAndFileName As String)

Dim sourceBook As Workbook
Dim isCellValueNull As Boolean
Dim DataRange As Variant
On Error GoTo ErrorHandler

DataRange = Range(A1, Z200)

Answer 1

您的Function4_ArrangeData1子程序要求传入一个字符串。

更改您的调用，以包含路径和文件名，或者作为文字"C:\Temp\Temp.tmp“或字符串变量。

或者通过在ByRef前面键入可选项使参数可选。

或从公共子Function4_ArrangeData1()中删除参数