Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


12833 / 13646 ツリー ←次へ | 前へ→

【8387】SendKeysコマンドの使い方 あおいパパ 03/10/14(火) 16:03 質問
【8388】Re:SendKeysコマンドの使い方 INA 03/10/14(火) 16:25 回答
【8409】Re:SendKeysコマンドの使い方 あおいパパ 03/10/15(水) 14:24 お礼

【8387】SendKeysコマンドの使い方
質問  あおいパパ  - 03/10/14(火) 16:03 -

引用なし
パスワード
   皆様今日は。またもやお世話になりに来ました,あおいパパと申します。

今回,私はWindows2000のOS上でEXCEL97 SR-1を用いて
 1.CSVファイルのデータを読込み,そのデータをVBAの含まれるファイルにコピーする。
 2.条件を入力して,データを絞り込む。
 3.絞り込まれたデータを含む文字列をメモ帳に転送する。
 4.メモ帳のファイル名を決められたファイル名に変更して保存する。
というプログラムを作成しています。

現在,1.〜2.は問題なく動作しているのですが,3.の文字列転送が上手く行きません。
EXCELのセルでは,当該セルの書式は文字列にしていまして,例えば,
 Cells(1,3)=文字列(
 Cells(1,4)='抽出したデータ1','抽出したデータ2','抽出したデータ3'・・・
 Cells(1,5)=)
となっているCells(1,4)にデータが自動的に入力された後,
 Cells(1,1)=Cells(1,3) & Cells(1,4) & Cells(1,5)
として文字列を結合します。これらの制御が終わった後,
 SendKeys String:=Cells(1, 1)
としているのですが,この時,Cells(1,3)の右端の"("とCells(1,4)の左端の"'"及びCells(1,5)の")"がメモ帳では消えているのです。
SendKeysの使い方に問題があるのでしょうか?

また,メモ帳を自動保存するのに,
 SendKeys String:="%(FA)"
 SendKeys String:=Sheets("Sheet1").Cells(14, 2)
            'このセルに入力した名称で保存します。例えばaaa.ini
 SendKeys String:="{ENTER}"
 SendKeys String:="%Y"
 SendKeys String:="%(FX)"
としたのですが,メモ帳の側で自動的に拡張子を追加し,例えばaaa.ini.txtとしてしまいます。
もしかするとVBAではなく,OSの設定かも知れませんが,VBAで制御出来るものなら,どなたかご教示下さい。

【8388】Re:SendKeysコマンドの使い方
回答  INA  - 03/10/14(火) 16:25 -

引用なし
パスワード
   >3.絞り込まれたデータを含む文字列をメモ帳に転送する。
SendKeysでTxtファイルにする必要があるのでしょうか?
普通にtxt形式保存するとか、Print # ステートメントを
使うわけにはいかないのでしょうか?

>4.メモ帳のファイル名を決められたファイル名に変更して保存する。
保存後にName ステートメントでファイル名を変更しては?

【8409】Re:SendKeysコマンドの使い方
お礼  あおいパパ  - 03/10/15(水) 14:24 -

引用なし
パスワード
   ▼INA さん:
今日は。あおいパパと申します。早速のレスを有難うございました。
ご意見を参考にさせて頂いて,何とか解決できました。今後とも宜しくお願いします。


>>3.絞り込まれたデータを含む文字列をメモ帳に転送する。
>SendKeysでTxtファイルにする必要があるのでしょうか?
>普通にtxt形式保存するとか、Print # ステートメントを
>使うわけにはいかないのでしょうか?
他の方法も試したのですが,上手く行かなかったのです。
でも,何故 "(" や ")" 或いは "'" が表示出来なかったのか原因は分りました。
お騒がせして済みませんでした。
>
>>4.メモ帳のファイル名を決められたファイル名に変更して保存する。
>保存後にName ステートメントでファイル名を変更しては?
有難うございます。この方法で上手く行きました。

12833 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free