Microsoft Excel - Dicas e truques passo a passo

Gravando os campos de uma tabela em uma planilha Excel

1. Primeiro adicione a referência do Excel;
2. Digite a rotina a seguir:

Set db = Ws.OpenDataBase("nome_banco_dados.mdb")
Set Rs = Db.OpenRecordSet("Nome_tabela")
Dim XlApp As New Excel.Application
Xlapp.WorkBooks.Open "arquivo.xls"
Xlapp.Range(A1) Select
Xlapp.ActiveCell.Value=Rs("nome_campo")
Xlapp.ActiveWorkbooks.Save
Xlapp.Workbooks.Close

Principal | Cursos Gratuitos | Cursos Diversos | Dicas | Promoções | Mapa do Site | QUIZ |
| Classificados | Central Currículo | Fórum | Fale Conosco