この操作をマクロで実行したいのですが可能でしょうか?

はじめにそのまま使えるマクロを作成していただいた方に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

回答の条件
  • 1人5回まで
  • 登録:2009/02/13 17:11:34
  • 終了:2009/02/13 18:02:09

ベストアンサー

id:SALINGER No.1

SALINGER回答回数3454ベストアンサー獲得回数9692009/02/13 17:48:52

ポイント200pt

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
id:Ryo0524

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

2009/02/13 18:01:19

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません