Run-time error 3704; Operação não permitida quando o objeto esta fechado

07/04/2021

4

VB

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

--------------------------------------------------------------------
Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários. Para saber mais sobre o uso de cookies,
consulte nossa política de privacidade. Ao continuar navegando em nosso site, você concorda com a nossa política.

Aceitar