Excel VBA質問箱 IV

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

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


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

419 / 76735

←次へ　｜　前へ→


	【81983】Re:csvの読み込みエラーについて

ちか - 22/2/27(日) 19:09 -


	引用なし

	パスワード

▼よろずやさん：
>▼ちかさん：
>>　　'-------------------------------------------------------
>>　　' ヘッダーチェック処理
>>　　'-------------------------------------------------------
>>　　If strMode = CST_モード2 Then
>>　　　　If (StrCsv(0) <> "企業コード") Or _
>>　　　　　 (StrCsv(1) <> "支店コード") Or _
>>　　　　　 (StrCsv(2) <> "店舗コード") Or _
>>　　　　　 (StrCsv(3) <> "企業名") Or _
>>　　　　　 (StrCsv(4) <> "支店名") Or _
>>　　　　　 (StrCsv(5) <> "店舗名") Or _
>>　　　　　 (StrCsv(6) <> "店舗郵便番号") Or _
>>　　　　　 (StrCsv(7) <> "店舗住所") Or _
>>　　　　　 (StrCsv(8) <> "店舗電話番号") Then
>>　　　　　
>>　　　　　 strRtnMsg = "NG"
>>　　　　Else
>>　　　　　　strRtnMsg = "OK"
>>　　　　End If
>>　　ElseIf strMode = CST_モード1 Then
>>　　　　If (StrCsv(0) <> "顧客管理番号1.") Or _
>>　　　　　 (StrCsv(1) <> "氏名") Or _
>>　　　　　 (StrCsv(2) <> "氏名(カナ)") Or _
>>　　　　　 (StrCsv(3) <> "郵便番号") Or _
>>　　　　　 (StrCsv(4) <> "都道府県") Or _
>>　　　　　 (StrCsv(5) <> "市区町村") Or _
>>　　　　　 (StrCsv(6) <> "市区町村以下") Or _
>>　　　　　 (StrCsv(7) <> "携帯電話番号1") Then
>>　　　　　
>>　　　　　 strRtnMsg = "NG"
>>　　　　Else
>>　　　　　　strRtnMsg = "OK"
>>　　　　End If
>>　　End If
>>
>>
>>ということのようなのですが・・・
>
>ここで項目の並びをチェックしています。
>それを新しい書式の順に並べ替える必要があります。
>これで、最初の関門は突破できます。
>
>まだまだ棘の道は続きますが...

なるほど・・・
実は並び替えはしてみたのですが、
まだｃｓｖが開けなくて・・・

他にも何か原因があると思われますか？

チェックだけ済めば読み込めるのかな、と思っていたのですが・・・

9 hits

▼

【81974】csvの読み込みエラーについて ちか 22/2/24(木) 13:14