Olá!

Quem puder me ajudar. Estou a dias tentando colocar numa macro, que o arquivo em csv que ela está puxando via importação de dados de texto deixe de ser de uma origem fixa e passe ser de onde a planilha ativa estiver salva. Isto vai salvar a minha vida pois compartilharei esta planilha principal na empresa e darei a orientação aos funcionários que rodem a macro quando tiverem salvo as bases que serão importadas, no mesmo local onde está a pasta de trabalho

Na macro está mais ou menos assim:

Sub IMPORTA_BASES()
'
' IMPORTA_BASES Macro
'

'
Sheets("BASE 360").Select
Columns("K:R").Select
Selection.ClearContents
Range("K1").Select
ActiveSheet.Unprotect
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:VALIDADOR VENDASVIVO360.csv", Destination:=Range("$K$1"))
.Name = "VIVO360"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 1252
.TextFileStartRow = 2
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With

Eu não quero que o seguinte caminho seja fixo: "C:VALIDADOR VENDAS", quero que a macro carregue o arquivo de onde está a pasta principal

Desde já agradeço

Thiago