Correct VBA for Getopenfilename. Why does it stop at like If strTargetFile = False Then Exit Sub

[jbesclapez]

hi there,

I am trying to solve this error. It must be something stupid i do not see - I hope so.
The macro is stoping at the line If strTargetFile = "False" Then Exit Sub
I have no idea why

Sub Test()
Dim wb As Workbook

strTargetFile = Application.GetOpenFilename(FileFilter:="Excel Files (*.xml*), *.xml*", Title:="Choose File To Copy", MultiSelect:=False)
 
If strTargetFile = "False" Then Exit Sub
 
      Set wb = Workbooks.OpenXML(Filename:=strTargetFile, LoadOption:=xlXmlLoadImportToList)
     Application.DisplayAlerts = True

     wb.Sheets(1).UsedRange.Copy ThisWorkbook.Sheets("Delete").Range("A1")
     wb.Close False
   
 
End Sub

Thanks for your time

 

[dmt32]

Hi,
try removing the quotes around "False" & see if resolves your issue

If strTargetFile = False Then Exit Sub

Dave

 

[jbesclapez]

Well spoted dmt32!! Thanks.

Hi,
try removing the quotes around "False" & see if resolves your issue

If strTargetFile = False Then Exit Sub

Dave

 

[dmt32]

Well spoted dmt32!! Thanks.

welcome - glad resolved

Dave