使用 VBA 创建的 Excel 工作簿不包含宏

Question

您好，我最近在 Excel 中创建了一个用于通过电子邮件发送电子表格的 VBA 宏。我想通过电子邮件发送的电子表格是使用另一个 VBA 程序创建的。该程序将零件号作为输入，然后打开 Excel 并从 SQL Server 数据库中获取相应的数据。

我的问题是在检索信息过程中弹出的Excel不包含我创建的宏。如果我复制数据并打开一个新的空白 Excel 工作簿，我的宏就在那里。如果我保存电子表格然后重新打开它，我的宏也会出现。

VBA 创建新 Excel 工作簿的方式是否会导致我的宏不出现？有没有什么办法解决这一问题？最后，我想在 VBA 程序完成创建电子表格的那一刻通过电子邮件发送它。

这是关于我如何创建 Excel 工作簿的代码 sn-p。

xlApp = New Excel.Application ' Create new Workbook
xlApp.Visible = True
xlWorkbook = xlApp.Workbooks.Add
xlWorksheet = xlWorkbook.Worksheets(1)

Array.Sort(snarry)
On Error Resume Next

For i = 0 To inxms - 1 ' Select Column Widths
    xlWorksheet.Range(xlWorksheet.Cells(1, i + 2), xlWorksheet.Cells(2, i + 2)).EntireColumn.ColumnWidth = 10
Next i

' Display Measurement Types
offst = 7
xlWorksheet.Cells(1 + offst, 1) = "S/N"
For i = 0 To inxms - 1
    xlWorksheet.Cells(1 + offst, i + 2) = measures(i)
Next
xlWorksheet.Cells(1 + offst, inxms + 2) = "Ref#"

frst = True
For ims = 0 To inxms - 1
    frstmeas(ims) = True
Next ims
strSheetRev = ""
strSheetRef = ""
strskiprev = ""
strskipref = ""
offst = offst + 1
For i = 0 To inx - 1
    snskiprev = False
    snskipref = False
    For ims = 0 To inxms - 1
        Call FillMeasurements(Conn, xlWorksheet, pn, snarry(i), measures(ims), meastyp(ims), 1 + offst, ims + 2, inxms + 2, frst, frstmeas(ims), tester(ims), testdate(ims), numdg(ims), strRef, ckbNotes.Checked)
    Next
    xlWorksheet.Cells(1 + offst, 1) = snarry(i)
    offst = offst + 1
Next

' Add Tolerances
offst = offst + 1
xlWorksheet.Cells(1 + offst, 1) = "Max"
xlWorksheet.Cells(2 + offst, 1) = "Nom"
xlWorksheet.Cells(3 + offst, 1) = "Min"
For ims = 0 To inxms - 1
    Call FillTolerances(Conn, xlWorksheet, pn, measures(ims), meastyp(ims), 1 + offst, ims + 2, numdg(ims))
Next ims
offst = offst + 3

' Add Tester
offst = offst + 1
xlWorksheet.Cells(1 + offst, 1) = "Tested By"
xlWorksheet.Cells(1 + offst + 1, 1) = "Test Date"
For i = 0 To inxms - 1
    If (Not frstmeas(i)) Then
        xlWorksheet.Cells(1 + offst, i + 2) = tester(i)
        xlWorksheet.Cells(1 + offst + 1, i + 2) = Format(testdate(i), "MM/dd/yyyy")
    End If
Next

Conn.Close()

' Display Header
midloc = CInt((inxms + 1) / 2#)
If (midloc < 4) Then
    midloc = 4
End If
xlWorksheet.Cells(1, midloc) = "XXXXXXXXXXXX"
xlWorksheet.Cells(2, midloc) = txtTitle.Text
xlWorksheet.Cells(3, 1) = "XXXXXXXXXXXXX"
xlWorksheet.Cells(4, 1) = "XXXXXXXXXXXXXXXXX"
xlWorksheet.Cells(5, 1) = "XXXXXXXXXXXXXX"
xlWorksheet.Cells(3, inxms) = "XXXXXXXXXXX"
xlWorksheet.Cells(3, inxms + 1) = pn & "-" & strSheetRev
xlWorksheet.Cells(3, inxms + 2) = vendor

' Display messages for skipped sns
strSkip = ""
If (strskiprev <> "") Then
    strSkip = strSkip & "S/Ns skipped for Rev mismatch" & Chr(10) & Mid$(strskiprev, 2) & Chr(10) & Chr(10)
End If
If (strskipref <> "") Then
    strSkip = strSkip & "S/Ns skipped for Ref mismatch" & Chr(10) & Mid$(strskipref, 2)
End If
If (strSkip <> "") Then
    MsgBox (strSkip)
End If

txtPN.Text = ""
txtTitle.Text = ""
ckbNotes.Checked = False
GoTo Dne

BadSN:
    MsgBox ("Bad SN specification")
    GoTo Dne
Dne:
End Sub

Answer 1

“插件”是安装在特定计算机上并位于特定计算机上的东西。它不会嵌入到工作簿中。相反，有一个应用程序范围的设置来指示加载项是否“已安装”。在 VBA 中，属性 Application.AddIns(index).Installed 可用于启用或禁用加载项（通过索引标识，可以是加载项的名称）。不幸的是，“已安装”是用词不当。实际上它意味着启用/禁用，安装完全是另一回事。如果您的外接程序必不可少，则需要将其安装在需要它的每台计算机上。