FSOでエクセルファイルを作成したい

質問

FSOでエクセルファイルを作成したいのですが、
ファイルの作成はできますが、作成したファイルが開けません。

Sub 新規Excelファイルを作成する()
Dim MyFile As String
Dim myFSO As Object

MyFile = "管理簿.xlsx"

Set myFSO = CreateObject("Scripting.FileSystemObject")
With myFSO.CreateTextFile("C:\" & MyFile)
.Close
End With
Set myFSO = Nothing

End Sub

で、エラーにならずうまくいっています。

が、その出来上がったファイルを開こうとすると
「ファイル形式またはファイル拡張子が正しくありません」
と言う旨のメッセージが表示されます。

何が間違ってますか？
よろしくお願いします。

回答No.3

mitarashi · ベストアンサー

下記でお勉強して、テキストファイル（複数）に情報を書き込んで、フォルダ丸ごとZIP圧縮して、拡張子を.XLSXにすればエクセルで開けるかも。
http://www.ecma-international.org/publications/standards/Ecma-376.htm

真っ新のWorkbookを作成し、Sheet1のA1セルに「Hello World!」と入力して、XLSX形式で保存します。ファイル名のXLSXの後ろに.ZIPをつけて改名した後に解凍します。複数のXMLファイルが出来ますが、sharedStrings.xmlの中に、Hello World!が見つかりました。sheet1.xmlの中ではないんですね。

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<sst xmlns="http://schemas.openxmlformats.org/spreadsheetml/2006/main" count="1" uniqueCount="1"><si><t>Hello World!</t><phoneticPr fontId="1"/></si></sst>

Sheetが3個あるWorkbookの場合で、8個のXMLファイルを作ってやる必要がありますね。
お暇な方は年末年始休みにでもテキストファイルで作成してみてはいかがでしょうか。

お礼

ご回答ありがとうございました。

回答No.2

aozakana_dha

それはテキストファイルを作成しているだけなので
拡張子だけ変えてもExcelのファイルにはなりません。

Scripting.FileSystemObjectでExcelワークシートのファイルを作成するのはたぶん無理です。
Excel.Applicationを使う必要があるかと思います。

お礼

ご回答ありがとうございました。

回答No.1

bin-chan

> 何が間違ってますか？

> With myFSO.CreateTextFile("C:\" & MyFile)
できあがったファイルサイズは0バイトでしょ。
拡張子は 'xlsx' ですが、テキストファイルをクリエイトしてる。

サンプルは
CreateObject("Excel.Application")
で検索

お礼

ご回答ありがとうございました。