EXPORTAR DADOS PARA OUTRA PASTA DE TRABALHO

Citação:

:
Como aplico esse código. Coloquei-o mas, não tá alimentando. Estou postando o arquivo para análise se possível.

Citação:

1) Ler os dados da planilha exportar dados.xlsm
2) Organizar esses dados na memória

  Option Explicit
[ô]
[ô]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

Private Type tSaida
    Cidade          As String
    AbaF()          As tDados
    AbaK()          As tDados
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)
        [ô]
        [ô]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
    [ô]
    [ô]Chama função que organizará os dados
    OrganizaDados vDados
    [ô]
End Sub

Private Sub OrganizaDados(vDados() As tDados)
    Dim iIndice         As Integer
    Dim iAbaF           As Integer
    Dim iAbaK           As Integer
    Dim iLinhas         As Integer
    Dim vSaida()        As tSaida
    Dim sCidade         As String
    Dim bTrocouCidade   As Boolean
    [ô]
    iIndice = -1
    iAbaF = 0
    iAbaK = 0
    sCidade = [Ô][Ô]
    bTrocouCidade = False
    [ô]
    For iLinhas = 0 To UBound(vDados)
        [ô]
        bTrocouCidade = False
        [ô]
        If vDados(iLinhas).Cidade <> sCidade Then
            [ô]Aumenta o tamanho do nosso vetor
            ReDim Preserve vSaida(iIndice + 1)
            iIndice = iIndice + 1
            [ô]
            vSaida(iIndice).Cidade = vDados(iLinhas).Cidade
            sCidade = vSaida(iIndice).Cidade
            [ô]
            iAbaF = 0
            iAbaK = 0
            [ô]
        End If
        [ô]
        [ô]Verifica se o Centro de Custo começa com o numero 7
        If InStr(1, vDados(iLinhas).CentroCusto, [Ô]7[Ô]) = 1 Then
            [ô]
            [ô]Aumenta o tamanho do nosso vetor
            ReDim Preserve vSaida(iIndice).AbaF(iAbaF)
            [ô]
            vSaida(iIndice).AbaF(iAbaF).CentroCusto = vDados(iLinhas).CentroCusto
            vSaida(iIndice).AbaF(iAbaF).Item = vDados(iLinhas).Item
            vSaida(iIndice).AbaF(iAbaF).SomaTotal = vDados(iLinhas).SomaTotal
            [ô]
            iAbaF = iAbaF + 1
            [ô]
        [ô]Verifica se o Centro de Custo começa com o numero 1
        ElseIf InStr(1, vDados(iLinhas).CentroCusto, [Ô]1[Ô]) = 1 Then
            
            [ô]Aumenta o tamanho do nosso vetor
            ReDim Preserve vSaida(iIndice).AbaK(iAbaK)
            [ô]
            vSaida(iIndice).AbaK(iAbaK).CentroCusto = vDados(iLinhas).CentroCusto
            vSaida(iIndice).AbaK(iAbaK).Item = vDados(iLinhas).Item
            vSaida(iIndice).AbaK(iAbaK).SomaTotal = vDados(iLinhas).SomaTotal
            [ô]
            iAbaK = iAbaK + 1
            [ô]
        End If
        [ô]
    Next
    [ô]
End Sub