[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『日付範囲のデータ抽出について』(ふみ)
こんにちは。
下記のコードで日付期間を指定してデータを抽出しようとしていますが、
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ファイルにあり、6列目の日付から抽出しようとしています。
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
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.