エクセルファイルと同じフォルダ内にあるファイルを操作するエクセルのVBAをつくりたいのです、同じフォルダというのをどうやって指定するのがいいのでしょうか? 同じフォルダに操作対象のファイルをいれておいて、処理したいのです。フォルダそのものが移動しても、動作に関係なく機能する簡単なファイル入出力操作、処理用のエクセルのフロントエンドをつくりたいのです。

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

回答2件)

id:beatgoeson No.1

回答回数128ベストアンサー獲得回数14

ポイント35pt

URLはダミーです。

http://www.yahoo.co.jp/

ThisWorkbook.Path を参照すればそのブックの絶対パスが取得できます。

id:isogaya

ありがとうございます。

2007/11/09 17:03:22
id:elmosGarden No.2

回答回数9ベストアンサー獲得回数0

ポイント35pt

↓の例のとおり、ThisWorkbook.Path を使用すれば取得できます。

 

===

Sub test()

 

      Dim sCurDir As String

      Dim sFileName As String

 

      ' エクセルファイルの保存してあるフォルダのPATHを変数sCurDirにセット

      sCurDir = ThisWorkbook.Path

 

      ' sCurDir内にあるファイルのPATHを取得

      sFileName = Dir(sCurDir & "\*.*", vbNormal)

 

      Do While sFileName <> ""

 

               'sFileNameをmsgboxで表示

               MsgBox sFileName

 

               ' sCurDir内にある次のファイルのPATHを取得

               sFileName = Dir

 

      Loop

 

End Sub

 

===

 

URLはダミーです。

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

コメントはまだありません

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

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

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

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