Sub ASCIItoXLS()
 
        oStream = oFSO.CreateTextFile("C:\Test\file.xls", True)
        oStream.Close()
 
        Dim xlapp As Excel.Application
        Dim xlwbBook As Excel.Workbook
 
        xlapp = CreateObject("Excel.Application")
        xlwbBook = xlapp.Workbooks.Open("C:\Test\file.xls")
        xlapp.Visible = True
 
End Sub

Liebe Gr?sse,
Simon