| Mensagem : |
Eu estava com este mesmo problema.
Resolvi da seguinte forma.
Public XL As Excel.Application
While adocCotacao.Recordset.EOF = False
Set XL = CreateObject("Excel.Application")
XL.Visible = True
XL.Workbooks.Add
monto a planilha
'
'
'
XL.ActiveWorkbook.SaveAs FileName:= "nome da planilha & ".xls"
XL.Workbooks.Close
XL.Application.Quit
XL.Quit
Set XL = Nothing
adoccotacao.recordset.movenext
wend
Ou seja. a cada registro que eu leio eu gero uma planilha.
O que acontecia era que na primeira ele fazia certo na segunda dava erro.
Eu resolvi da seguinte forma (não sei se é o seu caso). Sempre que eu me refereciava a alguma coisa da planilha eu não estava colocando o XL (que é Excel.Aplication) eu fazia assim:
Worbooks.add
'
'
ActiveWorkbook.SaveAs FileName:= "nome da planilha & ".xls"
Workbooks.close
'
'
funcionava na primeira, nas outras não.
eu resolvi colocando assim
XL. Worbooks.add
XL. ActiveWorkbook.SaveAs FileName:= "nome da planilha & ".xls"
XL. Workbooks.close
Espero ter ajudado.
|
excel por antoniosampaio em 10/3/2010 17:43:41
