Criar planilha Excel através do Microsoft Access
Adquira a assinatura vitalícia do site e passe a ter acesso aos arquivos exemplos, vídeos, revistas, livros e ao kit de montagem de ribbons. Você terá suporte por e-mail, caso necessite tirar dúvidas pontuais. Clique AQUI e veja como obter um dos nossos planos. Clique AQUI e faça uma visita a seção Downloads do site e verifique as centenas de arquivos que estará à sua disposição. Clique AQUI e faça uma visita a seção Vídeos do site e veja a lista que estará disponível ao se tornar o nosso assinante vitalício. Clique AQUI e saiba mais detalhes sobre o kit de montagem de ribbons (deixe seus aplicativos com aspecto profissional).
Acompanhe, atentamente, os comentários do código e veja como é simples criar uma planilha do Excel e introduzir dados às Células desejadas:
Public Sub fncCriarPlanilha()
Dim xlApp As Object
Dim wkb As Object
Dim objSheet As Object
'Abre o Excel
Set xlApp = CreateObject("excel.application")
'Torna o aplicativo Excel visível
xlApp.Application.Visible = True
'Cria a planilha
Set wkb = xlApp.workbooks.Add
'seleciona a primeira planilha Set objSheet = xlApp.Activeworkbook.sheets(1) objSheet.Activate 'Insere os dados nas células desejadas objSheet.cells(1, 3).Value = "Nome do Cliente" objSheet.cells(2, 3).Value = "Avelino Sampaio" 'Ajusta o tamanho das colunas objSheet.columns.autofit 'Salva a planilha no formato 97-2003 wkb.saveas FileName:=CurrentProject.Path & "\ListaClientes.xls", FileFormat:=56 'Fecha tudo wkb.Close Set objSheet = Nothing Set wkb = Nothing xlApp.Quit Set xlApp = Nothing MsgBox "A planilha foi criada...", vbInformation, "Aviso" End Sub
Vamos supor agora, que você queira inserir dados neste arquivo já criado (ListaClientes.xls), mas na segunda planilha (Planilha2). Acompanhe os comentários do código:
Public Sub fncAlterarPlanilha()
Dim xlApp As Object
Dim wkb As Object
Dim objSheet As Object
'Abre o Excel
Set xlApp = CreateObject("excel.application")
'Torna o aplicativo Excel visível
xlApp.Application.Visible = True
'Abre o arquivo ListaClientes.xls
Set wkb = xlApp.workbooks.Open(CurrentProject.Path & "\ListaClientes.xls")
'Adiciona uma segunda planilha ao arquivo
wkb.sheets.Add
'Variável objSheet assume a segunda planilha.
'Insira o nome padrão fornecido pelo Excel (plan2 ou Planilha2)
Set objSheet = xlApp.Activeworkbook.sheets("planilha2")
'Altera o nome da planilha
objSheet.Name = "ClientesDesativados"
'Seleciona a segunda planilha objSheet.Activate 'Insere os dados nas células desejadas objSheet.cells(1, 1).Value = "Nome do Cliente" objSheet.cells(2, 1).Value = "Luiz Henrique" 'Ajusta o tamanho das colunas objSheet.columns.autofit 'Salva a planilha wkb.Save 'Fecha tudo wkb.Close Set objSheet = Nothing Set wkb = Nothing xlApp.Quit Set xlApp = Nothing MsgBox "A planilha foi atualizada...", vbInformation, "Aviso" End Sub
Bom estudo!
Os dez artigos mais visitados
MontaRibbons v.7.0 - Assistente completo para criar ribbons no Access
Vídeo - Controle personalizado de Acesso de Usuários
Vídeo - Segurança máxima, usando o OPEN
Trabalhando com Registros - DAO e ADO
Uma ajuda para quem está começando um negócio ou um projeto
Vídeo - Aprenda sobre filtragens
Adquira o kit UsandoAccess e aprenda em alta velocidade
Vídeo - Programação de relatórios - Parte 1
Integrando o Access com Servidor MySQL - Introdução
Desabilitando a faixa(ribbon) superior do Access
|
2 comentário(s) Avelino Sampaio 22/11/2019 02:58:58 Ricardo Eu usaria um laço para abrir um arquivo por vez e então realizar a atualização. Pode usar o DIR() para isso. Algo assim: Dim strArquivo$ strArquivo = Dir("c:\NomeDaSuaPasta\", vbArchive) Do While Not strArquivo = "" ‘aqui vc abre o arquivo excel e faz a alteração strArquivo = Dir ‘pula para o arquivo seguinte Loop Nota: Deve ficar um processo relativamente demorado. Faça primeiro uma experiência com uns 10 arquivos e marque o tempo. Sucesso! JEFFERSON APARECIDO XAVIER ALMEIDA 21/08/2018 12:42:59 Muito boa essa dica. Como faço para salvar nos formatos do Excel 2010/2013? |