Run Time Error '009'

[gg]

I am getting a run time error and highlighting this section of code.

The entire code I am using is below. This has worked fine on my maching
now trying to use it on another exact machine I am getting this error.

The way the code works..

It navigates to a webpage that allows the user to download the data which is called
DownloadNCPartListServlet.

    Windows("DownloadNCPartListServlet").Activate

I think I may need to tweek the .xls file extention properties. What do you think?

Public Sub SKPIUPDATE()
Dim QPR
Dim lnk
Dim frm
Dim start
Dim fin
Dim drp1
Dim drp2
Dim src1
Dim NAMC As Integer
' This macro will automatically open and download the TMMK-VEH daily scrap
'and store the file in the same directory

Set QPR = CreateObject("InternetExplorer.application")

    QPR.Visible = True
    
    QPR.navigate "https://www.portal.toyotasupplier.com/wps/myportal/"
    
    Do While QPR.Busy: DoEvents: Loop
    Do While QPR.readyState <> 4: DoEvents: Loop
    
    With QPR.document.forms("Login")
        .User.Value = "ggodwin"
        .Password.Value = "060469-8"
        .submit
    End With

    Application.Wait Now + TimeSerial(0, 0, 11)

    QPR.navigate ("https://www.portal.toyotasupplier.com/skpi/")
    
    Application.Wait Now + TimeSerial(0, 1, 60)
    
    If myNAMC = "TMMK-VEH" Then
        NAMC = 4
    ElseIf myNAMC = "TMMK-PWT" Then
        NAMC = 3
    ElseIf myNAMC = "TMMC" Then
        NAMC = 5
    ElseIf myNAMC = "TMMTX" Then
        NAMC = 6
    ElseIf myNAMC = "TABC" Then
        NAMC = 7
    ElseIf myNAMC = "NUMMI" Then
        NAMC = 8
    ElseIf myNAMC = "TMMI" Then
        NAMC = 9
    ElseIf myNAMC = "TMMTX" Then
        NAMC = 6
    ElseIf myNAMC = "TMMBC" Then
        NAMC = 10
    ElseIf myNAMC = "TMMAL" Then
        NAMC = 11
    ElseIf myNAMC = "TMMNK" Then
        NAMC = 12
    End If
        
    Set lnk = QPR.document.Links(3) ' 3=TMMK-VEH,4=TMMK-PWT,5=TMMC,6=TMMTX,7=TABC,8=NUMMI,9=TMMI,10=TMMBC,11=TMMAL,12=TMMNK
    
    Do While QPR.Busy: DoEvents: Loop
    Do While QPR.readyState <> 4: DoEvents: Loop
    
    lnk.Click
    
    Do While QPR.Busy: DoEvents: Loop
    Do While QPR.readyState <> 4: DoEvents: Loop

    QPR.navigate ("https://www.portal.toyotasupplier.com/skpi/SkpiGatewayServlet?jadeAction=NCPARTS_SEARCH")
    
    Do While QPR.Busy: DoEvents: Loop
    Do While QPR.readyState <> 4: DoEvents: Loop
  
    Set frm = QPR.document.forms("form1")
    Set dwn = QPR.document.forms("page")
        
    Set start = frm.all("SKPI_SEARCH_START_DATE_KEY")
    start.Value = "01/01/" & Year(Now)
    
    Set finish = frm.all("SKPI_SEARCH_END_DATE_KEY")
    finish.Value = Format(Now - 1, "mm/dd/yyyy")
    
    Set drp2 = frm.all("SKPI_SEARCH_NC_TYPE_KEY")
    drp2.Item(1).Selected = True
    
    Set src1 = frm.all("Submit")
    
    src1.Click
    
    Do While QPR.Busy: DoEvents: Loop
    Do While QPR.readyState <> 4: DoEvents: Loop
    
    QPR.navigate ("https://www.portal.toyotasupplier.com/skpi/DownloadNCPartListServlet")
    
    Application.Wait Now + TimeSerial(0, 1, 0)
    
    Windows("DownloadNCPartListServlet").Activate
    
    ActiveWorkbook.SaveAs Filename:="C:\Users\Owner\Documents\_DENSO QRE\SKPI PARTS RETURN\" & Range("C2").Value & ".xls"
    ActiveWorkbook.Close
    
    QPR.navigate ("https://www.portal.toyotasupplier.com/public/pr_logout.htm")

    Windows("SKPI 2008.xls").WindowState = xlMaximized
End Sub

 

[Norie]

Well don't use it.

 

[gg]

Well don't use it.

What do you mean? Take the code out?...or don't use the machine?

 

[Norie]

I mean take the code out.

As far as I can see it isn't really doing much, and it's generally not needed to activate.

 

[gg]

Can I combine these two lines of code some how?

Windows("DownloadNCPartListServlet").Activate
    
    ActiveWorkbook.SaveAs Filename:="C:\Users\Owner\Documents\_DENSO QRE\SKPI PARTS RETURN\" & Range("C2").Value & ".xls"
    ActiveWorkbook.Close

 

[gg]

My concern is that excel will save the wrong excel file in that location.

 

[Norie]

I'll repeat - you do not need to activate.

Unless I'm missing something.

 

[Andrew Poulsom]

Maybe you need:

Windows("DownloadNCPartListServlet.xls").Activate

For the reason see:

http://www.cpearson.com/excel/FileExtensions.aspx

 

[gg]

Well the code runs the exact same. good on the old machine and getting run time error on another one. Now I am tryng a third m/c.

 

[gg]

Andrew,
This is one difference in the two machines. We are now trying it with the same setting's here. I will let you know the results. Here shortly.