Arrays 从userform到模块的公共数组为空，但在userform内部它获取值

我遇到了一个奇怪的问题。我有2个

Userform

，起初

Userform2

在

Userform1

中，但我无法运行它。在那之后，我在我的模块调用

Userform2

中做了一个Sub，在另一次

Userform1

完成之后

问题在于

Userform2

是一个多选

列表框

，我将每个选择保存在一个数组中，当Userform2卸载时，数组似乎是空的

我检查了几个小时的错误，比如：我没有显式的选项，但是代码很短，我在代码中查找了数组，它只出现在我想要的部分

作为变量的公共数组都不是问题，因为它在Userform之外并且在原始模块中

我来自智利，所以一些变量的名称是西班牙语，我的英语可能不太好，我会尽我所能解释我自己

代码如下：

 Global lenarrv
 Global Arrver
 Global BoxPMData
 Global anno
 Global PMDATAarray
 Global LenPMDArray
 Public varfamilia As Variant
 Public pampm As Variant



  Sub AbrirMaestro(ByVal anno As Variant)
  Application.ScreenUpdating = False



  UserForm1.Show
  UserForm2.Show

  Dim Arrver() As Variant
  Dim lenarrv As Long

  contentosrcontento = 1
  lenarrv = UBound(pampm)
  For tt = 0 To lenarrv - 1
     ReDim Arrver(contentosrcontento)
     Arrver(contentosrcontento) = pampm(tt)
     contentosrcontento = contentosrcontento + 1
  Next tt

  lenarrv = UBound(Arrver)

  Inputbox_PMDATA anno
  End Sub

下面是用户表单：

 Private Sub UserForm_Activate()
     Me.StartUpPosition = 1
     Me.Left = Application.Left + Application.Width - Me.Width - 400
 End Sub

 Private Sub UserForm_Initialize()
 Dim listaitems As Variant
 Workbooks("MAESTROS.xlsx").Activate
 numerofilas = Workbooks("MAESTROS.xlsx").Sheets("VERTICALES").Cells(2, 1).End(xlDown).Row
 listaitems = Workbooks("MAESTROS.xlsx").Sheets("VERTICALES").Range("A2:A" & numerofilas)

 listaitems = Application.WorksheetFunction.Transpose(listaitems)

     For h = 1 To numerofilas - 1
         ListBox1.AddItem listaitems(h)
     Next h
 Workbooks("MAESTROS.xlsx").Close False

 End Sub


 Public Sub CommandButton1_Click()

 Dim i As Integer
 Dim count As Integer



 count = 1
 For i = 0 To ListBox1.ListCount - 1
     If ListBox1.Selected(i) = True Then
             ReDim pampm(count)
             pampm(i) = ListBox1.List(i)
             count = count + 1
     End If
 Next i


 Unload UserForm2

 End Sub

以下是

UserForm1

：

 Private Sub UserForm_Activate()
     Me.StartUpPosition = 1
     Me.Left = Application.Left + Application.Width - Me.Width - 400
 End Sub
 Private Sub UserForm_Initialize()
 Dim ListItems As Variant
 MsgBox ("Elegir el archivo MAESTRO")
 Master = Application.GetOpenFilename(MultiSelect:=False)

 isBool = VarType(Master) = vbBoolean
 If isBool Then If Not Master Then End

 Application.ScreenUpdating = False

 Set abrirlibro = Workbooks.Open(Master)
 numrows = abrirlibro.Worksheets("MASTERFAMILIA").Cells(2, 2).End(xlDown).Row
 ListItems = abrirlibro.Worksheets("MASTERFAMILIA").Range("B2:B" & numrows)

 ListItems = Application.WorksheetFunction.Transpose(ListItems)
         For i = 1 To numrows - 1
             ComboBox1.AddItem ListItems(i) ' populate the listbox
         Next i
 'abrirlibro.Close False
 'Set abrirlibro = Nothing
 End Sub

 Public Sub CommandButton1_Click()

 varfamilia = ComboBox1.value
 Unload UserForm1

 End Sub

我无法通过完整代码，因为有超过2k行

欢迎任何帮助

你好

你必须改变

Public pampm As Variant

到

及

到

---

我已经试过了，但遗憾的是，即使我在

pamp（count）

之后添加

变量，我也会得到错误“Type mismatch（error 13）”！谢谢你，天哪，我太天真了
Public pampm() As Variant

ReDim pampm(count)

ReDim Preserve pampm(count)