Fechar funcao que busca o excel

[Hugo Eyer 0]

Prezados amigos,

 

Estou fazendo um upload de uma planilha do excel diretamente para o BD. Esta funcionando perfeitamente.

 

A função é "Set objApp = Server.CreateObject("Excel.Application")"

 

Acontece que quando eu vou tentar fazer novamente o upload ocorre um erro...

 

Verifiquei que o erro é porque a planilha do excel fica aberta, isto é, quando ocorre a funcao acima... apos ela ser executada, nao possuo um codigo para fechar a planilha...

 

Aguem saberia qual seria essa instancia ? Segue abaixo o codigo...

 

----

	 '######################### O CÓDIGO ##############################
	 'aqui eu crio uma instência do Excel
	 Set objApp = Server.CreateObject("Excel.Application")
	 'abro a planilha que foi enviada
	 Set objBook = objApp.Workbooks.Open(PastaDestino & "\" & ArquivoNome)
	 'seleciono a pasta
	 Set objSheet = objBook.Sheets.Item(1)

	 'pego os valores da tabela
	 valor = objSheet.Range("A2").Value
	 valor2 = objSheet.Range("B2").Value
	 valor3 = objSheet.Range("C2").Value
	 valor4 = objSheet.Range("D2").Value
	 valor5 = objSheet.Range("E2").Value
	 valor6 = objSheet.Range("F2").Value
	 valor7 = objSheet.Range("G2").Value
	 valor8 = objSheet.Range("H2").Value
	 valor9 = objSheet.Range("I2").Value
	 valor10 = objSheet.Range("A3").Value
	 valor11 = objSheet.Range("B3").Value
	 valor12 = objSheet.Range("C3").Value
	 valor13 = objSheet.Range("D3").Value
	 valor14 = objSheet.Range("E3").Value
	 valor15 = objSheet.Range("F3").Value
	 valor16 = objSheet.Range("G3").Value
	 valor17 = objSheet.Range("H3").Value
	 valor18 = objSheet.Range("I3").Value
	 
	'aqui entraria o seu codigo de inserção
	 strINSERT = "INSERT INTO SNC_PEDIDOS_COMPRA (ProjSAP1, ProjSAP2, SNC1, SNC2, PEDIDO, ITEM, DescricaoPED, ValorPC) VALUES ('" & valor & "', '"& valor2 &"', '"& valor3 &"', '"& valor4 &"', '"& valor5 &"', '"& valor6 &"' , '"& valor7 &"' , "& valor8 &")"
	 'response.Write(strINSERT)
	 'response.End()
	 RS.EXECUTE(strINSERT)
	 
	 'aqui entraria o seu codigo de inserção
	 strINSERT2 = "INSERT INTO SNC_PEDIDOS_COMPRA (ProjSAP1, ProjSAP2, SNC1, SNC2, PEDIDO, ITEM, DescricaoPED, ValorPC) VALUES ('" & valor10 & "', '"& valor11 &"', '"& valor12 &"', '"& valor13 &"', '"& valor14 &"', '"& valor15 &"' , '"& valor16 &"' , "& valor17 &")"
	 'response.Write(strINSERT2)
	 'response.End()
	 RS.EXECUTE(strINSERT2)
	 
	 

	 '#########################		  ##############################

---------

Alguem poderia me ajudar ??????

[hargon 64]

Sempre que utilizar SET para criar um objeto, utilize SET objeto = NOTHING para destruí-lo.

 

Antes de utilizar NOTHING, verifica se esse objeto não tem o método CLOSE.

 

Ex. objApp.Workbooks.Close