[[20140730094405]]　『日付範囲のデータ抽出について』（ふみ）　ページの最後に飛ぶ

『日付範囲のデータ抽出について』（ふみ）

こんにちは。
下記のコードで日付期間を指定してデータを抽出しようとしていますが、
csvファイルの先頭のデータだけ、該当しなくても抽出されてしまいます。
どこが間違っているのでしょうか？御教示をよろしくお願いします。

 Dim 開始日 As Date
 Dim 終了日 As Date

開始日 = 資材振り替え_C1.Range("D7")
終了日 = 資材振り替え_C1.Range("G7")

 CSV_WS.Cells(1, 1).AutoFilter Field:=6, _
 Criteria1:=">=" & 開始日, _
Operator:=xlAnd, _
 Criteria2:="<=" & 終了日

  CSV_WS.Cells(1, 1).CurrentRegion.Copy 資材振り替え_WS2.Range("A1")

＜使用 Excel：Excel2007、使用 OS：Windows7 ＞

 データが分からないですが、ヘッダーの設定がYESになっていませんか？
（稲葉） 2014/07/30(水) 10:05

稲葉さん、ありがとう御座います。
探してみましたが、ヘッダーの設定がわかりません。
もう少し詳しくお願いします。

データは下記の様なものがcsvファイルにあり、６列目の日付から抽出しようとしています。

1-2-T 1.2 1 100 98 2014/6/24 18:37 2014/6/24 18:36 1 1 SUS304-1.2
1-5T 1.2 1 100 98 2014/6/24 18:41 2014/6/24 18:40 2 2 SUS304-1.2
103-2568-0185-B9-3629 3 1 174 25 2014/4/11 10:46 2014/4/11 10:46 3 STOPPER PLATE 1 STOPPER PLATE 1 SUS304-3.0
103-2568-0187-B9-3628 3 1 212 25 2014/4/11 10:53 2014/4/11 10:53 4 STOPPER PLATE 3 STOPPER PLATE 3 SUS304-3.0
1T 1.2 1 100 98 2014/6/24 17:55 2014/6/24 18:07 5 5 SUS304-1.2
2-5T 1.2 1 100 98 2014/6/25 8:06 2014/6/25 8:04 6 6 SPC1.2

（ふみ） 2014/07/30(水) 10:17

 オートフィルターでしたね・・・
 ヘッダーの設定はありませんが、先頭行は必要です。
 なので仮に付けてあげる必要はあると思います。
Sub test()
    Range("1:1").Insert shift:=xlDown
    Range("A1:Q1").Value = Array("項目1", "項目2", "項目3", "項目4", "項目5", "日付", "項目7", "項目8", "項目9", "項目10", "項目11", "項目12", "項目13", "項目14", "項目15", "項目16", "項目17")
    Range("A1").AutoFilter field:=6 _
        , Criteria1:=">=2014/4/11" _
        , Operator:=xlAnd _
        , Criteria2:="<=2014/4/11" _
        , VisibleDropDown:=False
End Sub
（稲葉） 2014/07/30(水) 10:41

稲葉さん、ありがとう御座います。
他の部分のコードを修正するのに手間どりましたが、
無事、正常に抽出出来る様になりました。

今後とも、よろしくお願い致します。

（ふみ） 2014/07/30(水) 12:42

コメント返信：

[ 一覧(最新更新順) ]

[[20140730094405]] 『日付範囲のデータ抽出について』（ふみ） ページの最後に飛ぶ

[[20140730094405]]　『日付範囲のデータ抽出について』（ふみ）　ページの最後に飛ぶ