[[20181214131714]]　『ファイル名を指定して指定したファイルを一つにま』（だいちゃん）　ページの最後に飛ぶ

『ファイル名を指定して指定したファイルを一つにまとめたい』（だいちゃん）

今、５５個のｃｓｖファイルがあります。

K1-1(～ｰ15）～K5-1～15
まであり。

K1-1～15までを、一つのファイル。
K2-1～15までを、一つのファイル（以下、同じ）としたいです。
また、ファイルによっては、連番になっておらずとんでいることも
あります。

マクロで、各ファイルをまとめることできますか？
枝番で、シート分けをしたいです。

＜使用 Excel：Excel2016、使用 OS：Windows8 ＞

 このへんとか
https://rakuzanet.jp/tsv-csv-txt-combine.html
http://hiyo-ac.hatenablog.com/entry/2018/02/17/101940

 DOS　CSVファイルの結合
 で検索した方が早いかと
（BJ） 2018/12/14(金) 13:52

 ああ、1つのCSVファイルを1シートとして、1つのブックにまとめるのか、
 なんで、マクロ作成依頼に走るのか・・。
 ↓で、さっさと終わらせた方が早いと思うし。
https://tipstour.net/excel-sheet-easy-copy

 すみません、↑行数か列数かどちらだかわからんけどが合わないとできんかった。by2007
（BJ） 2018/12/14(金) 15:25

まぁ、私も作業依頼は嫌いですが、55個もファイルがあっったら、いちいち開いて、シートコピーして、閉じてを繰り返すのはめんどいかもしれないですね。
ちょっとアルコールがはいってしまっているのでひとまずアイデアだけ投稿しておきます。

    Sub さんぷる()
        Dim x As Integer, y As Integer
        Dim MySTR As String

        For x = 1 To 2 Step 1
            For y = 1 To 15 Step 1
                MySTR = "K" & x & "-" & y & ".csv"
                Debug.Print MySTR & "をブックとして開きます"
                Debug.Print "ブック「" & MySTR & "の１シート目をまとめブックの最終シートの後ろにシートコピーします"
                Debug.Print "ブック「" & MySTR & "」を上書きせずに閉じます"
                Debug.Print vbCrLf
            Next y
        Next x
    End Sub

存在しないファイルを指定したときに無視して進める方法についてはこちらが参考になるでしょう。
[[20181214114837]]　『ファイル名を、変更したい』（だいちゃん）

（もこな２） 2018/12/14(金) 22:27

コメント返信：

[ 一覧(最新更新順) ]

[[20181214131714]] 『ファイル名を指定して指定したファイルを一つにま』（だいちゃん） ページの最後に飛ぶ

[[20181214131714]]　『ファイル名を指定して指定したファイルを一つにま』（だいちゃん）　ページの最後に飛ぶ