Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


58703 / 76732 ←次へ | 前へ→

【22752】Re:複数フォルダー・ファイルからのデータ抽出
質問  MAYUMI  - 05/3/2(水) 11:44 -

引用なし
パスワード
   みなさん本当にありがとうございます。いろいろやってみて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"を単純に何かに変更すれば解決するような気が
するんですがうまい方法は何かあるでしょうか?
0 hits

【22720】複数フォルダー・ファイルからのデータ抽出 MAYUMI 05/3/1(火) 9:51 質問
【22724】Re:複数フォルダー・ファイルからのデータ... IROC 05/3/1(火) 10:26 回答
【22728】Re:複数フォルダー・ファイルからのデータ... kazu 05/3/1(火) 13:09 発言
【22730】Re:複数フォルダー・ファイルからのデータ... MAYUMI 05/3/1(火) 15:15 発言
【22734】Re:複数フォルダー・ファイルからのデータ... Hirofumi 05/3/1(火) 20:57 発言
【22735】Re:複数フォルダー・ファイルからのデータ... Hirofumi 05/3/1(火) 21:00 発言
【22736】Re:複数フォルダー・ファイルからのデータ... Hirofumi 05/3/1(火) 21:33 発言
【22739】Re:複数フォルダー・ファイルからのデータ... kazu 05/3/1(火) 22:40 発言
【22751】Re:複数フォルダー・ファイルからのデータ... ichinose 05/3/2(水) 11:18 発言
【22752】Re:複数フォルダー・ファイルからのデータ... MAYUMI 05/3/2(水) 11:44 質問
【22753】Re:複数フォルダー・ファイルからのデータ... kazu 05/3/2(水) 12:49 発言
【22781】Re:複数フォルダー・ファイルからのデータ... MAYUMI 05/3/3(木) 9:45 お礼

58703 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free