SaveAs ilename in Current Directory

[ilikered100]

I'm having trouble with the following code. It works perfectly, except that it adds the name of the parent folder at the beginning of the SaveAs filename.

The SaveAs file name should be "ParsedInfoData.xlsx", but it is saving as "ParsersParsedInfoData.xlsx". The name of the folder these files reside in is "Parsers" which is being added on to the beginning of the file name.

Any idea on how to get it to just Save As "ParsedInfoData.xlsx"

Here's my code:

-------

Sub CreateNewWorkbook()


Dim NewWorkBook As Workbook
Dim folderPath As String


Workbooks("InfoParser.xlsm").Activate
folderPath = ThisWorkbook.Path


Set NewWorkBook = Workbooks.Add
NewWorkBook.SaveAs Filename:=folderPath & "ParsedInfoData.xlsx"

MsgBox "Your Parsed data has been saved in the current folder/directory in which you are working"


End Sub

-----


Thank you,
Carolyn

 

[ttray33y]

I'm having trouble with the following code. It works perfectly, except that it adds the name of the parent folder at the beginning of the SaveAs filename.

The SaveAs file name should be "ParsedInfoData.xlsx", but it is saving as "ParsersParsedInfoData.xlsx". The name of the folder these files reside in is "Parsers" which is being added on to the beginning of the file name.

Any idea on how to get it to just Save As "ParsedInfoData.xlsx"

Here's my code:

-------

Sub CreateNewWorkbook()


Dim NewWorkBook As Workbook
Dim folderPath As String


Workbooks("InfoParser.xlsm").Activate
folderPath = ThisWorkbook.Path


Set NewWorkBook = Workbooks.Add
NewWorkBook.SaveAs Filename:=folderPath & "ParsedInfoData.xlsx"

MsgBox "Your Parsed data has been saved in the current folder/directory in which you are working"


End Sub

-----


Thank you,
Carolyn

[COLOR=#333333]Set NewWorkBook = Workbooks.Add[/COLOR]
[COLOR=#333333]NewWorkBook.SaveAs Filename:=[/COLOR][I][B][COLOR=#ff0000]folderPath &[/COLOR][/B][/I][COLOR=#333333] "ParsedInfoData.xlsx"[/COLOR]

just remove folderPath &

 

[ilikered100]

[COLOR=#333333]Set NewWorkBook = Workbooks.Add[/COLOR]
[COLOR=#333333]NewWorkBook.SaveAs Filename:=[/COLOR][I][B][COLOR=#ff0000]folderPath &[/COLOR][/B][/I][COLOR=#333333] "ParsedInfoData.xlsx"[/COLOR]

just remove folderPath &

Thank you so much! So simple... I spent hours trying to figure out the problem!

Carolyn

 

[ttray33y]

your welcome.