|
みなさん本当にありがとうございます。いろいろやってみてKAZUさんの
コードを参考にしてみました。当然セルの位置の変更等は行いましたが
まさに私のやりたかったことができました。ありがとうございます。
ただちょっと引っ掛かりがありまして、各顧客ファイルの名前に顧客
コードが含まれそこからデータを読みにいくはずだったんですが、
ファイル名がずばり顧客コードじゃないとデータを読みにいってくれません。
For Each Cel In ThisWorkbook.Sheets(StrWriteSht).Columns(StrColId).Cells
If Cel.Row = ThisWorkbook.Sheets(StrWriteSht).Range(StrColId & 65000).End(xlUp).Row + 1 Then Exit For
If Cel.Value <> "" And Cel.Row <> 1 And Cel.Value <> "" Then
For Each Fld In myFolder
Set myFile = MyWsh.GetFolder(Fld).Files
SeekFile = ""
For Each Fil In myFile
If StrConv(Fil.Name, vbNarrow + vbLowerCase) Like Cel & "*.xls" Then ・・・・・
おそらくこのコードの"*.xls"を単純に何かに変更すれば解決するような気が
するんですがうまい方法は何かあるでしょうか?
|
|