Saving workbook to CSV with Custom Name

[ESPN8]

Hi Everyone,

I have figured out some code to copy all the data from a table, create a new workbook, paste the data and then save the workbook as a CSV as the name of the original table the data came from. I now am trying to figure out how to save the file as a custom name from cell L23 from the original workbook. Any help would be appreciated.

Thank you in Advance

Sub ExportTableToCSVFile()
Dim wb As Workbook, wbNew As Workbook
Dim ws As Worksheet, wsNew As Worksheet
Dim wbNewName As String


Set wb = ThisWorkbook
Set ws = ActiveSheet
Set wbNew = Workbooks.Add
With wbNew
Set wsNew = wbNew.Sheets("Sheet1")
wbNewName = ws.ListObjects(1).Name
ws.ListObjects(1).DataBodyRange.Copy
wsNew.Range("A1").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
.SaveAs Filename:=wb.Path & "" & wbNewName & ".csv", _
FileFormat:=xlCSVMSDOS, CreateBackup:=False
End With
ActiveWorkbook.Close SaveChanges:=True

End Sub

 

[Joe4]

Try changing this line:

[COLOR=#333333]wbNewName = ws.ListObjects(1).Name[/COLOR]

to:

[COLOR=#333333]wbNewName = Range("L23")[/COLOR]

 

[ESPN8]

Try changing this line:

[COLOR=#333333]wbNewName = ws.ListObjects(1).Name[/COLOR]

to:

[COLOR=#333333]wbNewName = Range("L23")[/COLOR]

@Joe4 I have tried that and got an error

Run-Time Error 1004'
Method SaveAs' of object'_Workbook' failed

then
.SaveAs Filename:=wb.Path & "" & wbNewName & ".csv", _
FileFormat:=xlCSVMSDOS, CreateBackup:=False
is highlighted in yellow

 

[Joe4]

What exactly is in cell L23?

 

[DanteAmor]

The reference to the sheet was missing:

Try changing this line:

[COLOR=#333333]wbNewName = ws.ListObjects(1).Name[/COLOR]

to:

[COLOR=#333333]wbNewName = [/COLOR][COLOR=#ff0000][B]ws.[/B][/COLOR][COLOR=#333333]Range("L23")[/COLOR]

 

[Joe4]

The reference to the sheet was missing

Ah, yes. Good catch Dante!

 

[DanteAmor]

 

[ESPN8]

The reference to the sheet was missing:

Dante I am still getting the same error. I believe the error is referencing the object, but I can't figure out how to fix it.

 

[DanteAmor]

Then you must answer Joe's question in post #4

 

[ESPN8]

"Journal Entry Upload 8.26.19"