Getting "Permission Denied error 70" on Windows XP and 2003

[Lalit Chaudhari]

Hi All,

I have developed a VBA program which will automatically make decisions on
the web page. It is working fine on Windows 2000. But its giving error as
"Permission Denied error 70" on Windows XP and 2003.

Can you please let me know if anybody knows the solution for this?

 

[Joel]

I think they fixed a security problem with excel 2000 in excel 2003 which
performed an access test before creating a new file. Try manually creating
the file in the same directory by doing a saveas from the spreadhsheet. You
need to get the permission changed in the directory yoiu are writting to.

 

[Lalit Chaudhari]

Thanks for the reply. But i am not writing to anyfile. I am just automating
the web browser to do some steps. I am getting the error on the below first
line. Actually the following code is in the loop. When the item is checkbox
or radio-box its working but when it will be the Listbox, its giving the
error!

If element.Type = "select-one" Then
Debug.print "List Box"
Else
Call element.Click
Debug.Print "Selecting Save Tool: " & element.ID
Do While IEVNT.Busy: DoEvents: Loop
End If

 

[Joel]

There isn't enough information for me to repeat the problem. I don't know
how element is defined.

 

[Lalit Chaudhari]

Below is the code for your reference:

For Each element In IEVNT.Document.getElementsByName("savetool")
If element.Type = "select-one" Then
Debug.print "List Box"
Else
Call element.Click
Debug.Print "Selecting Save Tool: " &
element.ID
Do While IEVNT.Busy: DoEvents: Loop
End If
Next element

 

[Joel]

You have a number of problems with the code

first your declaration LoadFileDate deson't match the call.

LoadFileDate(CBTfilesArray)

and

Function LoadFileDate()

I still don't have enough info to solve the problem. e-mail mye the file
and I will look at it

joel dot warburg at itt dot com

 

[Lalit Chaudhari]

Hi,
But i am not understanding where i have written "LoadFileDate" function?
Also i am not able to find the option to send the file!
Again i am pasting my code:
For Each element In IEVNT.Document.getElementsByName("savetool")
If element.Type = "select-one" Then
Debug.print "List Box"
Else
Call element.Click
Debug.Print "Selecting Save Tool: " & element.ID
Do While IEVNT.Busy: DoEvents: Loop
End If
Next element

==================================================

 

[Joel]

Send the file as an attahment using your e-mail tool. Don't use the
Dsicussion Group web tools.

 

[Lalit Chaudhari]

Can you please let me know your mail id?

Send the file as an attahment using your e-mail tool. Don't use the
Dsicussion Group web tools.

 

[Joel]

Sorry, I did on the previous posting

joel dot warburg at itt dot com