Excel VBA質問箱 IV

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

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


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

421 / 76735

←次へ　｜　前へ→


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

ちか - 22/2/27(日) 17:54 -


	引用なし

	パスワード

▼よろずやさん：
>そこじゃないです。
>
>その中で、「ChkCSVデータ」を呼び出してます。
>
>呼ばれた先の処理でチェックしてます。
>
>「Function ChkCSVデータ」で全部のモジュールを検索してください。

すみません、モジュール2にありました。

'&*************************************************************
'& CSVデータチェック処理
'&*************************************************************
Public Function ChkCSVデータ(ByVal strData As String, _
　　　　　　　　　　　　　　 ByVal strMode As String) As String

　　Dim StrCsv() As String
　　Dim strRtnMsg As String
　　Dim i As Long

　　strRtnMsg = ""
　　'-------------------------------------------------------
　　' カンマ区切りで配列に格納
　　'-------------------------------------------------------
　　strData = Replace(strData, """", "")
　　StrCsv = Split(strData, ",")
　　'-------------------------------------------------------
　　' 配列数チェック
　　'-------------------------------------------------------
　　i = UBound(StrCsv)
　　If i <= 7 Then
　　　　strRtnMsg = "NG"
　　　　ChkCSVデータ = strRtnMsg
　　　　Exit Function
　　End If
　　'-------------------------------------------------------
　　' ヘッダーチェック処理
　　'-------------------------------------------------------
　　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
　　'-------------------------------------------------------
　　' 戻り値設定処理
　　'-------------------------------------------------------
　　ChkCSVデータ = strRtnMsg

End Function

ということのようなのですが・・・

6 hits

▼

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