☰

Excel: altere a fonte de dados com macro

tag-icon • tag-icon microsoft-excel vba csv
Excel: altere a fonte de dados com macro

Estou usando um arquivo CSV (gerado por um programa de festa) como fonte de dados externa e gostaria de alterar seu caminho de uma macro... Como posso fazer isso?

Outra resposta aceitável para o meu problema seria uma maneira de especificar um caminho relativo ao arquivo Excel - não descobri como - visto que, no meu caso, tanto o csv quanto o xls estão no mesmo diretório.

Responder1

Sub Import()
    Dim FilePath As String
    FilePath = "TEXT;C:\directory\" & Cells(1, 1).Value
    ActiveWorkbook.Worksheets.Add
    With ActiveSheet.QueryTables.Add(Connection:=FilePath, Destination:=Range("$A$1"))
        .Name = "Book1"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 437
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With

End Sub

Isso criará uma nova planilha com os dados quando você colocar o arquivo (book3.csv por exemplo) na planilha1 A1; você altera C:\directory para o diretório no qual sua entrada existe e pode alterar o intervalo de saída na linha 5 "Range"

Além disso, a linha 3 "Cells(1,1) indica a célula de entrada, então você pode alterá-la da Plan1 A1 se desejar. Você precisa indicar a extensão do arquivo na célula de referência, caso contrário não saberá qual arquivo usar importar. Basta executar esta macro e você obterá uma nova planilha com os dados de destino. Se precisar de uma nova pasta de trabalho ou inseri-la em uma planilha existente, me avise.

Além disso, se você observar as propriedades, este é um arquivo delimitado por vírgula, você pode alterar isso ou apenas gravar sua própria macro (guia desenvolvedor -> gravar macro) e inserir os comandos do tipo FilePath na parte superior e alterar o comando de conexão

informação relacionada