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