I am trying use follow statement

Set objExcel = CreateObject("EXCEL.APPLICATION")

But Error "Permission Denied" returned.

Who can help me!!!!
Thanks!!

Jason

Hi,

Please Follow these steps :



1. From command prompt type "dcomcnfg.exe"

2. You will see ‘Component Management’ window

3. Component Services --> Computer--> My Computer--> DComConfig

4. From the tree view select ‘Microsoft Excel Application’

5. Right-Click on it & select ‘Properties’

6. From the property window select the ‘Security’ tab.

7. Then for all the three options select ‘Customize’ Radio button (or according to your need) :)

8. Add ‘ASPNET’ user account to all the three

9. Give appropriate permission to them

10. Then click Apply.



Hope It Helps !!
Bhaskar Ghosh

I am still getting a error "PERMISSION DENIED" even after adding ASPNET and gving it a permission

Did you give write and read permissions on the directory in IIS

This is my junk I'm gona eat it

Hi, need help with this - i've done as the replies but can't get it going:
My inital error was Permission Denied.
I'm using Flowcentric which executes the script from the server added the ASPNET user but now i get a complete different error:
A scripting error has occurred in FG10120Save: Microsoft Excel cannot access the file 'C:\Documents and Settings\Default User\My Documents'. There are several possible reasons: • The file name or path name does not exist. • The file you're trying to open is being used by another program. Close the document in the other program, and try again. • The name of the workbook you're trying to save is the same as the name of another document that is read-only. Try saving the workbook with a different name.. For further details please check the event log.

Script code:

DjKat's suggestion is what I would have said 9IMO stay away from the command prompt)

You are trying to write to a .xls file in some way are you? If so you will need more than read permissions.

Wind is your friend
Matt

Hi, i'm using flowcentyric which executes the scripts on the server but unsuccessfull - i'm not to sure what i'm doing wrong! It just hangs & writes nothing

Dim objXL
Dim File_name
'Option WScript
File_name="C:\Inetpub\wwwroot\fcParmalatTest\trans form\custom\test.xls"
Set objXL = CreateObject("Excel.Application")
Set wb = objXL.Workbooks.Add
Set ws = objXL.Worksheets(1)
r = 2

objXL.Visible = False
Set objConn = CreateObject( "ADODB.Connection")
Set resultSet = CreateObject ("ADODB.RecordSet")
objConn.Open fcCustom.Value(Process.Company, "Connections")
strSQL = "select id,ProcessID from dbo.fcEventArchive where EventHistID = 2523"

resultSet.Open strSQL, objConn, 1, 2
resultSet.MoveFirst
Do While Not resultSet.eof
ws.Cells(r, 1).Value = (resultset.fields(0).value)
ws.Cells(r, 2).Value = (resultset.fields(1).value)
resultSet.MoveNext
r = r + 1
Loop
'wb.Save
'ws.Save
WS.SaveAs(File_Name)
resultSet.Close
objConn.Close
Set resultSet = Nothing
Set objConn = Nothing