Excel VBA質問箱 IV

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

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


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

420 / 76735

←次へ　｜　前へ→


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

よろずや - 22/2/27(日) 18:58 -


	引用なし

	パスワード

▼ちかさん：
>　　'-------------------------------------------------------
>　　' ヘッダーチェック処理
>　　'-------------------------------------------------------
>　　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
>
>
>ということのようなのですが・・・

ここで項目の並びをチェックしています。
それを新しい書式の順に並べ替える必要があります。
これで、最初の関門は突破できます。

まだまだ棘の道は続きますが...

7 hits

▼

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