Excel Exporting Question

[ada]

'
***********************************************************
*******
' Copy contents into Clip-Board
Dim objExcel
ptable.copy(ptable.selection)
'
***********************************************************
*******
' Open the file inside an instance of Excel
Set objExcel = CreateObject
("Excel.Application")
objExcel.Application.Visible = true
objExcel.workbooks.Add
objExcel.workbooks(1).Worksheets(1).Paste
objExcel.workbooks(1).Worksheets(1).Range
("A1").AutoFormat