excelのVBAでアドバイスお願いします

質問

excel2000を利用しています。

■状況
・「実験フォルダ」という名前のフォルダがあります
・「実験フォルダ」の中に「差し込み表示.xls」という名前のファイルがあります
・「実験フォルダ」の中に「実験データ.xls」という名前のファイルがあります。

■やりたいこと
・「実験データ.xls」のファイルデータを参照して、「差し込み表示.xls」のファイルにデータを表示させたい。
・検索するキーは日付（「実験データはＢ列、差し込み表示はＥ５セル」です。

■状況
自分で作ったコードだと値がみつかりません、となって、うまくデータを転記して表示してくれません。

■お願いしたいこと
コードの修正アドバイス、もしくは、他にもっといいプログラムがあるなどのアドバイスがあればいただけるとありがたいです。

■うまくいかないコード
Option Explicit
Sub datatyuusyutu()
On Error Resume Next
Const sashikomiDisplay As String = "差し込み表示.xls"
Const dataFile As String = "実験データ.xls"
Dim i As Long
Dim j As Long
Dim k As Long
Dim objectionrow As Long
Dim lastRow As Long
Dim targetDate As String
Dim targetTime As String
Dim data(1 To 43) As Double
Dim dataFindFlag As Boolean
Dim 対象フォルダ As String
'検索する年月日を取得
targetDate = Range("E5").Value
MsgBox targetDate
対象フォルダ = ThisWorkbook.Path & "\"
Workbooks.Open 対象フォルダ & dataFile
lastRow = Cells(Rows.Count, "B").End(xlUp).Row 'B列の最終行を得る
MsgBox lastRow
'年月日で検索
For i = 2 To lastRow
If Cells(i, 2) = targetDate Then
Cells(i, 2).Select
dataFindFlag = True
For k = 1 To 43
data(k) = Cells(i - 1, k)
Next k
Exit For
End If
Exit For
Next i
Windows(sashikomiDisplay).Activate
With Workbooks("実験データ.xls")
If dataFindFlag = True Then
Cells(1, 2) = data(1)
Cells(12, 3) = data(4)
Cells(14, 6) = data(5)
MsgBox "実行しました"
Else
MsgBox "データがありません"
End If
End With
Workbooks(dataFile).Close savechanges:=False
End Sub

回答No.1

doara_2011 · ベストアンサー

B列の日付データ、画面上には見えてないけど、書式で西暦の上2桁分を表示しないように
なっているのでは？　数式バーで確認して下さい。
上記であっているなら
＞If Cells(i, 2) = targetDate Then
を以下のように書き直したらどうでしょうか？
If Cells(i, 2) = CDate(targetDate) Then

お礼

回答ありがとうございます。

セルの書式設定を共に　yy/mm/d　としております。

回答者様のアドバイスでうまくいけばよかったのですが、残念ながら　検出されませんでした。

補足

end ifの位置を変えたら、うまくいきました。
ありがとうございました。