Run-time error 3704; Operação não permitida quando o objeto esta fechado
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
--------------------------------------------------------------------
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
Curtidas 0