none
O codigo excede o tempo de execução RRS feed

  • Pergunta

  • 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

    terça-feira, 16 de janeiro de 2007 17:33

Respostas

  • 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.
    terça-feira, 16 de janeiro de 2007 18:30