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

VB

07/04/2021

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

--------------------------------------------------------------------
Alex Fonseca

Alex Fonseca

Curtidas 0
POSTAR