Excel VBA質問箱 IV

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

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


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

50813 / 76733

←次へ　｜　前へ→


	【30804】Re:CSVファイルの取込について

ichinose - 05/11/4(金) 22:39 -


	引用なし

	パスワード

セブンさん、みなさん、こんばんは。
>
>
>タイトル1,タイトル2,タイトル3,タイトル4DATE1,DATE2,DATE3,DATE4,
実はこれ↑タイトル4とDATE1の間には、表示されないコードがあるのでは
ありませんか？例えば、VbcrコードとかVblfコードとか

そうだと仮定すると・・・、

Sub testread()
　　Dim dat1 As Variant
　　Dim rw As Long
　　Dim myarray As Variant
　　Dim partarray As Variant
　　Open "d:\csvtest.csv" For Input As #1
'　　　　　　 ↑これは、実際のファイルを指定して下さい
　　rw = 1
　　Do Until EOF(1)
　　　 Line Input #1, dat1
　　　 myarray = Split(dat1, vbLf)
　　　 For idx = LBound(myarray) To UBound(myarray)
　　　　 partarray = Split(myarray(idx), ",")
　　　　 Range(Cells(rw, 1), Cells(rw, UBound(partarray) - LBound(partarray) + 1)).Value = partarray
　　　　 rw = rw + 1
　　　　 Next idx
　　　 Loop
　　Close #1
End Sub

2 hits

▼

【30798】CSVファイルの取込について セブン 05/11/4(金) 21:03