Obtendo dados de arquivos fechados com fórmula de concatenação

Question

A cada dia, um programa está criando um arquivo do Excel para mim com alguns dados para o dia atual. Qual é o preço dos produtos, quantas pessoas estão disponíveis hoje e coisas assim.

Com base em tudo isso, preciso fazer algumas previsões e alocações no local de trabalho para os trabalhadores. O problema é que eu preciso arrastar todas essas informações manualmente o tempo todo. Então, para torná-lo automático, coloquei a fórmula em células como:

='c:\ABC\[ABC 29-01-14.xlsx]sheet'!a1

Tudo funciona bem, mas no dia seguinte eu tenho que mudar o nome do arquivo para " ABC 30-01-14 " para cada célula, o que é o mesmo que inserir os dados manualmente.

Então usei a fórmula " concatenate " para alterar a data de acordo com a data de hoje automaticamente. Eu usei a fórmula " indirect " para transformá-la em uma fórmula real, não em string de texto, e percebi que ela está funcionando apenas para arquivos abertos, não fechados.

Existe alguma maneira de fazer isso para arquivos fechados sem o VBA, porque eu não sei, ou com o VBA, mas explicado por um idiota.

    

Answer 1

Por isso, estou pesquisando isso, porque para um enorme documento do Excel (puxando cerca de 50 células por semana em um único documento que se estende por um ano e meio)

Eu consegui extrair os dados de pastas de trabalho fechadas (excel 2013 e 2016), mas agora, em um novo documento, estou tendo problemas para fazer isso.

A maneira que eu era capaz de fazer isso anteriormente, era criar uma fórmula concatenada, ter uma cópia macro para cada novo mês fazer uma nova linha como valores, em seguida, executando um trecho (meus agradecimentos ao assistente do fórum não identificado que forneceu ele envelhece) dentro da macro para remover os apóstrofos iniciais e, em seguida, arrastar as fórmulas para cada célula.

Como você tem acima, você precisa ter certeza de que é o caminho relativo completo ( 'c:\abc\[abcdoc.xlsx]sheet' ).

Snippet:

'Removes Apostrophes from A14:AR14
    Range("A14:AI14").Select
' Removes hidden apostrophes as first character
' Works on formulas as well as text and values
    For Each CurrentCell In Selection
    If CurrentCell.HasFormula = False Then

'Checks to make sure that procedure does not
'change cell with a formula to be only the value
    CurrentCell.Formula = CurrentCell.Value
    End If
    Next