Ciao a tutti.
Premetto che ho fatto già una ricerca sul forum e che mi ha dato anche qualche dritta, però non sono riuscita a risolvere completamente.

Io ho un file in excel costituito da 10 fogli pieni di calcoli e tabelle.
Nel primo foglio, il mio cliente, ha inserito una specie di form in cui andando ad inserire 5 dati praticamente si innescano una serie di cacoli che cambiano i vari valori dentro ai 10 fogli.

Dovendo presentare questo progetto all'università, mi ha chiesto se riesco a creargli una maschera (un form) di inserimento dati in una pagina web in modo che lui faccia vedere solo il file di excel aggiornato.

Praticmente dovrei fare l'aggiornamento di un file di excel già esistente e con già dei cacoli da una form in asp.

Sono partita creando semplicemente un foglio di excel con A1 + B1 -> risultato in C1 ed utilizzando la segiuente programmazione che ho trovato qui sul forum

codice:
'APRO LA CONNESSIONE ODBC AD UN FILE DI EXCEL
	Set cnConn = Server.CreateObject("ADODB.Connection")
	cnConn.open "ADOExcel"
	
	
	'APRO IL RANGE DI DATI CHE SONO ANDATA A DEFINIRE NEL FILE DI EXCEL
	sqlRange = "SELECT * FROM RANGE_CALCOLO"
	Set rsRange = Server.CreateObject("ADODB.Recordset")
	rsRange.Open sqlRange, cnConn, 3, 2
	
	
	'-------------------------------------------------
	'VISUALIZZAZIONE DEI DATI PRIMA DELL'AGGIORNAMENTO
	'-------------------------------------------------
	Response.Write("PRIMA DELL'AGGIORNAMENTO")
	Response.Write("<TABLE>")
		
		'PRIMA RIGA CON NOME DELLE COLONNE
		Response.Write("<TR>")
		For X = 0 To rsRange.Fields.Count - 1
			Response.Write("<TD>" & rsRange.Fields.Item(X).Name & "</TD>")
		Next
		Response.Write("</TR>")
		
		
		'INIZIO DEL CICLO DELLE RIGHE SOTTOSTANTI
		Do while not rsRange.EOF
			
			'RIGHE SUCCESSIVE DEL FILE .XLS
			Response.Write("<TR>")
			For X = 0 To rsRange.Fields.Count - 1
				Response.write("<TD>" & rsRange.Fields.Item(X).Value &"</TD>")
			Next
			Response.Write("</TR>")
		
		'PROSEGUO DEL CICLO DELLE RIGHE SOTTOSTANTI
		rsRange.Movenext
		loop
		rsRange.MoveFirst
	
	Response.Write("</TABLE>")
	
	
	'---------------------------------------
	'TEST DI VISUALIZZAZIONE NUMERI DI CELLA
	'---------------------------------------
	contaCelle = 0
	Do while not rsRange.EOF
	For X = 0 To rsRange.Fields.Count - 1
		
		response.Write(rsRange.Fields.Item(X).Value &" - "& contaCelle &"
")
		contaCelle = contaCelle + 1
	
	Next
	
	'PROSEGUO DEL CICLO DELLE RIGHE SOTTOSTANTI
	rsRange.Movenext
	loop
	rsRange.MoveFirst
	
	
	'--------------------
	'SCRITTURA NUOVI DATI
	'--------------------
	contaCelle = 0
	Do while not rsRange.EOF
	For X = 0 To rsRange.Fields.Count - 1
		
		if cInt(contaCelle) = 1 then rsRange.Fields(1).Value = "10"
		if cInt(contaCelle) = 4 then rsRange.Fields(1).Value = "30"
		If cInt(contaCelle) = 1 OR cInt(contaCelle) = 4 then rsRange.Update
	
		contaCelle = contaCelle + 1
	
	Next
	
	'PROSEGUO DEL CICLO DELLE RIGHE SOTTOSTANTI
	rsRange.Movenext
	loop
	rsRange.MoveFirst



	'---------------------------------------------
	'VISUALIZZAZIONE DEI DATI DOPO L'AGGIORNAMENTO
	'---------------------------------------------
	response.Write("<hr>")
	Response.Write("DOPO L'AGGIORNAMENTO")
	Response.Write("<TABLE>")
		
		'PRIMA RIGA CON NOME DELLE COLONNE
		Response.Write("<TR>")
		For X = 0 To rsRange.Fields.Count - 1
			Response.Write("<TD>" & rsRange.Fields.Item(X).Name & "</TD>")
		Next
		Response.Write("</TR>")
		
		
		'INIZIO DEL CICLO DELLE RIGHE SOTTOSTANTI
		Do while not rsRange.EOF
			
			'RIGHE SUCCESSIVE DEL FILE .XLS
			Response.Write("<TR>")
			For X = 0 To rsRange.Fields.Count - 1
				Response.write("<TD>" & rsRange.Fields.Item(X).Value &"</TD>")
			Next
			Response.Write("</TR>")
		
		'PROSEGUO DEL CICLO DELLE RIGHE SOTTOSTANTI
		rsRange.Movenext
		loop
		rsRange.MoveFirst
	
	Response.Write("</TABLE>")
	
	
	'CHIUDO IL RECORDSET RSRANGE
	rsRange.Close
	Set rsRange = Nothing
	
	'CHIUDO LA CONNESSIONE
	cnConn.Close
	Set cnConn = Nothing
La scrittura delle celle A1 e B1 me la fa, ma non riesce ad aggiornare il calcolo in C1
Qualche idea?
Grazie