EXPORTAR DADOS PARA OUTRA PASTA DE TRABALHO

Citação:

:
Transferir as informações da tabela dinâmica para os arquivos respectivos nos campos mostrados no vídeo, de forma que ao clicar no botão de comando do arquivo da tabela dinâmica, alimente as informações necessárias nos outros arquivos externos automaticamente sem a necessidade de abri-los.

    [ô][ô][ô][ô][ô]Definindo objetos
    Dim Alvo As Workbook [ô]A planilha no qual os dados serão colocados
    Dim Fonte As Workbook [ô]A planilha no qual os dados estão
    Dim Alvo_Path As String
    
    [ô][ô][ô][ô][ô]Passando o caminho completo do arquivo na variável [Ô]Alvo_Path[Ô]
    Alvo_Path = [Ô]D:\Pasta\SubPasta\Arquivo.xlsx[Ô]
    Set Alvo = Workbooks.Open(Target_Path)
    Set Fonte = ThisWorkbook
    
    [ô][ô][ô][ô][ô]Agora é possível ler e gravar qualquer coisa, tanto no alvo, quanto no fonte, inclusive passando dados de um para outro

    dados = Fonte.Sheets(1).Cells(1, 1) [ô]Sheets(1) se refere à primeira planilha, pode-se usar o nome dela também, se preferir. [Ô]Cells(1, 1)[Ô], se refere a coluna 1, linha 1
    Alvo.Sheets(1).Cells(1, 1) = dados [ô]o mesmo caso acima, mas ao invés de atribuir o valor à uma variável, estou atribuindo o valor à célula
    
   
    [ô][ô][ô][ô][ô]Fechando e salvando as planilhas
    Alvo.Save
    Fonte.Save
    
    Set Alvo = Nothing

[ô]Enumeracao que guarda os valores das colunas
Private Enum eColunas
    Cidade = 1
    Item = 2
    NumeroServico = 3
    Descricao = 4
    CentroCusto = 5
    SomaTotal = 6
End Enum

[ô]Type para lidar melhor com o vetor
Private Type tDados
    Cidade          As String
    Item            As String
    NumeroServico   As String
    Descricao       As String
    CentroCusto     As String
    SomaTotal       As String
End Type

[ô]Constante que indica a primeira linha que contem os dados que iremos iniciar
Private Const inicioDados = 6


Private Sub CommandButton1_Click()
    Dim objWorkBook         As Workbook
    Dim objWorkSheet        As Worksheet
    Dim objRange            As Range
    [ô]
    Dim vDados()            As tDados
    Dim iIndice             As Integer
    [ô]
    Dim iLinhas             As Integer
    [ô]
    iIndice = 0
    [ô]
    [ô]Workbook = arquivo do excel aberto
    Set objWorkBook = Application.ActiveWorkbook
    [ô]Worksheet = planilha selecionada dentro deste arquivo aberto
    Set objWorkSheet = Application.ActiveSheet
    [ô]UsedRange = intervalo que foi utilizado com dados.
    [ô]é uma boa usar essa propriedade nativa em vez de ficar varrendo a planilha inteira
    Set objRange = objWorkSheet.UsedRange
    [ô]
    [ô]Loop para varrer todas as linhas preenchidas
    [ô]Lembrando que começa na linha [Ô]inicioDados[Ô]
    For iLinhas = inicioDados To objRange.Rows.Count
        [ô]
        [ô]Aumenta o tamanho do nosso vetor
        ReDim Preserve vDados(iIndice + 1)
        [ô]
        [ô]Preenche o vetor com os valores da planilha
        vDados(iIndice).Cidade = objRange(iLinhas, eColunas.Cidade).Value
        vDados(iIndice).Item = objRange(iLinhas, eColunas.Item).Value
        vDados(iIndice).NumeroServico = objRange(iLinhas, eColunas.NumeroServico).Value
        vDados(iIndice).Descricao = objRange(iLinhas, eColunas.Descricao).Value
        vDados(iIndice).CentroCusto = objRange(iLinhas, eColunas.CentroCusto).Value
        vDados(iIndice).SomaTotal = objRange(iLinhas, eColunas.SomaTotal).Value
        [ô]
        iIndice = iIndice + 1
        [ô]
    Next
    [ô]
    [ô]Sempre lembrando de liberar os objetos
    Set objWorkBook = Nothing
    Set objWorkSheet = Nothing
    Set objRange = Nothing
    [ô]
End Sub