Saving a copy of my workbook to a folder I just created on a button click

[Jwalker1973]

Hey all new registered user and I have an issue. I created some VBA code to check for a folder existence and create it if not. That part works great. Even got it to use one of my textbox values to so I could variablize the folder name. The problem is when it saves. It does not save to the folder and the filename is messed up.

Private Sub CommandButton1_Click

If Len(Dir("C:\Users\Jamie\Documents\Set Up Trend Data\ " & Sheet1.TextBox1.Value, vbDirectory )) = 0 Then
MkDir "C:\Users\Jamie\Documents\Set Up Trend Data\ " & Sheet1.TextBox1.Value
End If

That part works great.This issue is with the below.

Dim Filepath As String
Dim Filename As String
Filepath ="C:\Users\Jamie\Documents\Set Up Trend Data\ " & Sheet1.TextBox1.Value
Filename = Sheet1.TextBox2.Value
ActiveWorkbook.SaveCopyAs filename:= FileMaker & Filename & ".xls"

Any help would be appreciated. Sorry for the way post looksI am on my phone at work.

 

[Jwalker1973]

Hey all new registered user and I have an issue. I created some VBA code to check for a folder existence and create it if not. That part works great. Even got it to use one of my textbox values to so I could variablize the folder name. The problem is when it saves. It does not save to the folder and the filename is messed up.

Private Sub CommandButton1_Click

If Len(Dir("C:\Users\Jamie\Documents\Set Up Trend Data\ " & Sheet1.TextBox1.Value, vbDirectory )) = 0 Then
MkDir "C:\Users\Jamie\Documents\Set Up Trend Data\ " & Sheet1.TextBox1.Value
End If

That part works great.This issue is with the below.

Dim Filepath As String
Dim Filename As String
Filepath ="C:\Users\Jamie\Documents\Set Up Trend Data\ " & Sheet1.TextBox1.Value
Filename = Sheet1.TextBox2.Value
ActiveWorkbook.SaveCopyAs filename:= FileMaker & Filename & ".xls"

Any help would be appreciated. Sorry for the way post looksI am on my phone at work.

Filepath on the last part sorry for the typo

 

[gordsky]

1) You appear to be missing a "\" between your filename and file path.
2) you have not included the filepath in the save line (not sure what the reference to filemaker is for in yoursave path so you may or maynot need to include it)

filepath in second part needs to be

Filepath ="C:\Users\Jamie\Documents\Set Up Trend Data\ " & Sheet1.TextBox1.Value & "\"

saveline needs to be

ActiveWorkbook.SaveCopyAs  Filepath & Filename & ".xls"

 

[Jwalker1973]

The FileMaker was a typo on my part on this post.

 

[gordsky]

The FileMaker was a typo on my part on this post.

change the lines as suggested above and your code should work

 

[Jwalker1973]

@gordsThank you so much. Works perfectly.

 

[gordsky]

@gordsThank you so much. Works perfectly.

no problem, if your query is complete please mark as solved by clicking on the tick icon next to the answer