Ir para conteúdo

BABOO e KTS 2018 no YouTube Loja online do BABOO

Jamesjim

Participante
  • Postagens

    1
  • Desde

  • Última visita

Perfil

  • Escolaridade
    Mestrado
  • Área Profissional
    Comercial / Vendas
  • Nível Profissional
    Gerente
  • Estado
    Minas Gerais
  • Sexo
    masculino
  1. 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 VENDAS\VIVO360.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
×