Edmond
11-21-2018, 09:07 AM
Hello everyone,
I am trying to open a xls unknown file in a known folder. But with no success so far. I googled it and find this code:
Sub OpenFiles()Const FOLDER_NAME As String = "c:\Users\Edmond\Documents\Other"
Dim NextFile As String
NextFile = Dir(FOLDER_NAME & "*.xlsx", vbNormal)
If (Len(NextFile) > 0) Then
MsgBox "found " & NextFile
End If
End Sub
Unfortunately, it doesn't work. Would you have an idea why?
Many thanks in advance for your help
I am trying to open a xls unknown file in a known folder. But with no success so far. I googled it and find this code:
Sub OpenFiles()Const FOLDER_NAME As String = "c:\Users\Edmond\Documents\Other"
Dim NextFile As String
NextFile = Dir(FOLDER_NAME & "*.xlsx", vbNormal)
If (Len(NextFile) > 0) Then
MsgBox "found " & NextFile
End If
End Sub
Unfortunately, it doesn't work. Would you have an idea why?
Many thanks in advance for your help