Estou tentando carregar uma planilha excel com dados do access, porém o script está estourando o tempo de execução e já alterei mesmo lá tendo alterado a configuração do iis. Alguém tem uma dica pra esse codigo? flw.
Set RS = Server.CreateObject("ADODB.RecordSet")
Set objAplic = Server.CreateObject("Excel.Application") local = request.form("strArquivo") strPath = Request.ServerVariables("APPL_PHYSICAL_PATH") objAplic.DisplayAlerts = False objAplic.Workbooks.Add local 'INDICA O CAMINHO DO ARQUIVO MODELO
Set objExport = objAplic.ActiveWorkbook objAplic.workSheets("margem").activate Set objRep = objAplic.ActiveSheet
coluna = 15 for i = 1 to 12 sSql = "select * from energiaCircReal where mes=" & i & " and ano=2006" RS.open sSql,conexao,3,3 objRep.cells(9,coluna).value = RS("residNormal") objRep.cells(10,coluna).value = RS("residBx") objRep.cells(11,coluna).value = RS("ind") objRep.cells(12,coluna).value = RS("com") objRep.cells(13,coluna).value = RS("rural") objRep.cells(14,coluna).value = RS("poderPub") objRep.cells(15,coluna).value = RS("ilumiPub") objRep.cells(16,coluna).value = RS("servPub") objRep.cells(17,coluna).value = RS("proprio") coluna = coluna + 1 RS.close next objAplic.WorkBooks(1).saveAs local objAplic.Quit Set objAplic = nothing
Descobri que o problema não está no codigo e sim na planilha que estou usando, ela faz uma quantidade de calculos muito grande com os dados que são inseridos.