Power Query no Excel
comentada em 08/09/2019 23:00

Sei como fazer algo assim com Python. Qualquer coisa posto a solução aqui mais tarde se for de interesse. Agora tou no celular e não dá pra testar a solução. 

Depois de fuçar um pouco mais eu consegui fazer.
Mas acharia legal ver como faz com o Python... se puder postar eu agradeço.

@FabioGama eu já fiz algo assim no trabalho. Tinha vários arquivos .csv no qual a primeira linha era lixo. A primeira coluna de todos eles eram iguais, então meu programa só pegava a segunda coluna de cada .csv e ia adicionando ao .xlsx em sequência. O resultado era a primeira coluna sendo a primeira coluna de qualquer csv, pois todas eram iguais, e da segunda coluna em diante os dados de cada .csv. É mais ou menos isso que você quer fazer? Ou quer sair copiando todas as colunas e adicionando ao xlsx final?

Manda um exemplo de como é esse seu csv que eu preparo uma solução aqui. 

Tava brincando aqui e já preparei uma solução. Em vez de adicionar colunas, o programa adiciona linhas num xlsx final. 

Criei vários csv assim:



E o programa fez isso, criando um arquivo xlsx:



Pode não ser bem o que você quer mas é só adaptar a solução pra forma que você quer.

Não sei teu nível de entendimento de Python mas com os posts que ando postando aqui dá pra entender basicamente todo o código abaixo. Deixei tudo comentado:

import csv
import xlsxwriter
from glob import glob

# Pega todos os arquivos da pasta em formato csv
csv_files = glob('*.csv')

# Cria um dicionário que agrupará os dados de cada csv
data = dict()

# Itera sobre cada csv
for csv_file in csv_files:

    # Abre cada csv
    with open(csv_file, 'r') as csv_f:

        # Lê os dados de cada csv
        read_csv = csv.reader(csv_f, delimiter=',')

        # Itera sobre cada linha do csv
        for i, row in enumerate(read_csv):

            # Exclui a primeira linha
            if i > 0:

                # Adiciona ao dicionário os dados
                data[row[0]] = row[1]


# Cria um arquivo xlsx
workbook = xlsxwriter.Workbook('compilado.xlsx')

# Cria uma planilha dentro do xlsx
worksheet = workbook.add_worksheet()

# Cria variáveis que serão as linhas e colunas do xlsx
row = col = 0

# Itera sobre cada chave e valor do dicionário de dados
for k, v in data.items():

    # Escreve a chave na linha e na coluna
    worksheet.write(row, col, k)

    # Escreve o valor na coluna ao lado da chave
    worksheet.write(row, col + 1, v)

    # Soma mais um às linhas, para continuar escrevendo a partir da linh seguinte
    row += 1

# Fecha a planilha
workbook.close()

Se quiser que eu explique com detalhes o código, só dizer. Mas o resultado prático é ir adicionando linhas de vários csv diferentes a um único xlsx.

Fala @FabioGama ! Junta tudo no Access foi feito para isso ! Depois processa no Excel.

primeiro  "Importar Arquivos". Depois Junta com SQL .

Não achei formatar como código ???

Não eh preciso usar VBA o Excel le banco de dados access.

Inclusive podemos vincular uma tabela dinamica a uma query do Access ( ai faz 1 vez só)

Mas se quiser :

Sub conecta11(letra, number1)

' Usando ADODB.Connection baixa dados de tabelas Access com SQL

Dim connst, dtb1, qdef1

Set objConnection = CreateObject("ADODB.Connection")
Set objRecordset = CreateObject("ADODB.Recordset")

dtb1 = Left(ThisWorkbook.FullName, 2) & "\VBA\BDatendimentos.accdb"
connst = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & dtb1 & ";Persist Security Info=False;"

objConnection.Open connst

qdef1 = "Select * FROM Tabmes"
objRecordset.Open qdef1, objConnection

Sheets("planilha1").Activate
ScreenUpdating = False

Call posta(objRecordset, letra, number1)

objRecordset.Close
objConnection.Close

End Sub

O sub posta é so para parametrizar onde postar, importante é fazer a conexão. ( Connection String )

A utilizada acima é Access 64, Access 32 é

Sub office32str()

objConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Scripts\Test.xls;" & _
"Extended Properties=""Excel 8.0;HDR=Yes;"";"
End Sub

"objConnection.Open connst"

Sub posta(tabdata, letra, numer1)

'posta Recordset na coluna e linha selecionada no form

Dim c, j, LI, RR, LF

c = tabdata.Fields.Count - 1
LI = letra
LF = Chr(Asc(LI) + c)

Range(LI & ":" & LF).ClearContents
Range(LI & ":" & LF).Font.Bold = False

For j = 0 To c
RR = Chr(Asc(LI) + j) & numer1
Range(RR) = tabdata.Fields(j).Name
Range(RR).Font.Bold = True
Next j

Range(LI & numer1 + 1).CopyFromRecordset tabdata

Columns(LI & ":" & LF).EntireColumn.AutoFit


Set objRange = Sheets("Planilha1").Range(LI & numer1).EntireColumn
Set objRange2 = Sheets("Planilha1").Range(LI & numer1)

objRange.TextToColumns objRange2, , , , , True, False

ActiveWorkbook.RefreshAll
ScreenUpdating = True

Range(LI & 1).Select

End Sub

 @Ricardoch2 @ThiagoDV obrigado pelas dicas.

Eu entendo mais ou menos de programação (programei em C na faculdade) mas nunca mexi com Python. Tenho vontade de aprender.

Eu consegui fazer seguindo as dicas desse vídeo:


Acabou sendo até mais fácil que eu achava.

Abraços

@FabioGama Valeu pelo caminho simples !

@FabioGama se tem vontade de aprender Python, segue a trilha de posts que tou fazendo por aqui. É um bom começo. 

@ThiagoDV com certeza vai ser por esses posts que eu vou começar. Muito legais!