VBA Save As Current File Name

[skiir10]

Hello,

I'm sorry I'm very new to this, but I am having a problem saving as with VBA. I recorded a macro, and have amended a bit from other posts. This is what I have so far. I am trying to save a .txt file as a .csv with the current file name.

But I get a runtime error that it cannot access file.

Any help much appreciated.

Sub Saveas()
'
' Saveas Macro
'


'
ActiveWorkbook.Saveas Filename:= _
"Data/W1/" + ActiveWorkbook.Name + ".csv" _
, FileFormat:=xlCSVUTF8, CreateBackup:=False
End Sub

 

[winrow]

Hello,

your problems most likely lay in:
- an incomplete path i.e. C:\ is missing (watch out too: \ is different from /)
- + symbols should be replaced for ampersand (&) i.e. the concatenation symbol

Then this should do

Sub Saveas()


Dim wkbpath As String
Dim wkbname As String


    wkbpath = "C:\data\w1\"
    wkbname = ActiveWorkbook.Name


ActiveWorkbook.Saveas Filename:= _
    wkbpath & wkbname & ".csv", FileFormat:=xlCSVUTF8 _
, CreateBackup:=False


End Sub

Hope this helps

 

[skiir10]

Hi winrow,

Thanks for the help. Unfortunately, I am still getting a run-time error '1004' and cannot access the CR1.rda.csv

Thanks

 

[winrow]

Hi,

Strange but it seems you are not the first one to have the problem https://www.mrexcel.com/forum/excel-questions/389811-saving-workbook-csv-vba.html. Looking around made me think that ActiveWorkbook should be replaced by ThisWorkbook ( please try and let me know). Other potential helpful source: https://stackoverflow.com/questions/41360227/vba-activeworkbook-saveas-runtime-error-1004

If not, could someone else lend a hand?

 

[skiir10]

Still same run-time error with ThisWorkbook