Excel中VBA封装成DLL后出现错误代码91

15692185675

本身VBA程序运行后是没有问题的,但是封装成DLL文件后出现错误91是怎么回事？求大神帮忙解决

下述为VBA程序

1. Sub 批量转化()
   
2.     Application.ScreenUpdating = False
   
3.     Application.EnableCancelKey = xlDisabled
   
4.     Dim yyy As String, xxx As String, n As Long, Last As Long
   
5.     yyy = "电气打包-巨人通力7A箱清单模板.xlsm"
   
6.     xxx = ActiveWorkbook.Name
   
7.     Last = ActiveWorkbook.Sheets("配置").Range("D1").Value
   
8.    
   
9.     Workbooks.Open Filename:=ThisWorkbook.Path & "" & yyy
   
10.     Windows(xxx).Activate
    
11.     ActiveWorkbook.Sheets("配置").Select
    
12.     Range("E4:I103").Select
    
13.     Selection.ClearContents
    
14.     ActiveWorkbook.Sheets("配置").Range("D2").Value = 1
    
15.      Sheets("BOM清单明细").Visible = -1
    
16.      Sheets("装箱单SAP").Visible = -1
    
17.      Sheets("执行结果").Visible = -1
    
18.    
    
19.     For n = 1 To Last
    
20.        Windows(xxx).Activate
    
21.        Sheets("配置").Select
    
22.        Sheets("配置").Range("D2").Value = n
    
23.        Sheets("配置").Range("E2:I2").Select
    
24.        Selection.Copy
    
25.        Sheets("配置").Range("E" & 3 + n).Select
    
26.        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    
27.         :=False, Transpose:=False
    
28.    
    
29.    
    
30.       Windows(xxx).Activate
    
31.       Sheets("BOM清单明细").Select
    
32.       Application.CutCopyMode = False
    
33.       Selection.Copy
    
34.       Windows(yyy).Activate
    
35.       Sheets("BOM清单明细").Visible = -1
    
36.       Sheets("BOM清单明细").Select
    
37.       Range("A1").Select
    
38.       ActiveSheet.Paste
    
39.    
    
40.       Windows(xxx).Activate
    
41.       Sheets("装箱单SAP").Select
    
42.       Application.CutCopyMode = False
    
43.       Selection.Copy
    
44.       Windows(yyy).Activate
    
45.       Sheets("装箱单SAP").Visible = -1
    
46.       Sheets("装箱单SAP").Select
    
47.       Range("A1").Select
    
48.       ActiveSheet.Paste
    
49.       
    
50.       Windows(xxx).Activate
    
51.       Sheets("执行结果").Select
    
52.       Application.CutCopyMode = False
    
53.       Selection.Copy
    
54.       Windows(yyy).Activate
    
55.       Sheets("执行结果").Visible = -1
    
56.       Sheets("执行结果").Select
    
57.       Range("A1").Select
    
58.       ActiveSheet.Paste
    
59.       If Sheets("执行结果").Range("A1") = "" Then
    
60.       Sheets("执行结果").Visible = 0
    
61.       End If
    
62.          
    
63.       Windows(yyy).Activate
    
64.       Sheets("BOM清单明细").Select
    
65.       Application.DisplayAlerts = False
    
66.        If Sheets("执行结果").Visible = 0 Then
    
67.        yyy = Sheets("BOM清单明细").[C2] & ".xlsx"
    
68.        Else
    
69.        yyy = Sheets("BOM清单明细").[C2] & "错误.xlsx"
    
70.        End If
    
71.       ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "" & yyy, FileFormat:= _
    
72.         xlOpenXMLWorkbook, CreateBackup:=False
    
73.       Application.DisplayAlerts = True
    
74.    Next n
    
75. 
    
76.        Windows(yyy).Activate
    
77.        ActiveWorkbook.Close False
    
78. 
    
79.     Windows(xxx).Activate
    
80.     Sheets("配置").Select
    
81.     ActiveWorkbook.Sheets("配置").Range("D2").Value = 1
    
82.     Sheets("BOM清单明细").Visible = 2
    
83.     Sheets("装箱单SAP").Visible = 2
    
84.     Sheets("执行结果").Visible = 2
    
85.   Application.ScreenUpdating = True
    
86. End Sub
    

复制代码

15692185675

求大神帮帮忙，急，谢谢！

15692185675

谁来帮帮我呀

jy03342543

对象前面要加声明成EXCEL对象的变量 https://blog.csdn.net/qwlovedzm/article/details/44261101 如果代码很长觉得麻烦可以下载一个罗刚君大神制作的代码封装助手。