VBを始めて半年くらいのものです。

VBから任意のCSVファイルをExcelで読み込み、
ファイルの種類を変更してエクセルのファイル形式にして保存したいのですが、
どうしてもできません。

CSVファイルを読み込むところはできたのですがファイル形式（CSV→XLS）の変更がうまくいきません
。
ご教授お願いします。

ソースは
'CSVファイルの読込
    '拡張子を変更してファイルをコピー
    FileName = Mid(Text1.Text, 1, Len(Text1.Text) - 3) & "txt"
    FileCopy Text1.Text, FileName
    Set xlApp = New Excel.Application
    xlApp.Workbooks.OpenText FileName:=FileName, _
        DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        Comma:=True, FieldInfo:=Array(Array(1, xlTextFormat), _
        Array(2, xlTextFormat), Array(3, xlTextFormat), _
        Array(4, xlTextFormat), Array(5, xlYMDFormat), _
        Array(6, xlGeneralFormat), Array(7, xlGeneralFormat), _
        Array(8, xlGeneralFormat))
    xlApp.Cells.Select                  '入力データの幅にセルの幅を
    Selection.ColumnWidth = 10          '幅10
    xlApp.Range("A1").Select            'ホームポジションに移動
    xlApp.DisplayAlerts = False
    xlApp.Visible = True                'Excelを表示
---------------ここに形式の変更をいれたい---------------------

>CSVファイルを読み込むところはできたのですがファイル形式（CSV→XLS）の変更がうまくいきません
いちいちプログラム解析する気はありませんので『うまくいかない』ではなく
状況をきちんと伝えて下さい。そもそも xlApp を使っている時点でファイル形式は
エクセルのものになってる気がしますが？でなければセル幅の変更など設定できる
わけがないのでは？当然の事ですがＣＳＶ形式にセルなどという概念はありません。

普通に保存してみて下さい。都合が悪い動きがあるなら他人が読んで理解できるように
説明して下さい。

> >CSVファイルを読み込むところはできたのですがファイル形式（CSV→XLS）の変更がうまくいき
ません
> いちいちプログラム解析する気はありませんので『うまくいかない』ではなく
> 状況をきちんと伝えて下さい。そもそも xlApp を使っている時点でファイル形式は
> エクセルのものになってる気がしますが？でなければセル幅の変更など設定できる
> わけがないのでは？当然の事ですがＣＳＶ形式にセルなどという概念はありません。
>
> 普通に保存してみて下さい。都合が悪い動きがあるなら他人が読んで理解できるように
> 説明して下さい。
ファイルの種類をxlsで保存したかったのです。
    ActiveWorkbook.SaveAs FileName:=FileNameXL, FileFormat:=[xlExcel9795]
で自己解決しました。
ありがとうございました。