20/06/08 08:47:00.39 k1oezjz2.net
続き
Range("A1").Value = "担当者"
Range("B1").Value = "行程１"
Range("C1").Value = "件名１"
Range("D1").Value = "行程２"
Range("E1").Value = "件名２"
Range("F1").Value = "行程３"
Range("G1").Value = "件名３"
Range("H1").Value = "期間"
Range("I1").Value = "グループ名"
Set mysheet = ThisWorkbook.Worksheets("comp")
Debug.Print myseet
buf = Dir(path & "\*.xls") 'フォルダ内の全ファイル名
Debug.Print buf
Do While buf <> ""
Set srcbook = Workbooks.Open(path & "\" & buf)
Set srcsheet = srcbook.Worksheets("sire")