none
VB6 - Run-time error '3704'; Operação não permitida quando o objeto esta fechado RRS feed

  • Pergunta

  • Boa tarde Pessoal.

    Estou gerando uma planilha e estava funcionando normalmente, mas eu tive que inserir a seguinte linha:

     sSql = sSql + "into tempOriginal  

    Após colocar essa linha, está dando o erro: ***Run-time error '3704'; Operação não permitida quando o objeto esta fechado***

    Agradeço quem puder ajudar.

    --------------------------------------------------------------------

    Segue código completo:

    sSql = sSql + "select REMes,REEmp,RENom,REFunc,"

    sSql = sSql + "into tempOriginal  "   //LINHA ADICIONADA

    sSql = sSql + " from Relator "
    sSql = sSql + "inner join HRDBCIONA on FUCODEMP=RECodEmp  "
    sSql = sSql + "inner join HRDBLOT ON LOCWODEMP=FUCW  "

    Set rsSql = New ADODB.Recordset
    rsSql.Open sSql, cnSqlFol, adOpenStatic, adLockReadOnly

    xlWs.Cells(2, "A").CopyFromRecordset rsSql  //DÁ ERRO NESSA LINHA

    --------------------------------------------------------------------
    quarta-feira, 7 de abril de 2021 19:53