| |
皆様今日は。またもやお世話になりに来ました，あおいパパと申します。
今回，私は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で制御出来るものなら，どなたかご教示下さい。
|
|
