スポンサーサイト

上記の広告は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


Excel VBA初心者

Excel VBA初心者です。
 
条件に当てはまるデータを抽出する方法を教えていただきたいと思います。
各ブック別やシート別になっているデータを管理をしたいと思います。

最新・免許証の有効期間の管理を行いたいと思っています。
(添付)
無題

フーズランド北海道byマルゲン後藤水産

【【概要】
北海道から新物で「うまい」を迅速発送!
【詳細解説】
・北海道から新物で「うまい」を迅速発送!【マルゲン後藤水産】販売促進プログラムになります。
・かに通販専門のマルゲン後藤水産。たらばがに・ズワイガニ・毛蟹・ほたて・海産物・をはじめ、
 新鮮な海の幸や北海道ならではの特産品・農産品をお届けしております。
・通販業界に10年以上の実績が有り、郵便局お年玉景品商品納入実績のある会社として多大
 お客様の信頼ご支持を頂いております。


theme : 商品紹介
genre : アフィリエイト

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