Tecnologia

Como atualizar uma planilha do Access

Escrito por jaime avelar | Traduzido por césar campos
Como atualizar uma planilha do Access

Exporte dados do Access para o Excel

Ryan McVay/Photodisc/Getty Images

O Access e o Excel da Microsoft andam quase paralelamente ao desenvolverem aplicativos de banco de dados no Access. Os usuários adoram analisar dados utilizando o Excel e você pode dar a eles essa funcionalidade, atualizando as planilhas do Access, onde é possível usar o programa "Visual Basic for Applications" (VBA) para abrir uma planilha do Excel e atualizá-la com dados dinamicamente. No VBA, pode-se usar a biblioteca de objetos do Microsoft Excel para manipular os respectivos objetos.

Nível de dificuldade:
Moderado

Outras pessoas estão lendo

Instruções

  1. 1

    Clique na guia "Ferramentas de Banco de Dados", em "Visual Basic", e no menu "Inserir". Clique em "Módulo" para inserir um novo módulo de código VBA.

  2. 2

    Clique no menu "Ferramentas" e em "Referências". Marque a caixa perto de "Microsoft Excel < número versão > Biblioteca de Objetos" e clique em "OK", para adicionar a referência.

  3. 3

    Comece digitando o seguinte código para criar um novo procedimento "sub": Private Sub updateSpreadSheet() On Error GoTo Err_updateSpreadSheet:

  4. 4

    Digite o código a seguir para criar objetos da pasta de trabalho e da planilha: Dim wkBkObj As Excel.Workbook Dim XLSheet As Excel.Worksheet

  5. 5

    Abra uma pasta de trabalho do Excel já existente e use “Planilha1” como o documento a ser atualizado, adicionando o seguinte código: Set wkBkObj = Workbooks.Open("C:\mySpreadsheet.xlsx") Set XLSheet = wkBkObj.Worksheets("Sheet1") wkBkObj.Windows(1).Visible = True

  6. 6

    Adicione o seguinte código VBA para atualizar a célula A1 da planilha: With XLSheet .Range("A1").Select .Range("A1").Value = "updated value from Access" End With

  7. 7

    Salve, feche a pasta de trabalho do Excel e conclua o procedimento adicionando código a seguir: wkBkObj.Save wkBkObj.Close Exit_updateSpreadSheet: Exit Sub Err_updateSpreadSheet: MsgBox Err.Description Resume Exit_updateSpreadSheet: End Sub

  8. 8

    Pressione "F5" para executar o procedimento e atualizar a planilha.

Não deixe de ver

Comentários

Filtro:
  • Geral
  • Artigos
  • Slides
  • Vídeos
Mostrar:
  • Mais relevantes
  • Mais lidos
  • Mais recentes

Nenhum artigo disponível

Nenhum slide disponível

Nenhum vídeo disponível

Direitos autorais © 1999-2014 Demand Media, Inc.

O uso deste site constitui plena aceitação dos Termos de Uso e Política de privacidade de eHow. Ad Choices pt-BR

Demand Media