FileSystemObjectでエクセル作成

質問

エクセル２００３です。

Sub test()
Dim FSO As Object

Set FSO = CreateObject("Scripting.FileSystemObject")
With FSO.CreateTextFile("C:\test.xls")
.Close
End With
Set FSO = Nothing

End Sub

これでエクセルファイルを作成することが出来るのですが
サイズが0KBであり、中身を開いて文字を入れて保存しようとすると
「テキスト（タブ区切り）と互換性のない機能が含まれている可能性があります」
と言うメッセージが表示されます。

普通のエクセルファイルとは違うファイルが作成されてしまってるのでしょうか？
CSVファイルではなく普通のエクセルファイルをFileSystemObjectで作成する方法をご教授ください。

回答No.1

IDii24 · ベストアンサー

FileSystemObjectはテキストファイルを操るオブジェクトです。エクセルを作りたければエクセルのオブジェクトを使う必要があります。
CreateObject("Excel.Application")など。あるいはExcelを参照させてもよいです。そのあとはExcelのオブジェクトのルールでブックを作成し、シートを作成する事になります。

お礼

エクセルファイルを作る時は
FileSystemObjectを作るのではなく
CreateObjectを使うのですね。　ご回答ありがとうございました。

回答No.2

aoyama984

CreateObject("Scripting.FileSystemObject")_
.CopyFile "C:\Tmp\Book1.xls", "C:\Work\"
空のExcelブックを用意しておいて　必要な時にCOPYする

http://www6.airnet.ne.jp/manyo/xml/office/step4.html
2003用XML形式でもよければ　CreateTextFileでも作成可能

http://mtgpowershell.blogspot.jp/2012/02/excelexcel_20.html
2007以降なら　Open-XML形式を利用できた

お礼

カラのファイルをコピーすればいいのですね。ご回答ありがとうございました。