Excel VBA質問箱 IV

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

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


8426 / 13644 ツリー ←次へ | 前へ→

【33319】SendKeysについて KAO 06/1/8(日) 23:44 質問[未読]
【33322】Re:SendKeysについて やっちん 06/1/9(月) 5:19 発言[未読]
【33369】Re:SendKeysについて KAO 06/1/9(月) 20:16 お礼[未読]

【33319】SendKeysについて
質問  KAO  - 06/1/8(日) 23:44 -

引用なし
パスワード
   みなさんこんばんわ☆


キ−ボ−ドから指定して読み取る方法のマクロとして、
下記を用いたのですが、ファイル名にカッコ→()が入力されている場合に
勝手に()を取ってファイルを探しにいってしまいます。。。

どのたかご存知でしたらこの不思議な現象を回避できる方法を教えて
いただけないでしょうか?

Sub kaosp()
ChDrive "D:"
ChDir "\test\"
Const fname1 As String = "test.csv"
 ’ファイル名をtest.csv→test(aaa).csvに変更すると
 ’testaaa.csvで探しに行ってしまいます・・

SendKeys "%(FO)"
SendKeys "test.CSV"
SendKeys "{enter}", True
ThisWorkbook.Activate

End Sub

う〜ん不思議ぃ〜

【33322】Re:SendKeysについて
発言  やっちん  - 06/1/9(月) 5:19 -

引用なし
パスワード
   ▼KAO さん:
>キ−ボ−ドから指定して読み取る方法のマクロとして、
>下記を用いたのですが、ファイル名にカッコ→()が入力されている場合に
>勝手に()を取ってファイルを探しにいってしまいます。。。
>
>どのたかご存知でしたらこの不思議な現象を回避できる方法を教えて
>いただけないでしょうか?

SendKeysのHELPを見てください。不思議ではないことがわかりますよ。

SendKeys "test(aaa).CSV"
ではなく
SendKeys "test{(}aaa{)}.CSV"
です。

【33369】Re:SendKeysについて
お礼  KAO  - 06/1/9(月) 20:16 -

引用なし
パスワード
   ▼やっちん さん:
 ご回答いただき、ありがとうございます☆
 なるほどそんな制限があったのですね〜。ふむふむ

 ファイル名を読み込み変数にした場合は
 ()を置き換える処理を記述しなければなりませんね!

 ありがとうございました!

>▼KAO さん:
>>キ−ボ−ドから指定して読み取る方法のマクロとして、
>>下記を用いたのですが、ファイル名にカッコ→()が入力されている場合に
>>勝手に()を取ってファイルを探しにいってしまいます。。。
>>
>>どのたかご存知でしたらこの不思議な現象を回避できる方法を教えて
>>いただけないでしょうか?
>
>SendKeysのHELPを見てください。不思議ではないことがわかりますよ。
>
>SendKeys "test(aaa).CSV"
>ではなく
>SendKeys "test{(}aaa{)}.CSV"
>です。

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