Excel VBA質問箱 IV

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

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


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

48808 / 76736

←次へ　｜　前へ→


	【32858】Re:CSVの取り込みについて

だるま

- 05/12/25(日) 12:53 -


	引用なし

	パスワード

こんにちは

0が消えないようにするにはセルの書式を文字列に変えて、そこへ読み込めば良い
です。^d^

なお、下記コードでは読み込む列をすべて文字列にしていますが、あらかじめ分か
っていればその対象列のみを文字列にすることも可能です。

Sub ReadCSV()
　　Dim myPath As String
　　Dim N As Integer
　　Dim D As String
　　Dim myVals As Variant
　　Dim rngDest As Range
　　Dim i As Integer
　　
　　myPath = ThisWorkbook.Path & "\test.csv"
　　N = FreeFile
　　
　　Open myPath For Input As #N
　　Line Input #N, D
　　Close #N
　　
　　myVals = Split(D, ",")
　　
　　Application.ScreenUpdating = False
　　
　　Set rngDest = Workbooks.Add.Worksheets(1).Range("A1")
　　
　　rngDest.Resize(, UBound(myVals) + 1).EntireColumn.NumberFormat = "@"
　　
　　Open myPath For Input As #N
　　
　　Do Until EOF(N)
　　　　Line Input #N, D
　　　　myVals = Split(D, ",")
　　　　rngDest.Resize(, UBound(myVals) + 1).Value = myVals
　　　　Set rngDest = rngDest.Offset(1)
　　Loop
　　
　　Close #N
　　
　　Application.ScreenUpdating = True
　　
End Sub

0 hits

▼

【32852】CSVの取り込みについて 麻衣子 05/12/25(日) 3:03