Save Worksheets as CSV

Hi, below I've included a VB script which saves each worksheet within a workbook as a separate CSV file. I would like help modifying this script so only one of my worksheets called "budgetcsv" saves.

Public Sub DoTheExport()
Dim FName As Variant
Dim Sep As String
Dim wsSheet As Worksheet
Dim nFileNum As Integer
Dim csvPath As String


Sep = InputBox("Enter a single delimiter character (e.g., comma or semi-colon)", _
"Export To Text File")
'csvPath = InputBox("Enter the full path to export CSV files to: ")

csvPath = GetFolderName("Choose the folder to export CSV files to:")
If csvPath = "" Then
    MsgBox ("You didn't choose an export directory. Nothing will be exported.")
    Exit Sub
End If

For Each wsSheet In Worksheets
wsSheet.Activate
nFileNum = FreeFile
Open csvPath & "\" & _
  wsSheet.Name & ".csv" For Output As #nFileNum
ExportToTextFile CStr(nFileNum), Sep, False
Close nFileNum
Next wsSheet
End Sub

Hello jregan,

The macro will now export "Budget" as a CSV file.

Public Sub DoTheExport()

  Dim FName As Variant
  Dim Sep As String
  Dim wsSheet As Worksheet
  Dim nFileNum As Integer
  Dim csvPath As String


    Sep = InputBox("Enter a single delimiter character (e.g., comma or semi-colon)", "Export To Text File")
   
    'csvPath = InputBox("Enter the full path to export CSV files to: ")
    csvPath = GetFolderName("Choose the folder to export CSV files to:")
   
    If csvPath = "" Then
      MsgBox ("You didn't choose an export directory. Nothing will be exported.")
      Exit Sub
    End If

    Set wsSheet = Worksheets("Budget")
    
    nFileNum = FreeFile
      Open csvPath & "\" & wsSheet.Name & ".csv" For Output As #nFileNum
        ExportToTextFile CStr(nFileNum), Sep, False
      Close nFileNum
   
End Sub

Basz

Your post does not comply with Rule 2 of our Forum RULES. Don't post a question in the thread of another member -- start your own thread. If you feel it's particularly relevant, provide a link to the other thread.

You can start you own thread with specific issues to be addressed