[vba]FileSystemObjectエラーでEDIソフト停止

忙しい朝の出荷時間、自作EDIソフトが止まると焦り倍増

今日は、キツイ日になる予感

自作ソフトの良いところはソフト代ゼロ円
悪いところは、突然エラーで止まっても助けてくれる人がいないこと。

今回のエラーメッセージが

プロシージャの呼び出し、または引数が不正です

エラーを出してるのは「FileSystemObject」
[vb] Dim FSO As New FileSystemObject
Dim st As TextStream
Dim myTEXT As String

Set st = FSO.CreateTextFile("C:\EDI\upload.csv")

st.WriteLine (myTEXT)
[/vb]

「FileSystemObject　プロシージャの呼び出し　引数が不正」でGoogle検索すると

VBAの文字列はUFT-8として扱われるようです。この場合文字列にUTF-8に存在してShift-JISに存在しない文字列を書き出そうとした、かつファイルがShift-JISの場合このエラーが発生するようです

UTF-8で使えるがShift-JISでは使えない文字を使ってる商品名があるのかな？

調べた結果、上の”L”がエラー原因
今日から販売を始めた商品でした。

下が普通の”L”
誰が登録したんだ？

とりあえず商品マスタを普通の”L”に変えたらエラーが消えました！