Ifとすれば、どんどんテキストファイルに溜まりますね。変えることをお勧めします。アウトライン表示が出ますから、左端に、小題や見出しをつけることが出来ます。15:58:30お礼Wendy02さん重ね重ね恐縮です。サンプルを参考にいろいろやってみましたが、結局ご教示いただいたマクロを修正できればそれが一番確実のようだと思います。マクロをサブルーティンとして使い、エクセルVBAのなかで何度も呼び出します。サンプルで困ったのは追加モードで扱うためか古いウインドウが次々と開いて溜まってしまうことです。最新のウインドウだけ表示するコードを教えていただけないでしょうか。(0)通報するANo.3Wendy02こんばんは。お礼のほうに書いていただいたおかげで、すぐに、反応できました。ご理解ありがとうございました。それで、#1で書いたときに、私の暖めていた案ですから、お気に召さないかもしれません。組合わせが良くないように思います。適格銘柄終了行ここの部分がどうやって取っているか分りませんが、以下を参考にしてみてください。これを付け足し(Append)ていくのでしたら、少し変えなくてはなりません。Ifというような分岐をすることが出来ます。"出力できませんでした。Subタブ付きで出力しましたが、きれいに出るようですね。(0)通報するANo.2Wendy02こんばんは。返事が遅くなってすみません。私は、こちらは、メインでは書いておりませんのと、「回答のお礼」側に一言書いていただければ、こちらに直接メールが来るのですが、「補足」側だけですと、どうしても遅くなってしまいます。話を戻して恐縮ですが、もう一度最初から考え直します。私は、最初のコードに書かれていない部分が理解しておりません。>エクセルでクリップボードに格納したものを下記のプログラムで[Ctrl]+[V]キーを転送しています。問題になるのはここの部分です。?それによって、VBAのクリップボードの使い方が決まってきます。False最後に、こんなコードが出てくるわけですね。出てこないのは正解でよいのですが、それに変わることを何かしているはずです。最初は、何をしているのですか?それを教えてください。それが分らないし、それが分れば、最後まで通ると思いますね。18:48:02お礼Wendy02さん、再三のご教示ありがとうございました。試してみたところ確かにエクセルシートの内容をテキストファイルにできました。実はもっともやりたいことは画面を開き放しにしてエクセルVBAでアドバンスフィルターにかかる都度次々と表示することです。サンプルを参考に勉強してみます。(0)通報するANo.1Wendy02こんばんは。何ですか?API関数で、Loopして、3秒を取るというのは、ナンセンスです。よいのではありませんか?>AppActivateが効かないのか分かりませんが対策を是非ご教示下さい。空のメモ帳だからでしょうね。同じような種類のサンプルで、こちらで書いたものは、メモ帳は閉じません。http://oshiete1.goo.ne.jp/kotaeru.php3?q=1682506私は、ご質問のコードでは、やっていることが良く分りませんが、例えば、末尾に書かれたように、メモ帳を待機させれば、メモ帳は開いていますね。API関数は使わずに済みますね。後は、いろいろ研究してみてください。ご返答有難うございます。やっていることはエクセルVBAでフィルターを通過してくる4から5行の株の銘柄情報をクリップボードコピーする。それを開き放しのメモ帳に貼り付けて画面前面に表示して見ています。API関数はメモ帳が開くまで待っているつもりで、見よう見まねでいれてみました。この部分は機能しているようです。myIDでメモ帳をアクティブにしているのに他の開いているアプリケーションに時々貼り付けてしまいます。どんな場合にミスするのか特定できません。テキスト出力"する方法が分かりません。この辺は不案内でテキストファイルに書き出すサンプルなら出来ますが、開き放しというところがミソです。ご教示の内容を未消化で申し訳ない気がしますがよろしくお願いいたします。12:49:26お礼Wendy02さん追伸有難うございます。サブルーティンにわたる前のメインのコピーはこうなっています。Falseは最初サブルーティン内でコピーしていたものの遺物です。myIDで制御を持ってきてもすぐ失って楽天のリアルタイムデータ取得プログラム(マーケットスピード)に行っているようです。myIDを次のループの中に入れるとミス率が2パーセントほどになり実用的には我慢しています。'notePadがアクティブになる余裕を1秒間取る'メモ帳をアクティブにする。yお恥ずかしい仕儀ですが、よろしくお願いいたします。(0)通報する登録日----年--月--日ありがとうポイント-ptお礼率-%ベストアンサー率-%お気に入りユーザーブロックユーザーあなたにオススメの質問エクセルの印刷ダイアログをSendkeysで操作したい。当方エクセル2003です。以下の業務を自動をするために、WSHでプログラムを作っていますが、4点困っていることがあります。以下は、エクセルVBAでメモ帳を立ち上げ、データを転記するコードです。エクセルVBAについて質問があります。使用環境はExcel2003~2010です。Filename:=ActiveWorkbook.P...SendKeysを使いたい。SendKeysを使いたい。XP-Excel2003です。Reserved.掲載情報の著作権は提供元企業等に帰属します。