Aplique ou inclua um modelo de folha do Excel no Access MDB

0

Uma colega minha organiza seus dados usando o MSAccess. ela imprime a tabela e a cola em um arquivo excel (mesmos títulos / colunas ,). A planilha do excel faz alguns cálculos e gera uma folha de resumo.

Existe uma maneira de automatizar esse processo?

    
por dassouki 07.04.2010 / 18:40

2 respostas

0

Existem duas maneiras de resolver isso: 1) Crie um relatório no Access que faz tudo o que o Excel faz. Isso é meio óbvio, então vou assumir que há alguma razão para isso não ser feito.

A outra maneira é fazer uma conexão ODBC do Excel para o arquivo mdb. Isso permitirá que o Excel use diretamente a tabela do Access (em tempo real, se necessário). Eu faço isso porque é mais fácil formatar um relatório no Excel vs. Access.

Este link da Microsoft possui um link

Usar esse método requer que você configure o banco de dados como uma fonte de dados. Esse processo não é difícil.

Obtém o item de menu Dados / Importar dados externos / Nova consulta de banco de dados e selecione Nova fonte de dados. Nomeie a 'fonte de dados' Selecione o driver do Microsoft Access (* .mdb) e clique em Conectar. Clique no botão Selecionar para escolher seu banco de dados e clique em OK. Em seguida, escolha sua tabela no banco de dados. Você será perguntado quais colunas incluir. Você pode pegá-los todos. Clique em next e depois em Finish. Escolha um local para o canto superior esquerdo dos dados e pronto.

    
por 07.04.2010 / 20:03
1

Você pode criar uma consulta que possa ser inserida em uma planilha facilmente em vba:

Se você quiser usar um modelo:

Set xlApp = CreateObject("Excel.Application")

xlApp.Visible = False

Set xlWorkbook = xlApp.Workbooks.Open(sTemplate_Full_Folder_Path_and_Template_File_Name, False, xlReadWrite)

Abra um conjunto de registros:

rs.Open Some_Query_Name , CurrentProject.Connection, adOpenKeyset, adLockReadOnly

Coloque os resultados do conjunto de registros no Excel. Eu gosto de usar um nome para o celular.

xlSheet.Range("SomeCellNameInExcel).CopyFromRecordset rs

Você pode colocar os cabeçalhos nas colunas do modelo

    
por 15.05.2010 / 18:09