[[20170320123710]]　『テキスト読み込み→フィルタ抽出』（のりたま）　ページの最後に飛ぶ

『テキスト読み込み→フィルタ抽出』（のりたま）

親フォルダ（月ごとにフォルダ名が変わります）
↓
数個ある子フォルダのそれぞれに、同名のファイルが入っています。テキストファイルのようなものです。

毎回、子フォルダごとにそのファイルをexcelでテキスト読み込み（固定長フィールド）し、フィルタをかけ、求めるデータを抽出しています。

各フォルダごとに同じ操作を行っており、なかなか手間がかかるもので、
マクロ等で一発！とは言わないまでも、効率よくできないでしょうか？

お知恵を拝借したいです。
よろしくお願いします。

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

どちらでしょうか

１）毎月１回、数個のファイルを処理する
２）月数回、毎回１個のファイルを処理する

（マナ） 2017/03/20(月) 13:08

マナさま

コメントありがとうございます。
わかりづらく申し訳ありません。

「１）毎月１回、数個のファイルを処理する」です。
（のりたま） 2017/03/21(火) 13:27

手作業では、どういう作業をしているのか
箇条書きで説明できますか。

例えば、

＞『テキスト読み込み→フィルタ抽出』

この操作を複数ファイルについて実行した後が不明です。
抽出結果をどうしているのですか。

１）個別のファイルに保存
２）１つのブックにシートを分けて保存
３）１つのシートにまとめて保存

自動化したい全操作を教えてください。

わたしは、昼間は書込みできませんので、
解決まで時間がかかるかもしれません。
それでは困るというのであれば、いってください。
他の回答者が、コードを書いてくださると思います。

（マナ） 2017/03/21(火) 20:34

マナさま

言葉足らずで申し訳ありません。
現在行っている作業を書き出してみます。

・ファイルをexcelでテキストファイル読み込み
・オートフィルタ
・ある列を「規定の値以上」で抽出
・抽出結果のうち、必要な情報があるセルのみコピー
・別のexcelにペースト
（このexcelは共通です。1つのシートにまとめて保存、にあたると思います）

これを子フォルダごとに繰り返します。

お気遣いありがとうございます。
特に急ぐものではありません。

（のりたま） 2017/03/22(水) 17:33

「マクロの記録」をご存知ですか。
使ったことがなければ、ネットで検索して使用方法を調べると良いです。

まずは、
テキストファイル読み込み
の操作を記録してみてください。

そのあと、
オートフィルターで抽出
の操作についても記録してみてください。

どのように記録されたか教えてください。

（マナ） 2017/03/22(水) 19:51

マナさま

お世話になります。
とりあえず、オートフィルタで抽出するところまで記録してみました。

 ChDir "（共通のexcelが入っているフォルダ）"
    Workbooks.Open Filename:="（共通のexcel）.xlsx"
    Sheets("（ペーストしたデータを使うシート）").Select
    Range("B2:J30").Select
    Selection.SpecialCells(xlCellTypeConstants, 23).Select
    Selection.ClearContents
    Sheets("（ペーストするシート）").Select
    Range("A3:L13").Select
    Selection.ClearContents
    Range("A3").Select
    With ActiveSheet.QueryTables.Add(Connection:= _
        "（テキストファイル）",
Destination:=Range("$A$3"))
        .Name = "DATA."
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 932
        .TextFileStartRow = 1
        .TextFileParseType = xlFixedWidth
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1)
        .TextFileFixedColumnWidths = Array(42, 1, 7, 30, 10, 21, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
    ActiveSheet.Range("$A$2:$K$1036").AutoFilter Field:=7,
Criteria1:=">=2", _
        Operator:=xlAnd
End Sub

ちゃんとできているかわかりませんが、よろしくお願いします。

（のりたま） 2017/03/23(木) 22:46

共通のexcelというのがよくわわかりませんが
こんな流れのマクロで出来そうです。
それとも誤解がありそうですか？

１）親フォルダ選択
２）作業用シート作成
３）子フォルダを調べる
４）テキストファイルが存在するか確認
５）テキストファイルを、作業用シートに読み込み
６）他の子フォルダについても３）～５）を繰り返す
７）オートフィルターで抽出（あるいは、フィルターオプション？）
８）抽出結果を「共通のexcel」に転記
９）作業用シート削除

（マナ） 2017/03/24(金) 18:22

＞Sheets("（ペーストするシート）").Select

作業用シートは、もうあるのですね。
ならば、こうですか。

１）親フォルダ選択
２）子フォルダを調べる
３）テキストファイルが存在するか確認
４）テキストファイルを、作業用シートに読み込み
５）他の子フォルダについても２）～４）を繰り返す
６）オートフィルターで抽出（あるいは、フィルターオプション？）
７）抽出結果を「共通のexcel」に転記
８）作業用シート初期化

（マナ） 2017/03/24(金) 18:39

コメント返信：

[ 一覧(最新更新順) ]

[[20170320123710]] 『テキスト読み込み→フィルタ抽出』（のりたま） ページの最後に飛ぶ

[[20170320123710]]　『テキスト読み込み→フィルタ抽出』（のりたま）　ページの最後に飛ぶ