Eu tenho uma rotina que faz isso, ela segue abaixo simplificada.
If SalDDEStartSession( mlDestiExcel, 'EXCEL', 'Plan1', 'A1', 10000 )
While nCabecalho < 10
Set nCabecalho = nCabecalho + 1
Set sTitulo = 'Coluna:' || SalNumberToStrX( nCabecalho, 0 )
Set sExcelCommand = '[FORMULA( "' || sTitulo || '","R1C' ||
SalNumberToStrX( nColPos, 0 ) || '")]'
Call SalDDESendExecute( hWndForm, 'EXCEL',
'Plan1', 'A1', 10000, sExcelCommand )
!
Call SalTblCopyRows( tblRetorno, ROW_Selected, 0 )
Call SalDDESendExecute( hWndForm, 'EXCEL', 'Plan1', 'A1', 10000,
'[SELECT("R2C1")]' )
Call SalDDESendExecute( hWndForm, 'EXCEL',
'Plan1', 'A1', 10000, '[Paste]' )
Uso ainda varios comandos para formatar as colunas e o texto, caso precise
� s� pedir. Ah! se voc� estiver usando o Office 97 ou superior (n�o tenho
certeza se � a partir do 2000), voc� precisa mudar uma op��o no Excel para
que ele aceite comunica��o DDE.
Espero Ter Ajudado.
Garcia.
_________________________________________________________________________
Voc� podia estar baixando sua musica predileta, enquanto lia esse e-mail.
N�o perca tempo, tenha acesso r�pido a internet com o Super iG.
http://registro.ig.com.br/superig
==============================================
Lista de Centura SQLWindows
Administrador : [EMAIL PROTECTED]
[ http://www.centuraexplorer.com ]
Para sair desta lista mande mensagem para:
[EMAIL PROTECTED] sem nada no Subject e
com o comando a seguir no corpo da msg:
"unsubscribe sqlwin" (sem as aspas)
==============================================
