none
Mudando conexão Pivot Table Excel RRS feed

  • Pergunta

  • Prezados,

     

    Criei alguns cubos em meu servidor de desenvolvimento. Então criei pontos de acesso aos cubos pelo excel (pivot tables) apontando para os cubos de desenvolvimento e junto a cada um dos usuários, preparei a alguns relatórios para que eles pudessem apenas dar refresh neles quando precisassem da informação até que eu tenha tempo de dar um treinamento mais adequando para cada um.

     

    Agora com a solução pronta e os relatórios desenvolvidos, passei tudo para a produção, porém os relatóris no excel continuam apontando para o desenvolvimento.

     

    Como devo proceder para mudar o data source destes relatórios? Pretendo fazer um "How To" e mandar para os usuários a fim de que cada um possa alterar sua própria conexão.

     

    Muito Obrigado pela ajuda,

     

    Miguel Salles

    segunda-feira, 6 de agosto de 2007 14:11

Respostas

  • 1. Abra o Excel (XP, 2000, 2003, etc)
    2. Abra o arquivo que contem as Pivot Tables que você quer alterar a conexão.
    3. Clique no menu "Ferramentas" (Tools), selecione "Macro", e clique na opção "Editor do Visual Basic" (Visual Basic Editor).
    4. No menu "Inserir" (Insert), clique em "Modulo" (Module)
    5. Na janela do modulo que abrirá copie o seguinte código macro:

     

    Code Snippet
    Option Explicit
     
    Sub ChangeServer()
        Dim sh As Worksheet, qy As QueryTable
        Dim pt As PivotTable, pc As PivotCache
        Dim OldPath As String, NewPath As String
        Dim strOld As String, strNew As String
     
        OldPath = "<Servidor Antigo>"
        NewPath = "<Servidor Novo>"
        For Each sh In ActiveWorkbook.Sheets
            For Each pt In sh.PivotTables
                strOld = pt.PivotCache.Connection
                strNew = Replace(strOld, OldPath, NewPath)
                pt.PivotCache.Connection = strNew
                pt.PivotCache.Refresh
            Next pt
        Next sh
    End Sub

     

     

     

    6. Altere OldPath e NewPath para o nome servidor que você deseja alterar. Se o servidor não for encontrado para o "NewPath", abrirá a janela "Multidimensional Connection Wizard" quando vc for executar o passo 2 desse How To.
    7. No menu "Arquivo" (File), clique em "Fechar e retornar para o Excel" (Close and then return to Microsoft Excel).
    8. Abra o primeiro sheet do seu Excel.
    9. No menu "Ferramentas" (Tolls), selecione "Macro", e clique em "Macros..."
    10. Na lista de macros que irá aparecer, selecione a macro "ChangeServer" e clique em "Executar" (Run)
    11. Após executar a Macro, abrirá uma Dialog Box onde vc pode alterar as conexões com o servidor e os cubos disponíveis.
    12. A Dialog Box abrirá para todas as pivot tables da sua planilha.
    13. Atualize o nome do seu serviro em cada uma das pivot tables. 
    14. Salve sua planilha após verificar se esta trazendo as informações do servidor correto.
    (15. É interessante que vc remova a Macro do seu excel antes de distribuir os relatórios.)

    quarta-feira, 8 de agosto de 2007 11:42