作成者	カテゴリ	返答の対象		公開
青 01/13/2004 02:55 PM		エージェントからExcelを名前を付けて保存したいのですが・・・

どの方法で書き出しているのかわからないけど、
下記、参考までに。
もうしわけないですが、動作未確認です。
最初の３行は動作します。（Excelがインストされてれば
chdir要らないかも。SaveAsの所は引数を変えてやる必要があるかも。

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)
ChDir "C:\"
xlBook.SaveAs Filename:= _
"C:\test.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False _
, CreateBackup:=False