🚀 go-pugleaf

Provate cos�:

Private Sub Command1_Click()
Dim Obj As Object

Set Obj = CreateObject("Excel.Application")
Obj.Workbooks.Add
With Obj.ActiveSheet    'Il primo foglio
    .Range("A1").Value = "Pippo" 'Riga 1, Colonna 1
    .Cells(2, 1).Value = 10      'Riga 2, Colonna 1
    .Cells(3, 1).NumberFormat = "dd/mm/yyyy"   'Formato data
    .Cells(3, 1).Value = "28/03/2002"
End With
Obj.ActiveWorkbook.SaveAs App.Path & "\TEST.XLS"
Obj.ActiveWorkbook.Close
Set Obj = Nothing


'**** Abilita la visualizzazione della cartella alla successiva riapertura
da parte di Excel solo per Excel 97 ******
Set Obj = GetObject(App.Path & "\TEST.XLS")
Obj.Windows(1).Visible = True
Obj.Save
Obj.Close
Set Obj = Nothing
'***************************************************************************
*****

End Sub



Stefano


"Santarini Giancarlo" <g.santarini@libero.it> ha scritto nel messaggio
news:iDqm8.54468$1S3.1629988@twister1.libero.it...
> Dal mio programma in VB6 vorrei esportare i dati contenuti in una tabella
> Access in un foglio di lavoro di Excel lanciandolo (e visualizzandolo)
> semplicemente cliccando su un tasto (command).
> Come posso fare?
>
>