Workbook check - exist or not

[VBABEGINER]

Hi All,
Im getting an error on red line. Error - Invalid inqualifier. can any one please help

If myFileExists("\\inmum-i-fs4\group$\WNA Skyline\Common\" & [COLOR=#ff0000]Uname[/COLOR].xls) Then
Workbooks.Open Filename:="uname.xls", UpdateLinks:=False
Worksheets(Uname).Select
Else
Set NewWb = Workbooks.Add
Application.Dialogs(xlDialogSaveAs).Show
NewWb.Save
NewWb.Close
End If

 

[Norie]

Try this.

If myFileExists("\\inmum-i-fs4\group$\WNA Skyline\Common\" & Uname  & ".xls") Then

 

[VBABEGINER]

Hi Norie, This is working Thanks..
Here I dont want to ask dialog window to save workbook. Instead if workbook is not available then it will save the new workbook in the given path which I have given..
Can you pls guide this too..

Try this.

If myFileExists("\\inmum-i-fs4\group$\WNA Skyline\Common\" & Uname  & ".xls") Then

Save workbook as name of Apllication.User. Thanks

 

[VBABEGINER]

Hi Norie,
Got something like this

path = "\\inmum-i-fs4\group$\WNA Skyline\Common\"
ActiveWorkbook.SaveAs Filename:=path & "\" & Uname

I have tested the below code now, and I found even though workbook exist with the user name it again creating new book..

Sub newWBcreate()
Dim Uname As String, path As String
Uname = Application.UserName
If myFileExists("\\inmum-i-fs4\group$\WNA Skyline\Common\" & Uname & ".xls") Then
Workbooks.Open Filename:="uname.xls", UpdateLinks:=False
Worksheets(Uname).Select
Else
Set newWB = Workbooks.Add
path = "\\inmum-i-fs4\group$\WNA Skyline\Common\"
ActiveWorkbook.SaveAs Filename:=path & "\" & Uname
Sheets("Sheet1").Select
ActiveSheet.Name = Uname
newWB.Save
newWB.Close
End If
End Sub

And this is Function who checks for workbook..

Function myFileExists(ByVal strPath As String) As Boolean
'Function returns true if file exists, false otherwise
    If Dir(strPath) > "" Then
        myFileExists = True
    Else
        myFileExists = False
    End If
End Function

 

[VBABEGINER]

Hi Norie, Got the solution. Mistake was file type.
I have taken .xls, it should be actually .xlsx
thanks..

 

[VBABEGINER]

Hey Norie,
On the same code, instead of creating new workbook, Is it possible to create copy of workbook which is exist on that location..
Many Thanks..

Try this.

If myFileExists("\\inmum-i-fs4\group$\WNA Skyline\Common\" & Uname  & ".xls") Then