人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

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


●質問者: isogaya
●カテゴリ:コンピュータ
✍キーワード:VBA エクセル ファイル フォルダ フロントエンド
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

1 ● beatgoeson
●35ポイント

URLはダミーです。

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

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

◎質問者からの返答

ありがとうございます。


2 ● elmosGarden
●35ポイント

↓の例のとおり、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/

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ