大家好，我是VBA新手，希望透過VBA簡化工作流程，遇到卡關，希望有大神可以協助解答。

期待VBA完成的指令為:

1. 代碼執行後，自動連接驗證網站
2. 於網站中 第一欄選擇”Sellers Permit”，
3. 在網站第二欄貼上excel工作表1中”B2”欄位的號碼
4. 輸入完成後點選Search 進行驗證
5. 將網站畫面存取: 於網站畫面進入列印選項，並選擇Microsoft print to PDF
6. 以excel工作表1中A2欄位作為file name，自動存入C:\Users\Desktop\test 資料夾中
7. 存取完成後，跳回步驟3，繼續驗證excel工作表1中其他欄位的號碼(B3、B4…)，以此類推進行驗證並截圖存入指定資料夾
8. 重複動作直到Ｂ欄位的號碼結束。

寫出的代碼無法成功運作，經逐行運行確認，代碼運行下列停止

 ' Send Alt+N to select "Save As" option
        SendKeys "%n"

並停止於PDF存檔畫面，無法順利於對話框中寫入檔案名稱(excel檔案中對應A欄位的客戶ID)並按下存檔。(無法順利完成指令6)

只能手動輸入檔案名稱即按下存檔，代碼才會繼續運行，驗證下一個號碼。
想請教大神們我該如何修改代碼，或是有什麼其他建議呢?

完整VBA 如下:

Sub VerifyPermitNumbers()
Dim ie As Object
Dim permitNumber As String
Dim custId As String
Dim lastRow As Long
Dim i As Long

' Get the last non-empty cell in column B
lastRow = Cells(Rows.Count, "B").End(xlUp).Row
' Open the website and fill out the form
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.Navigate  "https://efile.boe.ca.gov/boewebservices/verification.jsp?action=SALES"
           
' Wait for the website to load
Do While ie.Busy Or ie.ReadyState <> 4
    DoEvents
Loop

' Loop through each cell in column B
For i = 2 To lastRow
    ' Get the permit number and customer ID
    permitNumber = Cells(i, "B").Value
    custId = Cells(i, "A").Value
    
    ' Select "SITSUT" and enter the permit number
    ie.Document.getElementById("d-3").Value = "SITSUT"
    ie.Document.getElementById("d-4").Value = permitNumber
    
    ' Click the Search button
    ie.Document.getElementById("d-5").Click
    
    ' Wait for the search results page to load
    Do While ie.Busy Or ie.ReadyState <> 4
        DoEvents
    Loop
    
    ' Save the web page as a PDF file
    Dim pdfPath As String
    pdfPath = "C:\Users\Desktop\test\" & custId & ".pdf"
    
    ie.ExecWB 6, 2, pdfPath, 0
    
    ' Wait for the save dialog to appear
    Do While ie.Busy Or ie.ReadyState <> 4
        DoEvents
    Loop
    
    ' Send Alt+N to select "Save As" option
    SendKeys "%n"
    
    ' Wait for the file name input field to appear
    Application.Wait Now + TimeValue("0:00:10")
    
    ' Send the file name and press Enter
    SendKeys pdfPath & "~"
    
    ' Wait for the PDF to be saved
    Application.Wait Now + TimeValue("0:00:05")
    
Next i

' Close the Internet Explorer window
ie.Quit

MsgBox "All permit numbers have been verified."

End Sub