VBAでアクティブなファイルを参照して、ファイル一覧作成(サブフォルダ含む)
VBAでアクティブなファイルのフォルダ(サブフォルダを含む)のファイル一覧を
作成したいと思っています。
以下のサイトを参考にして、パス、ファイル名を落とすまではできました。
http://okwave.jp/qa3544575.html
===
Sub test()
Application.ScreenUpdating = False
Sheet1.Cells.Clear
Sheet1.Cells(1, 1) = "パス"
Sheet1.Cells(1, 2) = "ファイル名"
files "d:\", 2
Application.ScreenUpdating = True
End Sub
Sub files(path As String, ByRef row As Long)
DoEvents
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Dim f As Object
For Each f In fso.GetFolder(path).files
Sheet1.Cells(row, 1) = path
Sheet1.Cells(row, 2) = f.Name
row = row + 1
Next
For Each f In fso.GetFolder(path).SubFolders
files f.path, row
Next
Set fso = Nothing
End Sub
===
>files "d:\"
の箇所を修正して、アクティブなブックを参照しようとしてみたのですが、
なかなか上手くいきません。
また、できれば *.xls などファイルの種類を指定したいのです。
filesearchを使用して組んだ時は
「AAA = ActiveWorkbook.path」「Filetype ~ 」
などでそれらの指定ができたのですが、上記に応用する事ができません。
どなたかご教示頂けますよう、よろしくお願いいたしますm(_ _)m
お礼
早速有り難うございました。 >基本的に無理です。 了解です、やはり難しいですね。 色々やってみたのですが、反応しなかったので。 諦めます。 なお、おっしゃるとおり、httpで何個かサイトを保っています。 それをユーザーに使わせています。 一つ汎用的なダウンローダーを作っておき、 それぞれのユーザーには欲しいアドレス(http~フォルダまで)を入力させるようなことを考えていました。 >サイトb側でなんらかの策を http~は無理ということが分かったので、 一つベースを作り、 各サイトに合わせたダウンローダーを設置することにします。 これで解決できます。 お世話になりました。