複数のCSVを1つにしてAccessに読み込ませたい

Question

複数のCSVファイルを一つにまとめてAccessに取り込みたい

90個以上あるCSVを1つにしたい

1つ目のcsvは上から4行を削除、それ以降は5行目までを削除して1つ目の表の一番下に繋げていきたい

前提

Accessでcsvに保存された表を読み込んで様々なデータを抽出しています。

今回その表が保存されたcsvが90以上あるのでそれらを一括で読み込みたい

最終的なデータはそれらの合計値なので個別でなくていい

1つのフォルダに入れたcsvをPowerShellを使ってforコマンドを使えば良さそうだが初心者で調べても分からない

csvが入っているフォルダを指定
Forコマンドで処理を指定(最初の処理、終了条件、毎回の条件)
csvファイルとして出力する

の流れだと思っています

発生している問題・エラーメッセージ

おそらくfor skip=4,終了条件,skip=5 のような形だと思うのですが終了条件(フォルダ内のcsvを全て読み込む)の書き方が分からない

基本的な内容かもしれませんがよろしくお願いいたします。

Comments

[sk.exe]

> 90個以上あるCSVを1つにしたい

> 1つ目のcsvは上から4行を削除、それ以降は5行目までを削除して
> 1つ目の表の一番下に繋げていきたい

> 1つのフォルダに入れたcsv

・CSV ファイルの 1 行目が列見出しではない。
　（ 1 ～ 4 行目が余計なレコードで、実際の列見出しは 5 行目、6 行目以降がデータ行である）

・1 つのフォルダの中に格納されている全ての CSV ファイルのレイアウトは完全に同一である。

ということなのであれば、PowerQuery を使用された方がよいのではないかと。

Answer 1

CSVを纏めるより、Accessで順次インポートする方が使い勝手が良いと思います。
複数のファイルを指定するには、FileDialog を使用して、フォルダを指定するか複数のファイルを指定するなどで対象を特定します。
フォルダ指定の場合は、FileSystemObjectでフォルダ内のファイルを取得するのが良いかと思います。

サンプルコードは「Access インポート 複数ファイル指定　filesystemobject」あたりのキーワードで検索すれば良いでしょう。

Answer 2

1つのフォルダに入れたcsvをPowerShellを使って

90個以上あるCSVを1つにしたい

1つ目のcsvは上から4行を削除、それ以降は5行目までを削除

「Accessに読み込ませる」部分は抜きにして、兎にも角にも PowerShell でやりたいんだ、というお話なのであれば、例えば次のようなスクリプトを実行してやればよろしいのではないかと。

$TargetFolder = "C:\FolderName\"
$TargetPath = $TargetFolder + "*.csv"
$ItemList = Get-ChildItem $TargetPath
$NewContent = ""
foreach($Item in $ItemList){
    if(! $Item.PSIsContainer){
        if($NewContent -eq ""){
            $SkipRows = 4
        }else{
            $SkipRows = 5
        }
        $Lines = Get-Content -Path $Item.FullName -Encoding default | Select-Object -Skip $SkipRows
        foreach($Line In $Lines){
            $NewContent += ($Line + "`r`n")
        }
    }
}
$OutputFolder = $TargetFolder + "result"
$IsExist = Test-Path $OutputFolder
if(! $IsExist){
    New-Item $OutputFolder -ItemType Directory
}
$OutputPath = $OutputFolder + "\MergedFile.csv"
Out-File -FilePath $OutputPath -InputObject $NewContent -Encoding default -Force -NoNewline