[[20160608092223]]　『数百万件あるデータの分割』（pk）　ページの最後に飛ぶ

『数百万件あるデータの分割』（pk）

いつもお世話になっておりますm(__)m

csvファイルで数百万件(数百万行)データがあり、分割したいです。
列は1列のみです。

相談1
エクセルで開く時に1~10万行までというように指定して開くことは出来ますでしょうか？

相談2
このcsvファイルを10万件ずつ分割してcsv保存する、というマクロはできますでしょうか？
出来ましたら教えて頂きたいのですが

宜しくお願い致します。

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

数百万行…。それはExcelの限界を超えますね。たとえ10万行に絞ったとしても、そんな膨大なデータをExcelで集計とかすると、とんでもなく時間がかかりそう。そのデータを作成したアプリを作った人に、データを分解するツールを作ってもらうのが良いのですが…。

とりあえず、10万行にバラすマクロ例なぞ。遅いと言われても、インタプリンタ言語で数百万行扱おうとするのが間違いだと思います。

 Sub test()
    Const iMAX = 100000
    Dim F1 As Integer
    Dim F2 As Integer
    Dim i As Long
    Dim cw As String

    F1 = FreeFile
    Open "C:\test\aaa.csv" For Input As #F1
    While EOF(F1) = False
        i = i + 1
        If i Mod iMAX = 1 Then
            If i <> 1 Then
                Close #F2
                F2 = 0
            End If
            F2 = FreeFile
            Open "C:\test\aaa" & (i - 1) / iMAX + 1 & ".csv" For Output As #F2
        End If
        Line Input #F1, cw
        Print #F2, cw
    Wend
    If F2 <> 0 Then
        Close #F2
    End If
    Close #F1
 End Sub
（???） 2016/06/08(水) 10:26

（???）さま

早速ありがとうございます！！！！

10万件にしたデータはエクセルでないシステムにアップデートするものなので
重くても大丈夫です^^
とは言え、確かに無謀な依頼ばかりで困ってますが（TT)

教えて頂いたマクロで無事に分割できました！
凄いです（TT)

本当に本当にありがとうございました(;;)
助かりました（＞＜）

また何かありましたら宜しくお願い致します！m(__)m

（pk） 2016/06/08(水) 10:47

コメント返信：

[ 一覧(最新更新順) ]

[[20160608092223]] 『数百万件あるデータの分割』（pk） ページの最後に飛ぶ

[[20160608092223]]　『数百万件あるデータの分割』（pk）　ページの最後に飛ぶ