Question

修改我得到它通过大约1,000个零件号码运行，但现在它停止并且excel冻结。 excel可能处理得太多了吗？添加过滤器并让用户根据标准xyz？

执行此任务会更好吗？

我正在使用以下代码创建批量表单替换。它旨在运行一个包含5000多个零件编号的列表，将零件编号粘贴到另一个工作表的指定范围内，在该工作表中创建表单并将其作为pdf保存在指定的文件夹中。它一直工作到第105行然后停止。它做了它应该做的事情，除了继续下去。我有相同的代码（稍微修改）在另一张纸上使用它运行完美。我不确定为什么它会在一定数量的行之后停止

Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
Set wbA = ActiveWorkbook
Set wsA = ActiveSheet
strTime = Format(Now(), "yyyymmdd\_hhmm")
Dim x As Worksheet
Dim y As Worksheet
Dim i As Long

FinalRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 3 To FinalRow
    Set x = ThisWorkbook.Worksheets("Part Number Database")
    Set y = ThisWorkbook.Worksheets("BOM")
    x.Cells(i, 1).Copy Destination:=y.Range("E3:J3")

strFile = Range("E3") & ".pdf"
strPathFile = strPath & strFile
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "C:\Users\AGoodwin\Desktop\BOM\" & strFile & ".pdf" _
    , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
    :=False, OpenAfterPublish:=False
Next i

    MsgBox "PDF file has been created: " _
      & vbCrLf _
      & myFile

End Sub

VBA在结束前退出

0 个答案: