http://www.hatena.ne.jp/1111317931

関連の質問です。VBのあるエクセルと同じフォルダ内を表示するのはどうしたらいいのでしょうか? 同じフォルダ内にあるCSVファイルを読み込んで処理をするの、デスクトップなどダイアログにでてくるとうっとうしいのです。

回答の条件
  • URL必須
  • 1人2回まで
  • 登録:
  • 終了:--
※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。

回答2件)

id:cx20 No.1

回答回数607ベストアンサー獲得回数108

ポイント25pt

マクロ(VBA)を実行している Excel ファイルと同じフォルダは、

ThisWorkbook.Path

で参照可能です。

したがって、

> Application.Dialogs(xlDialogOpen).Show(”*AB*.xls”)

   ↓

Application.Dialogs(xlDialogOpen).Show(ThisWorkbook.Path + ”¥*AB*.xls”)

のように変更すれば、同じフォルダを参照できるようになるかと思います。

id:kaiketsu

sample ディレクトリにいれているとすると

ThisWorkbook.Path + ”¥*.csv”では、

sample*.csv になって、一個上のディレクトリになるようです。、

2005/03/21 23:12:12
id:zaikk No.2

回答回数192ベストアンサー獲得回数2

ポイント25pt

cx20 様の回答で正しいと思います。

ただ、¥ を全角で入力されているので、コピーして使用すると、kaiketsu様のコメントのように、一個上のディレクトリが表示されてしまうようです。

¥ を半角で入力してみてください。

id:kaiketsu

半角でいれているつもりなのですが、もう一度試してみます。

2005/03/21 23:48:56
  • id:zaikk
    ¥記号サニタイジングされているようです

    先の回答で「cx20 様が ¥ を全角で入力されている」と書きましたが、そうではないようです。

    私の回答の中で ¥ を半角で入力しましたが、表示されたものを確認すると全角になっていました。

    ¥ 記号は、はてなでサニタイジングされて全角になっているようです。

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

回答リクエストを送信したユーザーはいません