レン（Dir（ActualValue））= 0の場合、コードexcel vbaは常にループ内でtrueを返します

Question

私はファイルが上記のディレクトリにあるかどうかをチェックするExcel vbaサブを持っています。問題は、forループの最初の反復の後に常にFile Savedに移動することです。ファイルが実際に見つかった場合、ActualValueの値には値が含まれていますが、値が見つからない場合は値が ""です。問題はそれが常に= 0または= ""状態になることです。

Dim ActualValue As String 

For i = 17 To 32 
On Error Resume Next 

DateFormat = Format("2017-12-11", "yyyy-mm-dd") 

Sheet4.Cells(i, 5).Select 
Selection.ClearContents 

SearchValue = Sheet4.Cells(i, 1).Value 

If SearchValue = "" Then 
    MsgBox "No A/C indicated. Please check.", vbOKOnly 
    Exit Sub 
End If 

ActualValue = Dir("A:\123 456\789\abc efg\Sample Folder\SAMPLE FOLDER\" & DateFormat & "\" & SearchValue & "" & "*.xls") 

If Len(Dir(ActualValue)) = 0 Then 
    Sheet4.Cells(i, 10).Value = "File Saved" 
Else 
    Sheet4.Cells(i, 10).Value = "File Missing" 
    GoTo FileMissing 
End If 

FileMissing: 
Next i 

Application.ScreenUpdating = True 
End Sub  

Answer 1

今日の日付をStringに変換しようとしているDateFormat = Format("2017-12-11", "yyyy-mm-dd")と思っています。この場合、DateFormat = Format(Date, "yyyy-mm-dd")を使用してください。

また、.xls、.xlsxと.xlsmなどの拡張（2003形式を含む）すべてのExcelファイルの種類を、取得するためのより安全な方法は、.xl??を使用することです。

最後ののコードでは、On Error Resume Nextを使用するか、GoToを使用する必要はありません。

コード

Option Explicit 

Sub CheckFilesinDirDate() 

Dim ActualValue As String, SearchValue As String, DateFormat As String 
Dim i As Long 

For i = 17 To 32   
    DateFormat = Format(Date, "yyyy-mm-dd") ' I think you are trying to get today's date int to a String 

    Sheet4.Cells(i, 5).ClearContents 

    SearchValue = Sheet4.Cells(i, 1).Value   
    If SearchValue = "" Then 
     MsgBox "No A/C indicated. Please check.", vbOKOnly 
     Exit Sub 
    End If 

    ActualValue = Dir("A:\123 456\789\abc efg\Sample Folder\SAMPLE FOLDER\" & DateFormat & "\" & SearchValue & "" & "*.xl??")    
    If Dir(ActualValue) <> "" Then 
     Sheet4.Cells(i, 10).Value = "File Saved" 
    Else 
     Sheet4.Cells(i, 10).Value = "File Missing" 
    End If 
Next i 

Application.ScreenUpdating = True 

End Sub 

Answer 2

DateFormat = Format("2017-12-11", "yyyy-mm-dd")は意味を持ちません。
フォーマットは、数字または日付にフォーマット文字列を適用します。したがって、私たちがdec-11について話すなら、
DateFormat = Format(#12-11-2017#, "yyyy-mm-dd")と読むべきです。

また、ActualValue計算の直後にDebug.Print ActualValueを追加して、予想通りの結果を返すかどうかを確認できます。