人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

この操作をマクロで実行したいのですが可能でしょうか?
はじめにそのまま使えるマクロを作成していただいた方に200ポイント

main.xlsのA列にID番号が表示されている

dateフォルダの中にID番号がファイル名となっているファイルがある。
例)main.xlsのA列
10001
10004
10005
10009
11000


dateフォルダ内)
10001.xls、10001.pdf、10001.doc、10005.xls、10005.doc、10009.pdf
※同じ名前で拡張子のみが異なるファイルもある。ID番号のファイルが存在しない場合もある


編集
main.xlsのA列の値のファイルが存在する場合、main.xlsのB列以降にそのファイル名を出力する
例)main.xls
A B C D
10001 10001.xls 10001.pdf 10001.doc
10004
10005 10005.xls 10005.doc
10009 10009.pdf
11000

●質問者: Ryo0524
●カテゴリ:コンピュータ ウェブ制作
✍キーワード:DOC PDF xls ファイル フォルダ
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● SALINGER
●200ポイント ベストアンサー

main.xlsと同じ場所にdataフォルダがあるとして

Sub Macro1()
 Dim lastRow As Long
 Dim i As Long
 Dim buf As String
 Dim c As Integer
 
 lastRow = Cells(Rows.Count, 1).End(xlUp).Row
 
 For i = 1 To lastRow
 c = 2
 buf = Dir(ThisWorkbook.Path & "\data\" & Cells(i, 1).Value & ".*")
 While buf <> ""
 Cells(i, c).Value = buf
 buf = Dir()
 c = c + 1
 Wend
 Next i
End Sub
◎質問者からの返答

早い回答ありがとうございます。助かりました。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ