GetOpenFilename problem

[henrik2h]

I have this macro to copy data from Excel and paste into Word. I am trying to get the file picker to work but throws me an error. If no file is selected it works as expected, the macro ends. If a file is selected I get "run error 13, incompatible types" (or something like that in English) on the row marked below. Any ideas?

Dim wb As Workbook
Dim wApp As Word.Application
Dim wDoc As Object
Dim wFileSelect As String

Set wb = ActiveWorkbook
    
    Set wApp = CreateObject("Word.Application")
            
    'Choose the target Word file
    
    wFileSelect = Application.GetOpenFilename("Word-files,*.doc*", _
        1, "Select Source File To Open", , False)
    
    'if the user didn't select a file, exit sub
    If wFileSelect = False Then    '''ERROR HERE!
        Set wApp = Nothing
        Set wb = Nothing
        Application.ScreenUpdating = True
        Exit Sub
    End If
    
    ' Open the word file
    
    wApp.Visible = True
    Documents.Open wFileSelect
    Set wDoc = ActiveDocument

 

[nemmi69]

Change

 If wFileSelect = False Then    '''ERROR HERE!

to

 If wFileSelect = "False" Then

 

[henrik2h]

Change

 If wFileSelect = False Then    '''ERROR HERE!

to

 If wFileSelect = "False" Then

Thank you, but noop, then the error check is not working. So what I want is if no file is selected the macro stops, if a file is selected the macro continues and opens the file

 

[nemmi69]

Should do as wFileSelect is defined as a String. Either that or change it to variant to accept FALSE as a Boolean.

 

[henrik2h]

Should do as wFileSelect is defined as a String. Either that or change it to variant to accept FALSE as a Boolean.

It IS working when no file is selected, FALSE is returned and the macro ends. The problem is when a file actually is selected, the line should then pass by the If-block but actually throws an error. It is probably something easy but I just can't figure it out. If I use "False" and no file is choosen then the macro tries to open a file that does not exist and an error occurs.

 

[henrik2h]

Should do as wFileSelect is defined as a String. Either that or change it to variant to accept FALSE as a Boolean.

Changing the data type to Variant worked, thank you!

 

[nemmi69]

Odd, If I select a file it passes over the IF statement.

 

[nemmi69]

Changing the data type to Variant worked, thank you!

Thanks!