セルのパスが読み取らない
Excel一覧表をマクロで作成しています。
色々探して見つけたマクロを少し改良しようと思いましたが
初心者なのでなかなか思いどおりに行きません(T~T)
すみませんがアドバイスをお願いします。
~環境~
win XP Excel2000 です。
~内容~
セル上のフルパス(B,1)を指示をし条件を付け
フォルダーを選択(2コまで)と言ったマクロを
作成使用と思っています。
A B C D E
1 @パス
2 条件
3 フォルダー1
4 フォルダー2
5
6 以下記載
解らないところに"*"を付けています。
~コード~
Sub ファイル名一覧()
'マクロ実行画面の凍結
Application.ScreenUpdating = False
'変数宣言
Dim Path As String←*ここの部分追加しています。
Dim FileName As Variant '・・・ファイル名を格納
Dim FOLDER(2) As Variant
Dim x As Integer '・・・FOLDER(x)とし検索するフォルダを更新する変数
Dim Gyou As Integer, LastGyou As Integer '・・・ファイル名を入力する行(増えるから変数)
Dim 条件 As Variant
'パス格納
Path = Range("B2")←*ここの部分追加しています。
If Path = "" Then Exit Sub←*ここの部分追加しています。
'定数宣言
Const PAS As Variant = Path '・・・フォルダの場所
↑*ここの部分が原因?"定数式必要です。"でます(T~T)
Const Retu As Integer = 2 '・・・ファイル名を入力する列
'変数の初期値設定
x = 1
Gyou = 6 '・・・ファイル名を入力する開始行
FOLDER(1) = Range("D3") '・・・検索するフォルダ(1)
FOLDER(2) = Range("D4") '・・・検索するフォルダ(2)
'条件の格納
条件 = Cells(2, 4)
~~以下省略~~
長々と書いてしまい申し訳ございません。宜しくお願いします。