Question

根据我略微修改代码的建议，几天前我发布了类似的问题。这段代码适用于一部分，但是当我在Plist表单代码中有多个部分失败时（运行时错误9）。请建议如何解决这个问题。另外，请告诉我如何仅将第1页保存为新文件而不是整个工作簿。

    Sub formfiller()
    Dim i As Long, lastRow As Long
    Dim FName           As String
    Dim FPath           As String

    Set Partno = Sheets("Plist")
    Set finaljnl = Sheets("SIR")

    lastRow = Partno.Cells(Rows.Count, "A").End(xlUp).Row

For i = 2 To lastRow
        If Partno.Range("A" & i).Value <> "" Then
            finaljnl.Range("G" & 11).Value = Partno.Range("A" & i).Value
            finaljnl.Range("Q" & 11).Value = Partno.Range("B" & i).Value
            finaljnl.Range("G" & 13).Value = Partno.Range("C" & i).Value
            finaljnl.Range("G" & 15).Value = Partno.Range("D" & i).Value
            finaljnl.Range("R" & 49).Value = Partno.Range("E" & i).Value
            FPath = "C:\Users\ARAJPUT\Desktop\Aruba\SIR Supplier"
            FName = Partno.Range("A" & i).Value.Text
            ThisWorkbook.SaveAs Filename:=FPath & "\" & FName
        End If
Next i

End Sub

Excel宏循环不起作用

0 个答案: