Excel VBA質問箱 IV

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

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


72833 / 76738 ←次へ | 前へ→

【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で制御出来るものなら,どなたかご教示下さい。
0 hits

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

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