IDカードでのタイムカードを使用している職場です。
打刻履歴は、1ヶ月単位で、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 )
で判定させたものは、うまく動作しています。
タイトル行を回避する方法があればご教授いただきたいです。
よろしくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) フォルダの場所を可変にしたいです(マクロ) 4 2023/05/11 10:00
- Excel(エクセル) マクロでテキストファイルを読み込んだ際の最終セルにデータと改行が含まれる問題の改善方法 2 2022/03/25 16:50
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Excel(エクセル) エクセルのVBAについて とあるサイトのコードを参考に、CSVの文字化けを直すVBAを作成しているの 7 2022/11/04 14:15
- Visual Basic(VBA) エクセルVBAについて 8 2022/07/13 22:41
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- その他(Microsoft Office) マクロVBAについて 1 2022/09/06 18:12
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
フリー wifi でwindowsの時刻が...
-
[MS Access]クエリで変換 hhmm...
-
8時間以上だったら1時間マイ...
-
Accessの重複なしのカウントの...
-
標準時間と117の時間の10秒のずれ
-
アルファエックス
-
エクセルVBAでタイマーコントロ...
-
iPhoneのボイスメモ
-
スマートウォッチに時刻の合わ...
-
下の画像の問題の(2)なのですが...
-
午後11時59分って何時? 昼の11...
-
パソコンに付いている時計の時...
-
時間と時刻の違い!?
-
VBA で PCの 時刻を サーバー時...
-
サンライズエクスプレスの通過時刻
-
貨物列車の時刻 (上越線)
-
エクセルのNow関数の時刻の更新...
-
名港トリトンのライトアップの時間
-
ExcelのVBAで他のPCのシステム...
-
エクセルでの経過日数と時間の...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Accessの重複なしのカウントの...
-
[MS Access]クエリで変換 hhmm...
-
アルファエックス
-
米原駅から栃木県足利市八幡町...
-
下の画像の問題の(2)なのですが...
-
8時間以上だったら1時間マイ...
-
iPhoneのボイスメモ
-
電線等の入線潤滑材の代用品っ...
-
午後11時59分って何時? 昼の11...
-
Excelでミリsecまでの2つの時...
-
エクセルで早朝深夜労働時間を...
-
時間と時刻の違い!?
-
標準時間と117の時間の10秒のずれ
-
[h]:mm形式→10進法への変換
-
エクセルVBAでタイマーコントロ...
-
エクセルのNow関数の時刻の更新...
-
サンライズエクスプレスの通過時刻
-
時間帯別作業時間についてエク...
-
SL(DL)やまぐち号 津和野行きの...
-
PC間の時刻同期コマンドが失敗...
おすすめ情報