Usando Access

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

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

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

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 - SysControle - Controle de Usuarios

Vídeo - Programação de relatórios - Parte 1

Desabilitando a faixa(ribbon) superior do Access

Vídeo - Criando Ribbons parte 1  - Conhecendo a estrutura Xml

| Home | Vídeos | Tutoriais | Dicas | Ribbons | Suporte | Downloads | Contato | Artigo |