Errore 70 autorizzazione negata

[misonsan]

grazie a tutti gli amici della ML

Sto impazzendo per un problema che pensavo non esistesse.
Ho messo in produzione una procedura scritta in ASP che mi consente di creare dei file .XLS leggendo un mdb Access.
Sulla macchna di test dove ho sviluppato funziona regolarmente.
In entrambe le macchine gli ambienti sono speculari
XP Professional e Office 2003

Eseguendo una function mi da il seguente errore

Errore 70 Autorizzazione negata

Allego il codice

Function CreatoListino(N_Listino)
On Error Resume Next

CreatoListino = False

dim ind, colonne(26), Colonna, NomeListino, NumListino, n, r, ScrittoIntestazioni, FileXLS
dim rs, rs1, rs2, Strsql, Strsql1, Strsql2, GG, MM, YYYY, DataListino, Indice
dim Fso

colonne(1) = "A"
colonne(2) = "B"
colonne(3) = "C"
colonne(4) = "D"
colonne(5) = "E"
colonne(6) = "F"
colonne(7) = "G"
colonne(8) = "H"
colonne(9) = "I"
colonne(10) = "J"
colonne(11) = "K"
colonne(12) = "L"
colonne(13) = "M"
colonne(14) = "N"
colonne(15) = "O"
colonne(16) = "P"
colonne(17) = "Q"
colonne(18) = "R"
colonne(19) = "S"
colonne(20) = "T"
colonne(21) = "U"
colonne(22) = "V"
colonne(23) = "W"
colonne(24) = "X"
colonne(25) = "Y"
colonne(26) = "Z"

if len(N_Listino) < 2 then
for ind = 1 to (2 - len(N_Listino))
NumListino = "0" & N_Listino
next
end if

' Inizio creazione Listino su excel

Dim oApp, oWks, oSheet '<-- creo gli oggetti dichiarandone i tipi

Set oApp = CreateObject("Excel.Application") '<-- assegno all'oggetto l'istanza di Excel

if Err.Number <> 0 then
MessErroreListino = "CreatoListino - Errore " & err.number & " " & Err.description
exit function
end if

va in errore dopo l'istanza di excel
potete spiegarmi dove sbaglio e perchè sulla macchina di test funziona ?

Certamente credo stia nei diritti, ma non so dove agire

grazie Moreno

 

[lukeonweb]

Ciao Moreno, immagino che 70 sia il numero della riga in cui si trova il settaggio dell'oggetto per Excel, giusto? Non il numero dell'errore.

Perdona la pignoleria, ma sennò non ci capiamo

Posta l'intero messaggio di errore che ti viene restituito.

 

[misonsan]

grazie Lukeonweb per la cortese risposta


70 è err.number e Autorizzazione negata è err.description come puoi ben vedere dal listato che ti riporto
Se hai notizie, aspetto con ansia

ciao

Moreno



if Err.Number <> 0 then
MessErroreListino = "CreatoListino - Errore " & err.number & " " & Err.description
exit function
end if

 

[lukeonweb]

Beh, a prescindere, io ci toglierei la descrizione dell'errore: non ti conviene comunque dire al tuo utente che c'è un errore e dirgli anche quale; se l'utente è uno smanettone, può usarlo contro di te!

 

[misonsan]

Ciao Luca

Grazie per la risposta

Ovviamente il codice postato è stato generato dopo che sono incappato nell'errore e quindi mi serviva per intercettare il motivo e la riga incriminata.
Per errori da noticare all'utente finale andrei a notificare diversamente.
resta comunque il fatto che non so come procedere.
hai qualche suggerimento ?

grazie

Moreno