【VBA】CSV読込_特定行を無視する

IDカードでのタイムカードを使用している職場です。
打刻履歴は、１ヶ月単位で、CSVデータに取り込みされます。
その際、個人ごとにタイトル行が付随される仕組みになっています。
◆例◆
"カード番号","従業員ID","従業員名","日付","始業時刻","退勤時刻"
"0001","A0001","田中敏夫","2021/06/01","7:50","17:20"
"0001","A0001","田中敏夫","2021/06/02","7:49","18:20"
"0001","A0001","田中敏夫","2021/06/03","7:23",""
　※以下　月末日まで『始業・退勤』項目が空白
"カード番号","従業員ID","従業員名","日付","始業時刻","退勤時刻"
"0002","A0002","鈴木雅代","2021/06/01","8:45","16:20"
"0002","A0002","鈴木雅代","2021/06/02","8:49","17:01"
"0002","A0002","鈴木雅代","2021/06/03","",""
　※以下　月末日まで始業・退勤は空白

これのタイトル行を除いてCSVデータを読み込みたい（転記したい）のですが、
◆VBAコード◆
Sub InputCsv()
　Dim CSV As String
　Open "C:\data\ファイル名" For Input As #1
　Do Until EOF(1)
　　Line Input #1, CSV
　　If Split(CSV, ",")(0) <> "カード番号" Then
　　　’処理（略）
　　End If
　Loop
　Close #1
End Sub

としても、タイトル行が読み込まれてしまいます。
ちなみに、処理のところで、
　'退勤時刻のみが未登録の場合は何もしない
　　退勤時刻（　if split(CSV,",")(5) = "" then　）
で判定させたものは、うまく動作しています。

タイトル行を回避する方法があればご教授いただきたいです。
よろしくお願いします。

No.1 ベストアンサー 回答者： tatsumaru77 回答日時： 2021/07/03 18:44

Splitした結果の両端にダブルクート("")がありますので、それも含めて比較します。

以下のようにしてください。
If Split(CSV, ",")(0) <> """カード番号""" Then

この回答へのお礼

すごく基本的なことでしたね＞＜;;
ありがとうございます^^

お礼日時：2021/07/04 02:04