Excel 2007 salvar etapas de importação no arquivo csv?

Question

Eu tenho um arquivo csv que constantemente precisa ser aberto no Excel e depois ter os dados copiados para uma pasta de trabalho separada.

Eu acho o processo de ter que clicar em todos os diálogos, definindo o identificador de texto, definindo as colunas para que tudo seja um texto extremamente tedioso.

Em muitas ações com dados como este em relação ao MSSQL ou Access, o programa perguntará se você deseja salvar essas etapas, no entanto, o Excel não solicita isso imediatamente.

Existe alguma maneira de obter um uso comparável com o Excel?

    

Answer 1

Depois de importar os dados, você pode selecionar o intervalo de dados, clicar com o botão direito e selecionar "Atualizar dados" .

Isso solicitará um arquivo e insere os dados atualizados sem precisar passar por todas as etapas mencionadas acima.

Funciona no Office 2011 para OS X, mas deve também funcionar em versões anteriores do Windows.

    

Answer 2

Use o gravador de macros e grave tudo em uma macro.

Aqui está o que eu obtive quando eu macroei uma importação comum da minha:

With ActiveSheet.QueryTables.Add(Connection:="TEXT;E:\AEP_out.txt", _
    Destination:=Range("A1"))
    .Name = "AEP_out"
    .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 = xlFixedWidth
    .TextFileTextQualifier = xlTextQualifierDoubleQuote
    .TextFileConsecutiveDelimiter = False
    .TextFileTabDelimiter = True
    .TextFileSemicolonDelimiter = False
    .TextFileCommaDelimiter = False
    .TextFileSpaceDelimiter = False
    .TextFileColumnDataTypes = Array(2, 1, 1, 1)
    .TextFileFixedColumnWidths = Array(27, 16, 22)
    .TextFileTrailingMinusNumbers = True
    .Refresh BackgroundQuery:=False
End With