またお世話になります。

フォームでメニューを作って帳票や表を開く簡単な一括処理を
勉強をしています。簡単なサンプルをみてつくっています。

そのメニューフォームに　Excel文書（コマンドぼたん）を作りました。

名札　Excel文書
システム　"C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE","",起動フォルダ="C:\Documents and Settings\js\My Documents\桐\",&OK

ヘルプをみてこんなかんじで名札のあとに書きました。

確かにExcelは起動するのですが、特定のフォルダ桐\は開きません。
もともとの文書のカレントフォルダMy Documentsを開きます。

わたしがしたいのは、Excel文書　のコマンドをクリックしたときに
特定のフォルダのダイアログのようなものがでてExcelの
　あああ.xls　いいい.xls
といったファイルを選択して開くようにしたいのです。

記述の仕方がわかりません。よろしくお願いします。

■No956に返信(アグリシップさんの記事)
> またお世話になります。
> 
> フォームでメニューを作って帳票や表を開く簡単な一括処理を
> 勉強をしています。簡単なサンプルをみてつくっています。
> 
> そのメニューフォームに　Excel文書（コマンドぼたん）を作りました。
> 
> 名札　Excel文書
> システム　"C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE","",起動フォルダ="C:\Documents and Settings\js\My Documents\桐\",&OK
> 
> ヘルプをみてこんなかんじで名札のあとに書きました。
> 
> 確かにExcelは起動するのですが、特定のフォルダ桐\は開きません。
> もともとの文書のカレントフォルダMy Documentsを開きます。
> 
> わたしがしたいのは、Excel文書　のコマンドをクリックしたときに
> 特定のフォルダのダイアログのようなものがでてExcelの
> 　あああ.xls　いいい.xls
> といったファイルを選択して開くようにしたいのです。
> 
> 記述の仕方がわかりません。よろしくお願いします。
> 
> 

一括処理ではありませんが、
フォルダを開くだけなら
コマンドボタンに機能名と機能パラメータリストを設定すればできます。

機能名　　　　　　機能パラメータリスト
シェル実行　　　　"C:\Documents and Settings\Owner\My Documents\hogehoge\"

拡張子がxlsのファイルをダブルクリックすれば自動的にExcelが起動するはずです。

一括処理でも一括処理コマンドで「シェル実行」を設定すれば同じです。

アグリシップさん、こんにちは。
下のようにすると、Excelファイルだけが表示され選べるようになりますよ。

　ファイル名入力　初期値="C:\Documents and Settings\js\My Documents\桐\*.xls",  \
                  プロンプト="Excelファイルを選べます。",許可作業=*, &STR
　システム　"C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE"，&STR ，&秒

イベントの場合は、システム の代わりに シェル実行 を使います。
アックン(=^･^=)

コージさん
アックンさん
さっそくありがとうございました。

お二方の両方ためしました。

コージさんにおしえていだだきました
機能名　　　　　　機能パラメータリスト
シェル実行　　　　"C:\Documents and Settings\Owner\My Documents\hogehoge\"

はエクスプローラーがあらわれまして該当のファイルをダブルクリックする方法でした。

アックンさんにおしえていだだきました
ファイル名入力　初期値="C:\Documents and Settings\js\My Documents\桐\*.xls",  \
                  プロンプト="Excelファイルを選べます。",許可作業=*, &STR
　システム　"C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE"，&STR ，&秒

は、ダイアログがでまして任意のファイルを指定してOKをすると

C:\Documents.xlsが見つかりません。ファイル名及びファイルの保存場所が正しいか
確認してください。

and.xlsが見つかりません。ファイル名及びファイルの保存場所が正しいか
確認してください。

***

***
と５回ぐらいエラーメッセージがでて次々OKをクリックしていくと
BOOK１のExcelが起動しました。
わたしの一括処理の変数とかなにかが問題あったのかうまくいきませんでした。

アグリシップさんこんにちは、マイドキュメントは過去ログで
http://www.fuku3.com/~habata/kbbs/kakov9/26853.htm
のお手本を参考にどのxpや2000のOSでも使える記述にして
手続きにするとファイルの指定がある場面ではcsvやtblやrpt
等にも使えて便利いいかもしれません。

　　変数宣言　Str{&マイドキュメント=#getenv("USERPROFILE")+"\My Documents\"\
　　　　　　　,&起動プログラム="C:\Program Files\Microsoft Office\Office\EXCEL.EXE"\
　　　　　　　,&拡張子="*.xls",&ガイド="エクセルファイルを指定して下さい",&読込file},Long{&ok}
　　call ファイル指定(&マイドキュメント,&読込file,&拡張子,&ガイド)
　if (&読込file) /* 未定義値でない場合以下を実行　ファイル名の途中にスペースがあると */
　　&読込file = """"+&読込file+""""　/* 分割されるので左記のように前後を " で囲む */
　　システム　&起動プログラム,&読込file,&ok
*　　シェル実行　&読込file, 表示=通常/* |最大化|最小化 */,&ok
　end
　　確認 "終了",&ok
　　終了
proc ファイル指定(Str &初期値,refer　Str &ファイル名,Str &拡張子,Str &ガイド)
　&初期値=#cond(&初期値="",#一括パス名+&拡張子,1\
　,#cond(#last(&拡張子,1)="\",&初期値+&拡張子,1,&初期値+"\"+&拡張子))
　ファイル名入力　初期値=&初期値　/* 選択が正常に終わると選んだファイル名は */\
　, プロンプト=&ガイド /* C:\Documents and Settings\data\Book1.xls のようになる */\
　, 許可作業=*,&ファイル名 /* Escキーや×の中止で &ファイル名 が未定義値になる。 */
end

今村　誠さん
ありがとうございました。

一括初心者としては、どこに貼り付けるのかわかりません。

例えば、

繰り返し  ( &メインボタン <> "閉じる" )
    ウインドウ会話  &メインメニュー,  ボタン = &メインボタン
　　　　ケース開始
　　　　ケース　(&メインボタン=文書管理Excel)
　　　　　　手続き実行　文書管理Excel


　名札　文書管理Excel

　　　＊ここにExcel文書を開くようにしたい　


などとしたときなど

　変数宣言以下
　end　までどこにペーストすればいいのかわかりません。


コメントをかいていただいたものの
初心者向けにおしえていただけませんか。

名札　と
………………
手続き実行　ほげほげ（引数を書く）
………………
手続き終了　の間に上記のように書きます。

　毎回同じ内容を書くのは行の無駄なので似たような処理を
手続きにして呼び出します。
　引数を書くと手続きの結果が呼び出し元に返されます。
私の場合一括処理の名札の場合でも()を付けて記述しています。
　また英語表記のprocは名札でも手続きでも同じ記述なので英語表記
にしています。

名札  文書管理Excel
　　　変数宣言　Str{&マイドキュメント=#getenv("USERPROFILE")+"\My Documents\"\
　　　　　　　,&起動プログラム="C:\Program Files\Microsoft Office\Office\EXCEL.EXE"\
　　　　　　　,&拡張子="*.xls",&ガイド="エクセルファイルを指定して下さい",&読込file},Long{&ok}
　　call ファイル指定(&マイドキュメント,&読込file,&拡張子,&ガイド)
　if (&読込file) /* 未定義値でない場合以下を実行　ファイル名の途中にスペースがあると */
　　&読込file = """"+&読込file+""""　/* 分割されるので左記のように前後を " で囲む */
　　システム　&起動プログラム,&読込file,&ok
*　　シェル実行　&読込file, 表示=通常/* |最大化|最小化 */,&ok
　end
*　　確認 "終了",&ok
手続き終了
proc ファイル指定(Str &初期値,refer　Str &ファイル名,Str &拡張子,Str &ガイド)
　&初期値=#cond(&初期値="",#一括パス名+&拡張子,1\
　,#cond(#last(&拡張子,1)="\",&初期値+&拡張子,1,&初期値+"\"+&拡張子))
　ファイル名入力　初期値=&初期値　/* 選択が正常に終わると選んだファイル名は */\
　, プロンプト=&ガイド /* C:\Documents and Settings\data\Book1.xls のようになる */\
　, 許可作業=*,&ファイル名 /* Escキーや×の中止で &ファイル名 が未定義値になる。 */
end

アグリシップさんこんにちは
http://www.fuku3.com/habata/kbbs/kakov8/11363.htm
判らないところはここが判らないとお聞きになった方が
いいですよ。
皆さん親切ですので！！
私も最初は質問ばかりでした。

今村　誠さん
ありがとうございました。

まだ理解できないのが本音です。

名札  文書管理Excel
　　　変数宣言　Str{&マイドキュメント=#getenv("USERPROFILE")+"\My Documents\"\
以下
end　までコピペし実行たのですが、
エラーがでます。

記述のその下に書いてある

名札  初期設定
KU1090:ｺﾏﾝﾄﾞの形式に誤りがあります

とでるので、わたしの一括処理の記述の仕方が悪いのだと思います。
何しろ、桐の付録の前の一括処理のサンプルをみて作っているので
だめなのかもしれません。
お手数かけました。少しずつ勉強します。またよろしくお願いします。
ありがとうございました。

今村　誠さん
おつきあいくださいましてありがとうございます。

早速サンプルを実行しました。
わたしが勉強しているサンプル似がでてきました。
Excel起動でファイル名入力のダイアログがでます。
そこで、ファイルを選択してOKしていても画面は変わりません。

一括の定義画面をみまして気になっていた　288行の　＊　を
とってみました。
すると、Excelは起動しましたが、桐の裏に隠れてしまっています。

＊は何行かにありますが、意味がよくわかりません。

あとで結構ですのでお願いします

> Excel起動でファイル名入力のダイアログがでます。
> そこで、ファイルを選択してOKしていても画面は変わりません。

私のエクセルは2000です。
アグリッシブさんのは2003だと思いますので
起動プログラムのパスを自分の似合わせないとうまくいきません。
 
> 一括の定義画面をみまして気になっていた　288行の　＊　を
> とってみました。
> すると、Excelは起動しましたが、桐の裏に隠れてしまっています。

これはシステムとシェル実行の違いです。
システムは桐を一時停止して実行するので、エクセルが終了するのを
待ってから桐に操作をまかせますが、シェル実行は、並列起動なので
桐の画面の後ろに隠れると思います。
取り急ぎ考えられる原因だけですが調べてみて下さい。

今村　誠さん

> 起動プログラムのパスを自分のに合わせないとうまくいきません。

うまくできました。
うれしくなりました。

まだ理解度は中の下ですが、使わせていただきます。

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