Excel VBA質問箱 IV

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

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


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

39601 / 76732

←次へ　｜　前へ→


	【42241】Re:セル中の文字の置き換え方法での

Hirofumi - 06/9/4(月) 20:49 -


	引用なし

	パスワード

[#41872] Re:csvファイルにて　Hirofumi　- 06/8/24(木) 19:08 -　
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=41872;id=excel

のコードで以下を修正して、Csvを読み込んだら？

修正は、「Private Sub CSVRead」の中だけに成ります

Private Sub CSVRead(ByVal strFileName As String, _
　　　　　　　　　　ByRef rngWrite As Range, _
　　　　　　　　　　Optional ByRef lngRow As Long = 1, _
　　　　　　　　　　Optional strDelim As String = ",")

　　Dim i As Long　　　　　　　　　　　　　　　　　　　　　 '☆追加
　　Dim dfn As Integer
　　Dim vntField As Variant
　　Dim strBuff As String
　　Dim blnMulti As Boolean
　　Dim strREC As String

　　'ファイルをOpen
　　dfn = FreeFile
　　Open strFileName For Input As dfn

　　Do Until EOF(dfn)
　　　　'１行読み込み
　　　　Line Input #dfn, strBuff
　　　　'論理レコードに物理レコードを追加
　　　　strREC = strREC & strBuff
　　　　'"="を""に置き換え
　　　　strREC = Replace(strREC, "=", "")　　　　　　　　　 '☆追加
　　　　'論理レコードをフィールドに分割
　　　　vntField = SplitCsv(strREC, strDelim, , , blnMulti)
　　　　'フィールド内で改行が有る場合
　　　　If Not blnMulti Then
　　　　　　'★各Fieldで先頭に"="が必要なら
'　　　　　　For i = 0 To UBound(vntField)　　　　　　　　　 '☆追加
'　　　　　　　　vntField(i) = "=" & vntField(i)　　　　　　 '☆追加
'　　　　　　Next i　　　　　　　　　　　　　　　　　　　　　'☆追加
　　　　　　With rngWrite.Offset(lngRow)
　　　　　　　　With .Resize(, UBound(vntField) + 1)
　　　　　　　　　　'出力範囲を文字列に設定
　　　　　　　　　　.NumberFormat = "@"
　　　　　　　　　　'データを出力
　　　　　　　　　　.Value = vntField
　　　　　　　　End With
　　　　　　End With
　　　　　　'出力行をインクリメント
　　　　　　lngRow = lngRow + 1
　　　　　　strREC = ""
　　　　Else
　　　　　　'セル内改行として残す場合
　　　　　　strREC = strREC & vbLf
　　　　End If
　　Loop

　　Close #dfn

End Sub

2 hits

▼

【42104】セル中の文字の置き換え方法での 質問（煮詰まった） 06/9/1(金) 9:49