CSV Export

[gimli]

Hello all,

Looking to export a range of cells to a csv file. I would like to name the file based on the data in a cell.
for ex:

A1 ="THIS IS A TEST"

So i would like to export all the data in cells b1:n100 to a csv called "THIS IS A TEST"
Not vba literate as id like to be.
Any help would be great!

 

[igold]

Try this. This will take info from "Sheet1" (you can change that as noted) and save it as a CSV to your default Excel save location (you can change that too).

Sub SaveAsCSV()
    
    Dim wb As Workbook
    Dim nam As String
    
    Application.DisplayAlerts = False
    With Worksheets("Sheet1")   'Change "Sheet1" to your sheet name.
        nam = Cells(1, 1)
        .Range("B1:N100").Copy
    End With
    Set wb = Workbooks.Add
    With wb
        ActiveSheet.PasteSpecial
        .SaveAs Filename:=nam & ".csv", FileFormat:=6, CreateBackup:=False   'you can change save location here
        .Close
    End With
    Application.DisplayAlerts = True
    
End Sub

 

[Yongle]

@igold

nam = .Cells(1, 1)

 

[gimli]

Hello, thanks for the help..got subscript out of range error for line
nam = .Cells(1, 1)

Not sure what that means...

Sub SaveAsCSV()
    
    Dim wb As Workbook
    Dim nam As String
    
    Application.DisplayAlerts = False
    With Worksheets("Sheet1")   'Change "Sheet1" to your sheet name.
         nam = .Cells(1, 1)
        .Range("B1:N100").Copy
    End With
    Set wb = Workbooks.Add
    With wb
        ActiveSheet.PasteSpecial
        .SaveAs Filename:=nam & ".csv", FileFormat:=6, CreateBackup:=False   'you can change save location here
        .Close
    End With
    Application.DisplayAlerts = True
    
End Sub

 

[igold]

Try changing that line to:

nam = Range("A1")

 

[gimli]

Try changing that line to:

nam = Range("A1")

Hi ya,
Got the same issue...

 

[igold]

@Yongle

Yup

 

[igold]

Sorry about that, I left off the period.

nam = .Range("A1")

 

[gimli]

Got it to work thanks! I had a bad sheet reference!

 

[igold]

Got it to work thanks! I had a bad sheet reference!

You're welcome. I was happy to help. Thanks for the feedback!