【Access/Excel/VBA】chr(63)詐欺を倒す。

やめろ、エクセル、やめろー！！

【参考】EXCELにWEBページから貼り付けて利用しています。

HTMLページのテーブルレイアウトからエクセルにデータを張り付けて、１列だけ使おうとすると、空白でも改行でもない謎の文字が張り付いて、SQLでの突き合わせが出来なくなる、という代物。

ちなみに、下記はそもそも、in句（OR的意味の）を作るためにデータをカンマ区切りにするのが目的。

-------------------------------------------------------------
Private Function Chg_Fid_Str(Str As Variant) As String
'============================================
' 読点と改行をカンマに変換する
'============================================
Dim wkAry() As String, i As Long, wkStr As String

wkStr = ""

If Not IsNull(Str) Then

wkStr = Replace(Replace(Str, "、", ","), vbCrLf, ",")
wkAry = Split(wkStr, ",")

wkStr = ""
For i = 0 To UBound(wkAry)
If Trim(wkAry(i)) <> "" Then
If wkStr <> "" Then wkStr = wkStr & ","
wkAry(i) = Trim(wkAry(i))
If AscB(Mid(wkAry(i), Len(wkAry(i)), 1)) = 160 Then wkAry(i) = Left(wkAry(i), Len(wkAry(i)) - 1) ' ←　ココ
wkStr = wkStr & wkAry(i)
End If
Next

End If

Chg_Fid_Str = wkStr

End Function
-------------------------------------------------------------