VBA如何向函数传递结构体参数
Private Type BOMstruct
BOMname As String
qty As Integer
End Type

Dim objBOM As BOMstruct
Dim iStack() As BOMstruct
Dim TailPointer As Double

Private Sub Push(BOM As BOMstruct)
ReDim Preserve iStack(TailPointer)
iStack(TailPointer) = BOM
TailPointer = TailPointer + 1
End Sub

Sub TEST()
Push(objBOM) 'compile error- variable can't assign to this expression
End Sub

[解决办法]
Push(objBOM)
也许改为
Push objBOM