|
|
|
|
 |
Título da Dica: Gerar planilha
|
 |
|
|
|
Postada em 15/9/2003 por MAC
'Para alguém que tenha dúvida em gerar uma planilha através do
'CreateObject vai uma dica.
referencie seu projeto com o MS Excel
'segue procedimento
dim oExcel as object
Set oExcel = CreateObject("Excel.Application")
With oExcel
.Workbooks.Add
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''colocar o código aqui gerado''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
.Workbooks(1).SaveAs ("C:\Excelgerado.xls")
.Workbooks(1).Close
.Quit
End With
'no excel, em uma planilha qualquer abrar o gravador de macro
'e inicie o mesmo, faça no excel para obter o que vc deseja
'q o acces gere, apos criado a macro, abrar o editor de código
'e edite a macro, copie todo o conteúdo e exporte para o local o
'qual indiquei dentro do CreateObject, alguma linha poderá
'vim a dar um erro, anule ou tente corrigi-lá.
'' eu fiz desta forma e o meus aplicativos funcionam perfeitamente
Set oExcel = Nothing
|
|
|
|
|
