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

回答の条件
  • URL必須
  • 1人2回まで
  • 登録:2007/11/06 16:32:32
  • 終了:2007/11/09 17:06:49

回答(2件)

id:beatgoeson No.1

beatgoeson回答回数128ベストアンサー獲得回数142007/11/06 16:46:08

ポイント35pt

URLはダミーです。

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

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

id:isogaya

ありがとうございます。

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

elmosGarden回答回数9ベストアンサー獲得回数02007/11/09 16:19:21

ポイント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/

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

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

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

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

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません