度々申し訳ございません。
VBSを使用して、
「あるセルを参照し、そのセル内の値が既定の値であったら、別セルに固定の値を入力する」
という処理を実施しようとしているのですが、
処理を実行すると、
エラー：型が一致しません。：DateValue
とエラーが表示されます
文字列型と日付型の違いのためということはわかるのですが、
対処方法がよくわかりませんでした。
⇒csvの日付がyyyy/mm/dd形式のため、
（前段の処理でyyyy/mm/ddにしております）
これを再度日付型として認識させる方法を実現すればいいと思っているのですが、
その実現方法がわかりません。
教えてください
お分かりになられる方、
申し訳ございませんがご教授をお願いいたします
あるセルを参照：[offtime]列
既定の値：「23:59:59」
別セル：翌日の[ontime]列
固定の値：[0:00:00]
入力ファイル：csv_addlog_tmp3.csv
日付1,グループ,U_name,ontime,offtime,act時間
"2019/05/10","Aグループ","AAA","8:29:00","8:30:00","0:01:00"
"2019/05/10","Aグループ","BBB","8:49:00","8:51:00","0:01:00"
"2019/05/10","Aグループ","CCC","8:38:00","11:26:00","0:01:02"
"2019/05/09","Aグループ","AAA","8:28:00","17:04:00","0:01:00"
"2019/05/09","Aグループ","BBB","8:49:00","17:58:00","3:11:52"
"2019/05/09","Aグループ","CCC","8:36:00","19:21:00","0:01:00"
"2019/05/08","Aグループ","AAA","8:31:00","17:04:00","3:36:47"
"2019/05/08","Aグループ","BBB","8:48:00","23:59:59","0:01:00"
"2019/05/08","Aグループ","CCC","8:30:00","22:34:00","0:01:00"
"2019/05/05","Aグループ","BBB","8:51:00","19:10:00","0:01:00"
"2019/05/05","Aグループ","CCC","8:52:00","23:28:00","0:01:00"
"2019/05/04","Aグループ","AAA","8:25:00","17:12:00","1:07:52"
"2019/05/04","Aグループ","BBB","8:48:00","18:46:00","0:01:00"
"2019/05/04","Aグループ","CCC","8:48:00","22:49:00","0:01:00"
"2019/05/03","Aグループ","AAA","8:32:00","23:59:59","0:01:00"
"2019/05/03","Aグループ","BBB","9:01:00","18:13:00","0:01:00"
"2019/05/02","Aグループ","AAA","8:29:00","17:05:00","0:01:00"
"2019/05/02","Aグループ","BBB","9:09:00","18:34:00","0:01:00"
"2019/05/01","Aグループ","AAA","8:28:00","17:07:00","0:01:00"
"2019/05/01","Aグループ","BBB","8:53:00","19:07:00","0:01:00"
"2019/05/01","Aグループ","CCC","8:51:00","21:01:00","0:01:00"
出力ファイル（結果として出したい）：csv_addlog_tmp.csv
⇒5/4のAAAと5/9のBBBのontimeの値が「0:00:00」になっている
日付1,グループ,U_name,ontime,offtime,act時間
"2019/05/10","Aグループ","AAA","8:29:00","8:30:00","0:01:00"
"2019/05/10","Aグループ","BBB","8:49:00","8:51:00","0:01:00"
"2019/05/10","Aグループ","CCC","8:38:00","11:26:00","0:01:02"
"2019/05/09","Aグループ","AAA","8:28:00","17:04:00","0:01:00"
"2019/05/09","Aグループ","BBB","0:00:00","17:58:00","3:11:52"
"2019/05/09","Aグループ","CCC","8:36:00","19:21:00","0:01:00"
"2019/05/08","Aグループ","AAA","8:31:00","17:04:00","3:36:47"
"2019/05/08","Aグループ","BBB","8:48:00","18:40:00","0:01:00"
"2019/05/08","Aグループ","CCC","8:30:00","22:34:00","0:01:00"
"2019/05/05","Aグループ","BBB","8:51:00","19:10:00","0:01:00"
"2019/05/05","Aグループ","CCC","8:52:00","23:28:00","0:01:00"
"2019/05/04","Aグループ","AAA","0:00:00","17:12:00","1:07:52"
"2019/05/04","Aグループ","BBB","8:48:00","18:46:00","0:01:00"
"2019/05/04","Aグループ","CCC","8:48:00","22:49:00","0:01:00"
"2019/05/03","Aグループ","AAA","8:32:00","17:00:00","0:01:00"
"2019/05/03","Aグループ","BBB","9:01:00","18:13:00","0:01:00"
"2019/05/02","Aグループ","AAA","8:29:00","17:05:00","0:01:00"
"2019/05/02","Aグループ","BBB","9:09:00","18:34:00","0:01:00"
"2019/05/01","Aグループ","AAA","8:28:00","17:07:00","0:01:00"
"2019/05/01","Aグループ","BBB","8:53:00","19:07:00","0:01:00"
"2019/05/01","Aグループ","CCC","8:51:00","21:01:00","0:01:00"
記載したコード
sub logon_check()
Dim a, c, co, cr, d(), f, m, n, i, j, so, x, z(5)
Set so = CreateObject("Scripting.FileSystemObject")
f = so.GetParentFolderName(WScript.ScriptFullName)
Set co = so.OpenTextFile(f & "\csv_addlog_tmp3.csv", 1)
Set cr = so.OpenTextFile(f & "\csv_addlog_tmp4.csv", 2, True)
'タイトル業種出力
x = co.ReadLine
cr.WriteLine x
c = - 1
'レコード数分実施
Do Until co.AtEndOfStream
a = Split(co.ReadLine, ",")
c = c + 1
ReDim Preserve d(5, c)
For i = 0 to 5
d(i, c) = a(i)
Next
Loop
co.Close
Set co = Nothing
'[offtime]が「23:59:59」の行を選択
For i = 0 to c
If d(4, i) = "23:59:59" Then
m = i
n = DateAdd("d", 1, d(0, i))
End If
'翌日の[ontime]に「00:00:00」を投入
'表示形式が[h:mm:ss]なので、時刻は[0:00:00]で設定される
For j = m + 1 to c
If n = DateValue(d(0, j)) and d(4, j) = "23:59:59" and d(2, j) = d(2, i) Then
' If n = DateValue(d(0, j)) and DateValue(d(4, j)) = "23:59:59" and d(2, j) = d(2, i) Then
' If n = d(0, j) and d(4, j) = "23:59:59" and d(2, j) = d(2, i) Then
d(3, j) = "0:00:00"
Exit For
End If
Next
Next
For i = 0 to c
For j = 0 to 5
z(j) = d(j, i)
Next
cr.WriteLine Join(z, ",")
Next
cr.Close
Set cr = Nothing
Set so = Nothing
'バッファを Flush してファイルを閉じる
Set dic = Nothing
end sub入力ファイル（csv_addlog_tmp3.csv）は、
objADO.Execute _
"SELECT Format([日付],'yyyy/mm/dd') AS 日付1, Format([offtime],'h:nn:ss') as [OFF1] , ｴｰｼﾞｪﾝﾄ , 操作種別 , 端末機No , 部署名 , Format([ontime],'h:nn:ss') as [ON1] " & _
" INTO ~~~
で、作成しています
-
気になる質問をクリップする
クリップした質問は、後からいつでもマイページで確認できます。
またクリップした質問に回答があった際、通知やメールを受け取ることができます。
クリップを取り消します
-
良い質問の評価を上げる
以下のような質問は評価を上げましょう
- 質問内容が明確
- 自分も答えを知りたい
- 質問者以外のユーザにも役立つ
評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。
質問の評価を上げたことを取り消します
-
評価を下げられる数の上限に達しました
評価を下げることができません
- 1日5回まで評価を下げられます
- 1日に1ユーザに対して2回まで評価を下げられます
質問の評価を下げる
teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。
- プログラミングに関係のない質問
- やってほしいことだけを記載した丸投げの質問
- 問題・課題が含まれていない質問
- 意図的に内容が抹消された質問
- 過去に投稿した質問と同じ内容の質問
- 広告と受け取られるような投稿
評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。
質問の評価を下げたことを取り消します
この機能は開放されていません
評価を下げる条件を満たしてません
質問の評価を下げる機能の利用条件
この機能を利用するためには、以下の事項を行う必要があります。
- 質問回答など一定の行動
-
メールアドレスの認証
メールアドレスの認証
-
質問評価に関するヘルプページの閲覧
質問評価に関するヘルプページの閲覧
checkベストアンサー
0
おそらくDateValueに与えている値がCSVファイルから取ってきた値そのもので、ダブルクォーテーションを含んだ値（例えば"2019/05/01"）になっているからではないかと思います。
単純な対応としては引数に与えるときにダブルクォーテーションを削除してあげればよいでしょう。
If n = DateValue(d(0, j)) and d(4, j) = "23:59:59" and d(2, j) = d(2, i) Then
↓
If n = DateValue(Replace(d(0, j),"""","")) and d(4, j) = "23:59:59" and d(2, j) = d(2, i) Then
同様に"23:59:59"と比較している箇所は正しく判定できていない可能性があります。
"""23:59:59"""と比較しないとダメかもです。
投稿
-
回答の評価を上げる
以下のような回答は評価を上げましょう
- 正しい回答
- わかりやすい回答
- ためになる回答
評価が高い回答ほどページの上位に表示されます。
-
回答の評価を下げる
下記のような回答は推奨されていません。
- 間違っている回答
- 質問の回答になっていない投稿
- スパムや攻撃的な表現を用いた投稿
評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。
15分調べてもわからないことは、teratailで質問しよう！
- ただいまの回答率 88.61%
- 質問をまとめることで、思考を整理して素早く解決
- テンプレート機能で、簡単に質問をまとめられる
2019/05/10 18:31
確認したところ、まさにおっしゃる通りでした。
replaceを使用して対応させていただきます