Excel SaveAs from Access Error

[JeepNC]

I have the following code running trying to open an excel sheet, change the formatting on a column and then save the sheet as a text file. When it gets to the SaveAs I get an error message: SaveAs Method of Workbook Class Failed. I have narrowed it down to the FileFormat:xlText as the culprit, if you take out the file format it saves fine, but the file is just garbage. Any ideas as to what the problem is?
Thanks!

Dim xlx As Object, xlw As Object, xls As Object, xlc As Object

Set xlx = CreateObject("excel.application")
xlx.Visible = True
Set xlw = xlx.workbooks.Open("C:\book1.xls")
Set xls = xlw.worksheets("sheet1")
xls.Columns("K:K").NumberFormat = "0"
xlw.SaveAs Filename:="C:\Book1.txt", _
FileFormat:=xlText, CreateBackup:=False
Set xlc = Nothing
Set xls = Nothing
xlw.Close False
Set xlw = Nothing
xlx.Quit
Set xlx = Nothing

[Comintern]

You can always bypass Excel's SaveAs method entirely and write a .csv youself something like this:

Private Sub TestCSV()
 
Call OutputCSV(Application.ActiveSheet, "C:\Test.csv")
 
End Sub
 
Private Sub OutputCSV(oSheet As Excel.Worksheet, sFilename As String)
 
    Dim iFile As Integer
    Dim sLine As String
    Dim lCol As Long
    Dim lRow As Long
    
    iFile = FreeFile
    
    Open sFilename For Output As #iFile
    
    For lRow = oSheet.UsedRange.Row To oSheet.UsedRange.Rows.Count
        For lCol = oSheet.UsedRange.Column To oSheet.UsedRange.Columns.Count
            sLine = sLine & oSheet.Cells(lRow, lCol) & ","
        Next lCol
        Print #iFile, sLine
        sLine = vbNullString
    Next lRow
    
    Close #iFile
 
End Sub

[Comintern]

Any ideas as to what the problem is?

BTW, when you save a book to a flat file, it can only have one sheet.