M.Mさん、こんにちは。

回答有り難うございます。
お手数をお掛けします。

＞SaveAs関数のファイル名が空欄になってますね。
＞ダイアログが表示されるはずですが、きちんと入力していますか？
＞それから、固定ファイル名(例:\"c:\\test.xls\")を指定して実行するとどうなるでしょうか？

表示されているダイアログにはファイル名を入力しておりました。
で、MMさんからご指摘頂いたようにファイル名を直接書いた場合は
正常に保存されました。

SaveAs関数を使うと自動的にダイアログボックスが表示されるので、
そこへ入力したファイル名で、勝手に設定されると考えていたのですが、
自分でファイル名を指定してやる必要があるのですか？

＞midorikawaさん、こんにちは。
＞
＞＞度々お世話になります。
＞＞
＞＞以下ような手順で、DWに表示されているデータを
＞＞一旦、データストアに保存し、それからSaveAsを使って
＞＞ファイルへ出力しようとしているのですが、ファイル出力
＞＞のところで「-1」エラーが返ってきます。
＞＞どこが間違っているのですか？
＞＞
＞＞よろしくお願いします。
＞＞
＞＞--------------------------------------------------------
＞＞// --- データストアを作成
＞＞dtstore = Create DataStore
＞＞dtstore.DataObject = g_dataobject_name
＞＞dtstore.SetTransObject(SQLCA)
＞＞
＞＞// --- 一覧に表示されているデータをデータストにコピー
＞＞msg_ret = dw_list.RowsCopy(1, dw_list.RowCount(), Primary!, dtstore,1, Primary!)
＞＞if msg_ret = -1 then
＞＞ Destroy dtstore
＞＞ return
＞＞end if
＞＞
＞＞// --- ファイルへ出力
＞＞msg_ret = dtstore.SaveAs(\"\",Excel!,TRUE)
＞＞IF msg_ret = -1 THEN
＞＞END IF
＞＞
＞＞--------------------------------------------------------
＞
＞SaveAs関数のファイル名が空欄になってますね。
＞ダイアログが表示されるはずですが、きちんと入力していますか？
＞それから、固定ファイル名(例:\"c:\\test.xls\")を指定して実行するとどうなるでしょうか？
＞
＞