| ■No11146に返信(hiroさんの記事) こういう場合は「ファイル名入力」コマンドを使うのがよいと思います。
確認 "処理するエクセルファイルを指定して下さい",&実行リターン 繰り返し ファイル名入力 初期値="*.xlsx", プロンプト="",&選択ファイル名 if(&選択ファイル名<>"") *→所定の処理 *以下は付録で、処理済みが判るためのリネームだが、余計なお世話かも(^^;) &置換式=#文字置換(&選択ファイル名,".xlsx","(済).xlsx") ファイル名変更 &選択ファイル名,&置換式,終了状態=&実行リターン end 確認 "続けて次のエクセルファイルを指定できます",&実行リターン 条件(&実行リターン=0) 繰り返し中止 繰り返し終了
|