[Resolvido]criar um campo na tabela importada e inserir o nome da tabela neste campo

Grandes mestres!

Hj tenho o trabalho de importar os arquivos em excel para o access, diariamente são gerados arquivos em xls com o seguinte nome

Controle_02-09-2013.xls
Controle_03-09-2013.xls
Controle_04-09-2013.xls
Controle_05-09-2013.xls
Controle_06-09-2013.xls
Controle_09-09-2013.xls
Controle_10-09-2013.xls
Controle_11-09-2013.xls
Controle_12-09-2013.xls
Controle_13-09-2013.xls
Controle_16-09-2013.xls
Controle_17-09-2013.xls
Controle_18-09-2013.xls
Controle_19-09-2013.xls
Controle_20-09-2013.xls

Como faço para criar um campo (dta_controle) na tabela importada e inserir a data que consta no nome do arquivo

Exemplos:

Arquivo: Controle_02-09-2013
Nome da tabela: TB_Controle_02-09-2013
Criando o campo dta_controle e inserido 02-09-2013

Arquivo: Controle_03-09-2013
Nome da tabela: TB_Controle_03-09-2013
Criando o campo dta_controle e inserido 03-09-2013

Como você está importando os dados para o Access? Poste o código completo.

estava pensando em utilizar a seguinte rotina

Dim File As String
File = ShowFileDialog

If File = vbNullString Then

Exit Sub

End If

DoCmd.TransferSpreadsheet acImport, 8, "TB_temporaria", File, True, ""

Beep
MsgBox "Planilha importadado com sucesso!", vbInformation, "Atenção"

os dados do dia seriam transferidos para outra tabela (TB_MES) apenas no outro dia, quando dados do outro dia forem inseridos

E você quer criar esse campo na própria tambem importada? Mas se elas tem a data no próprio nome, não seria mais prático apenas carregar uma listbox por exemplo com os nomes delas quando quisesse visualizar isso?

a ideia é comparar as tabelas pelo dia
por exemplo: os dados do dia 16 agrupam os dias anteriores pra saber o que de fato aconteceu no dia 16 tenho que diminuir o dia, ou seja 16 menos o 15

Ainda não entendi bem a necessidade. Tente detalhar todo o processo.

os arquivos são disponibilizados diariamente, preciso comparar os arquivos
o que muda é a data do processamento, no entanto dentro da planilha não consta o dia que foi processado essa informação só vem no nome do arquivo, por isso a necessidade de inserir a data na tabela

obrigado.

Então, se você só precisa da data e tem a data no nome da tabela, não há necessidade de mais tabelas, de mais dados ocupando espaços, etc e tal. Você só precisa de uma listbox para carregar a lista das tabelas. Se a intenção é comparar os dados das tabelas, tambem não precisa de outra tabela, você pode ter duas listboxes ou dois subformulários para carregar, cada um, os dados de uma das tabelas e fazer a comparação.

é uma otima dica! no entanto a duvida permanece teria como vc explicar como copiar a data do nome da tabela e inserir nela mesma?

valeu pela dica!

Veja um exemplo anexo aonde eu adicionei 10 tabelas com nomes iguais aos seus. Observe no evento "Ao carregar" do formulário como defino o rowsource das combos para buscar, na tabela MSysObject, que é a tabela que armazena os dados sobre os elementos do banco, tais como tabelas, consultas, formulários, etc. Cada elemento tem seu Name e seu ParentId. No nosso caso, Name é o nome da tabela e ParentID é a ID atribuída às tabelas, que nesse caso é 251658241. Então selecionamos os elementos com nomes iniciados em "Controle_", ou seja, com os 9 primeiros dígitos, os da esquerda(Left), sendo "Controle_" e que tenha ParentID = "251658241". Depois, na hora de popular os subformulários, usamos esses dados.

estou baixando o exemplo e em breve retorno, valeu pela ajuda

funcionou perfeitamente, muito alem do que eu pensava
aprendi muito com seu exemplo valeu pela dica e pela paciencia.

valeu!

Grato pelo retorno. O fórum agradece.