estou tentando puxar um relatorio no vba excel com o comando abaixo.
se eu executar com o nome do relatorio no qual esta em negrito ele aceita.
Range("A1").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;D:\ESTUDOS\ACCESS\srt50.161210.txt", Destination:=Range("A1"))
Mas ao invés do relatorio ja estar renomeado com a data, eu gostaria que ele puxasse o relatorio com a programação abaixo.
range("A1").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;D:\ESTUDOS\ACCESS\srt50.(format(now(), "ddmmyy".txt")), Destination:=Range("A1"))
utilizando a data do computador, mas ele está dando erro no format "ddmmyy"
Alguem pode me ajudar??
se eu executar com o nome do relatorio no qual esta em negrito ele aceita.
Range("A1").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;D:\ESTUDOS\ACCESS\srt50.161210.txt", Destination:=Range("A1"))
Mas ao invés do relatorio ja estar renomeado com a data, eu gostaria que ele puxasse o relatorio com a programação abaixo.
range("A1").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;D:\ESTUDOS\ACCESS\srt50.(format(now(), "ddmmyy".txt")), Destination:=Range("A1"))
utilizando a data do computador, mas ele está dando erro no format "ddmmyy"
Alguem pode me ajudar??