スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

Excel VBA初心者-2

フォルダ内のファイル名一覧を自動作成を考えています。
まだまだ初心者ですか下記にように考えています。

①Sample1は、取得できますが、取得後の設定位置の指定がわかりません。
②ファイル一覧は、動作しまわかる方教えていただけないでしょうか。、

また、ファイル内階層別の取得方法がわかりましたら教えていただけないでしょうか。


・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・
Sub Sample1()
Dim buf As String, cnt As Long
Const Path As String = "C:\Users\yanma\Downloads\"
buf = Dir(Path & "*.*")
Do While buf <> ""
cnt = cnt + 1
Cells(cnt, 1) = buf
buf = Dir()
Loop
End Sub

・・・・・・・・・・・・・・・・・・・・・・・
Sub ファイル一覧()

フォルダパス = Cells(1, 2).Value
ファイル名 = Dir(フォルダパス & " \ *.*")
行番号 = 4
Do While ファイル名 <> ""
行番号 = 行番号 + 1
ファイル名 = Dir()
Loop
End Sub


スポンサーサイト

comment

Secret

ブログランキング
banner_22.gif 
にほんブログ村 小遣いブログ アフィリエイトへ にほんブログ村 小遣いブログへ  ブログランキング【くつろぐ】
おきてがみ
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。