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
Rispondi quotando
