━━━ お得ネット News 20090823━━━━━━━━━━━━━━━━━━
このメールは、お得ネットアンケートに登録いただいた際に、
電子メールニュースの配信をご希望されている方にお届けしています。
━━━ http://www.o-toku.net/ ━━━━━━━━━ 有限会社ビッツ━━━
いつもお得ネットをご利用いただきありがとうございます。
たぶん今回が初苦戦？？
CSVファイルをVBAで読み込みをする時に、
特定の条件の文字列が化けてしまう・・・・？
事が判明しました！
プログラムを今までに相当組んでましたが、
なぜ今回だけ読み込みできないのか？？？
一文字目が数字で残りが文字列なのが原因のようですが、
他のシステムからの出力ファイルですので、
大本を変更することもできないので、
今回は、
split関数
を使用しました。
今までも使用したことはありましたが、
モジュールの一部です。
Do
While Not EOF(txtFileNumber)
Line Input #txtFileNumber, w_Str
If
Trim(Split(w_Str, ",")(0)) = "" Or Trim(Split(w_Str, ",")(2)) = "" Then
nRtn
= Msgbox("1･3番目が空白以外",VBOKONLY,"処理続行")
Else
nRtn =
Msgbox("1･3番目が空白",VBOKONLY,"ﾃﾞｰﾀ読み飛ばし")
End If
Loop
Close
#txtFileNumber
という感じかな。
ここまでは、
序の口ですが、
この先でまたまた大きな問題が・・・・
続きはまた明日！
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
有限会社ビッツ
お得ネット〜お得情報満載モール！〜
http://www.o-toku.net/
mail:info@o-toku.net
このメールは有限会社ビッツが発行しており、掲載された記事を許可なく
転載することを禁じます。
━━━━━━━━━━━━━━━━━━━ o-toku News 20090823━━━
|
お友達に紹介する 
お気に入りに追加する！