Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

17367 / 76732

←次へ　｜　前へ→


	【64820】CSVの取込について

たつ - 10/3/16(火) 13:49 -


	引用なし

	パスワード

6万件以上のCSVデータをエクセルへ出力するようにマクロを組みました

2列目のデータをキーにして、
2列目のデータが1から始まるものをシート【1】へ・・・
2から始まるものをシート【2】へ・・・
その他はシート【その他】へと
データをシート別に振り分けています
各シートの1行目を項目にしたいのですが、そのやり方がいまいちわからず困ってます
どのように作成したらよいのでしょうか？
どうかアドバイスをお願いします

Sub test()

Dim Mystring As String
Dim MyVar As Variant
Dim MaxR As Long

Const MyFile As String = "C:TEST\集計.csv"

Open MyFile For Input Access Read As #1

i = 1

While Not EOF(1)
Line Input #1, Mystring
Mystring = Replace(Mystring, """", "")

MyVar = Split(Mystring, ",")
If MyVar(1) Like "1*" Then
　 Sheets("1").Activate
　 MaxR = Range("K" & Rows.Count).End(xlUp).Row
　 For q = 0 To UBound(MyVar)
　　　 ActiveSheet.Cells(MaxR + 1, (q + 1)) = MyVar(q)
　 Next q
ElseIf MyVar(1) Like "2*" Then
　 Sheets("2").Activate
　 MaxR = Range("K" & Rows.Count).End(xlUp).Row
　 For q = 0 To UBound(MyVar)
　　　 ActiveSheet.Cells(MaxR + 1, (q + 1)) = MyVar(q)
　 Next q
Else
　 Sheets("その他").Activate
　 MaxR = Range("K" & Rows.Count).End(xlUp).Row

　 For q = 0 To UBound(MyVar)
　 ActiveSheet.Cells(MaxR + 1, (q + 1)) = MyVar(q)
　 Next q
End If
　
Wend

Close #1

End Sub

0 hits

▼

【64820】CSVの取込について たつ 10/3/16(火) 13:49

≪