CSVからのインポートで、ピリオドが＃に化ける (ID:141749)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

VBレスキュー(花ちゃん) 、ご回答ありがとうございます。ホームページは以前拝見したことがあります。

CSVを読み込む部分はこう書いてあります。

Public Function Fn_Read_CSV(ByVal sFolder As String, ByVal sFile As String) As ADODB.Recordset
On Error GoTo ErrorHandler
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
    Dim sconn As String
    rs.CursorLocation = adUseClient
    rs.CursorType = adOpenKeyset
    rs.LockType = adLockBatchOptimistic
    sconn = "Driver={Microsoft Text Driver (*.txt; *.csv)};" & "DBQ=" & sFolder
    rs.Open "SELECT * FROM " & sFile & "", sconn
    Set Fn_Read_CSV = rs
ExitHandler:

次に、そのFunctionを使っている部分です。

Private Function Fn_LoadData() As Boolean
On Error GoTo Err
    Dim mStr As String
    Dim mRs As ADODB.Recordset
    Dim mRs_1 As New ADODB.Recordset
    Dim mExist As String
    Dim mDataNo As Long
    Dim mPrice As Double
    Dim mAmount As Double
    Dim mITEM_CLASSIFY As String
    Dim mMATERIAL_PRICE As String
    Dim mM_PRICE_UNIT As String
    Dim i As Integer
    Set mRs = Fn_Read_CSV(Trim(txtDirectory), Trim(txtFileName))

この下にStop  を入れてプログラムを実行し、immediate window で
?mRs.Fields(1).Name  と入力してEnter  すると、次のように表示されます。
WJC100000G +0#5
CSVデータの該当フィールドの値は、  WJC100000G +0.5  なのです。

どれが、使用できない「予約語」にあたるのでしょうか？

←解決時は質問者本人がここをチェックしてください。

戻る