Excel VBA質問箱 IV

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

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


5568 / 76732 ←次へ | 前へ→

【76775】Re:複数のエクセルファイルから条件に一致する行のみを抽出したい
質問  M  - 15/3/11(水) 9:59 -

引用なし
パスワード
   ▼β さん:
ありがとうございます。
テスト1のコードを入力したら正常に動作しました。

当初の質問で"特定のデータフォルダに複数のエクセルファイルデータがあり"と書いていましたが、フォルダ内のファイルはCSVファイルでした。

エクセルファイルでは正常に動作したので、
fName = Dir(FolderPath & "*.xls")
の部分を"*.csv"に変更したところ
If IsNumeric(z) Then c.EntireRow.Copy shT.Range("A" & Rows.Count).End(xlUp).Offset(1)
の行に"Rangeメソッドは失敗しました。Worksheetオブジェクト"とのエラーが出ます。
申し訳ありませんが、csvファイルでも同様に判定し、抽出できるようにできないでしょうか。
1,154 hits

【76769】複数のエクセルファイルから条件に一致する行のみを抽出したい M 15/3/10(火) 21:23 質問[未読]
【76772】Re:複数のエクセルファイルから条件に一致... β 15/3/11(水) 6:54 発言[未読]
【76774】Re:複数のエクセルファイルから条件に一致... β 15/3/11(水) 8:37 発言[未読]
【76775】Re:複数のエクセルファイルから条件に一致... M 15/3/11(水) 9:59 質問[未読]
【76776】Re:複数のエクセルファイルから条件に一致... β 15/3/11(水) 10:21 発言[未読]
【76777】Re:複数のエクセルファイルから条件に一致... β 15/3/11(水) 10:27 発言[未読]
【76778】Re:複数のエクセルファイルから条件に一致... M 15/3/11(水) 13:54 お礼[未読]

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