【VB】【エクセル操作】 SaveAsでエラーが出てしまいます。 - MSN相談箱

VB6.0で作成したソフトの一部でエクセルを操作する箇所があります。

『新しいブックを作成して名前を付けて保存する』ところでエラーが出てしまいます。
Excel2007,2003では正常に動作するのですが、2000ではエラーが発生し強制終了されてしまいます。

'////////////////////////////////////////////////////////////
Private Sub EditExcelFile(FileName As String)

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add

xlApp.Visible = True

With xlBook
.Application.DisplayAlerts = False
.SaveAs (FileName)
.Application.DisplayAlerts = True
End With

Set xlBook = Nothing
Set xlApp = Nothing

End Function
'////////////////////////////////////////////////////////////

上記コードの .SaveAs (FileName)の箇所でエラーがでます。
.SaveAs (FileName)をコメント文にすると2000でも正常に動作します。
FileNameは新しいブック名のパスが入ります。

2000でも正常に動作させるにはどのような処理を加えれば良いでしょうか？
宜しくお願い致します。

投稿日時 - 2007-12-14 11:39:28