colar dados em planilha oculta

salve a selva!

atualmente utilizo a seguinte rotina que cola dados em determinada planilha ativada via access

'créditos Charles Sestrem

Dim strLivro As String, xls As Object
Dim db As DAO.Database
Dim rst, Rst1 As DAO.Recordset
Dim strSQL, strSQL1 As String
Dim x As String
Dim y As String
Dim z As String
Set db = CurrentDb

strSQL = "SELECT * FROM TB_graficos;"
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
With rst
.MoveFirst
Do Until .EOF

Set xls = CreateObject("Excel.Application")
strLivro = !CaminhoDaPlanilha

xls.Workbooks.Open (strLivro)

xls.Visible = True

z = rst.Fields.Item(1) 'nome da consulta na tabela
x = rst.Fields.Item(2) 'nome do sheet na tabela
y = rst.Fields.Item(3) 'nome da celula na tabela

strSQL1 = z

Set Rst1 = CurrentDb.OpenRecordset(strSQL1, dbOpenDynaset)
xls.Worksheets(x).Activate
xls.ActiveSheet.Range(y).Select
xls.ActiveCell.CopyFromRecordset Rst1

rst.MoveNext

xls.ActiveWorkbook.Save
xls.Application.Quit
Set xls = Nothing

Loop

End With

rst.Close
Rst1.Close

a duvida é o seguinte, se a planilha está oculta a rotina não é executada
como seria a rotina se o access tivesse que ativar a planilha colar e ocultar novamente a planilha
o objetivo e que o usuario não veja a planilha dos dados

obs: claro que posso apenas desativar na Opções as guias de planilhas mas seria bem interessante se fosse feito atraves do access

valeu!

Opa, você não precisa Exibir a planilha para inserir dados nela.

Pode usar algo do Tipo

Range("Plan3!B2").Value = "Testando"

Fiz o teste com a Plan3 oculta e funcionou.

obrigado pela contribuição,
no entanto ja testei a rotina com a guia oculta e o access não colou os dados
passou por ela e não fez nada!

vou refazer o teste
valeu!

Na rotina que utilizo não funciona!

LiveBrain se puder faça um teste com a rotina completa

tem apenas que criar um tabela com os campos
ID - numeracao automatica
Consulta - texto
Folha - texto
Celula - texto
CaminhoDaPlanilha - texto

Com essa rotina que utilizo a sugestão postada não funciona!

alguem se habilita?