Want to save a worksheet as a .csv and name it using data from a specific cell on another worksheet within that workbook.

Question

Trying the following but it is saving the file as fname.csv and not what I want

    Dim fname

With ActiveWorkbook

fname = .Worksheets(“Macro").Range("D3").Value & ".csv"

Sheets("item_mass").Select

.SaveAs "C:\Documents and Settings\a01760\Desktop\Data_Loads\Prod Trans\130\fname"

End With

 

    ActiveWorkbook.Save

   

    ActiveWindow.Close

    Sheets("Macro").Select

 

Answer 1

.SaveAs "C:\Documents and Settings\a01760\Desktop\Data_Loads\Prod Trans\130\fname"

.SaveAs "C:\Documents and Settings\a01760\Desktop\Data_Loads\Prod Trans\130\" & fname

---

It never hurts to try. In a worst case scenario, you'll learn from it.

Answer 2

This is the VB.NET forum.  Your question would get a more accurate response in the Office forum.  You can find that forum in the link below:

For VBA, Office (VSTO), Macros and VBScript Questions

:)

---

Doug

SEARCH ... then ask