Excel VBA質問箱 IV

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

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


15210 / 76738 ←次へ | 前へ→

【67009】Re:ファイル名を取得して特定のファイルを開ける
回答  keisuke  - 10/10/25(月) 20:20 -

引用なし
パスワード
   フォルダ内のファイル一覧をするプロシージャです。

動作を確認してみてください、
焼く使われるパターンですので余分な変数もありますが、、、、
ThisWorkbook.Path この命令はエクセルある場所のパスを示します。
strPATHNAME = ”**************”に探したいフォルダのパスを入れてください。
ThisWorkbook.Pathで指定可能ですと探すフォルダをいちいち指定しなくても
良かったりするので、エクセルブックを同じフォルダに入れておくと便利です。


  Dim myCurDir As String
  Dim myFile As String
  Dim myTitle As String
  Const cnsTITLE = "フォルダ内のファイル名一覧取得"
  Const cnsDIR = "\*.*"
  Dim xlAPP As Application
  Dim strPATHNAME As String
  Dim strFILENAME As String
 
  strPATHNAME = ThisWorkbook.Path & "\加工データ"
 
  If Dir(strPATHNAME, vbDirectory) = "" Then
    MsgBox "指定のフォルダは存在しません。", vbExclamation, cnsTITLE
    Exit Sub
  End If

  ' 先頭のファイル名の取得
  strFILENAME = Dir(strPATHNAME & cnsDIR, vbNormal)
  Do While strFILENAME <> ""
   Debug.Print (strFILENAME)
    strFILENAME = Dir()
   Loop

0 hits

【66988】ファイル名を取得して特定のファイルを開ける ZZ TOP 10/10/23(土) 23:10 質問
【66989】Re:ファイル名を取得して特定のファイルを... keisuke 10/10/24(日) 1:44 発言
【66990】Re:ファイル名を取得して特定のファイルを... ZZ TOP 10/10/24(日) 5:56 発言
【66992】Re:ファイル名を取得して特定のファイルを... keisuke 10/10/24(日) 16:21 質問
【66994】Re:ファイル名を取得して特定のファイルを... ZZ TOP 10/10/24(日) 19:38 発言
【66998】Re:ファイル名を取得して特定のファイルを... keisuke 10/10/25(月) 2:33 発言
【66999】Re:ファイル名を取得して特定のファイルを... ZZ TOP 10/10/25(月) 7:38 発言
【67007】Re:ファイル名を取得して特定のファイルを... keisuke 10/10/25(月) 19:55 発言
【67009】Re:ファイル名を取得して特定のファイルを... keisuke 10/10/25(月) 20:20 回答
【67031】Re:ファイル名を取得して特定のファイルを... keisuke 10/10/27(水) 19:20 回答

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