vba excel：在从模板创建的分离工作簿中使用动态数组

Question

我从我的数据库中获取了一些信息，在用户表单的列表框中显示它们，并在名为lsarr（）的数组中填充它们，这些数组包含动态行和静态列。现在我想在报表工作簿中使用此数组，该工作簿在报表文件夹中单独保存。首先，通过动态行数组准备模板，然后按特定名称将报告保存为新工作簿。一切正常，直到lsarr（）想要复制到导出工作簿中的范围。当我打电话给lsarr（）时，我收到一条消息

子或函数未定义

代码如下：

Private Sub cusbas_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
...............
...............
lsarr = soldtable.List
...............
...............
end sub

这很好用

Private Sub sales2templ_Click()

    Dim outpath As String
    Dim curdate As String
    Dim repno As String
    Dim xl3 As Object
    Dim twb2, wb3 As Workbook
    Dim i, j, k As Integer

    Set xl3 = CreateObject("Excel.Application")
    xl3.Visible = True
    xl3.Workbooks.Open ActiveWorkbook.Path & "\Templates\Report-Sales.xltx"
    Set twb2 = xl3.ActiveWorkbook
    twb2.Sheets("Sales-Report").Activate
    twb2.Worksheets("Sales-Report").Range("C1").value = custlbl

        If totalinvpercust > 2 Then
                For i = 1 To totalinvpercust - 2
                    twb2.Sheets("Sales-Report").Range("A7:G7").EntireRow.Offset(1, 0).Insert
                Next i

                    For j = 1 To totalinvpercust
                    twb2.Sheets("Sales-Report").Range("A" & j + 6).value = j
                Next j

                For k = 0 To totalinvpercust - 1
                twb2.Sheets("Sales-Report").Range("B" & j + 7).value = lsarr(0, k)

                Next k

        Else
            twb2.Sheets("Sales-Report").Range("A7").value = 1
            twb2.Sheets("Sales-Report").Range("A8").value = 2
        End If

    'On Error Resume Next
    repno = frm_salesrev.cusbas.Text
    curdate = Format(Now(), "yyyymmddHhNnSs")
    outpath = ActiveWorkbook.Path & "\Reports\report" & "-" & repno & "-" & curdate & ".xlsx"
    twb2.SaveAs Filename:=outpath, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False, AccessMode:=xlExclusive

    xl3.ActiveWindow.WindowState = xlMaximized


     Set twb2 = Nothing
     Set xl3 = Nothing
     Set xl2 = Nothing
     curdate = ""
     outpath = ""
end sub

问题发生在

twb2.Sheets("Sales-Report").Range("B" & j + 7).value = lsarr(0, k)

*两个潜艇都在同一模块*

Answer 1

将变量调整到子例程之外，使其成为表单/模块级变量，如下所示：

Dim lsarr() as Variant

Private Sub cusbas_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  Redim lsarr(cuschk,6)

  ...............
  ...............
  lsarr = soldtable.List
  ...............
  ...............

End Sub