"born2achieve" schreef in bericht
...

DEar Friend,
i have tried this, but i cooldnot do this please help me to do this
please
code:

Dim eMessage As String
Dim xlApp As Excel.Application

'AppActivate("Microsoft Excel")
'xlApp = GetObject(, "Excel.Application")
xlApp = CreateObject("Excel.Application")
xlApp.Workbooks.OpenXML("C:\sample .xml")

ChDir("C:\")
xlApp.AlertBeforeOverwriting = False
xlApp.DisplayAlerts = False
xlApp.ActiveWorkbook.SaveAs(Filename:="C:\sample .xls")
xlApp.AlertBeforeOverwriting = True
xlApp.DisplayAlerts = True

If Not xlApp Is Nothing Then
xlApp.Quit()
xlApp = Nothing

End If


You are working with so called 'objects' and you can not assign a value to
an object by saying i.e.
xlApp = CreateObject("Excel.Application")

Instead you should use Set, so for all objects it should be:

Dim xlApp As Excel.Application
Set xlApp = CreateObject("Excel.Application")

....and in the end also:

Set xlApp = Nothing


Please try that and let me know what happens.