How Do You Exclude Specific Tabs from Being Converted into CSV Files?

[njpamdnc]

Dear Sir or Madam:

My name is Robert, and I am a middle school math teacher who wants to EXCLUDE specific worksheet tabs from being converted to CSV files. The specific worksheet tabs to be EXCLUDED are XLSX, Math Grades Messenger, Directory Paths, POW Grader and POW Grader Student List. Please refer to the following macro:

Sub SaveEachTabAsCSV()


    Dim strMyPath    As String
    Dim wsMySheet    As Worksheet
    Dim intFileCount As Integer
    
    With Application
        .ScreenUpdating = False
        .DisplayAlerts = False
    End With
    
    strMyPath = Sheets("Directory Paths").Range("A1") 'Path to save the individual tabs as CSV files.  Change to suit but don't forget trailing backslash!!
    'Add trailing backslash if user hasn't
    If Right(strMyPath, 1) <> "\" Then
        strMyPath = strMyPath & "\"
    End If
    'Ensure the 'strMyPath' directory exists
    If Dir(strMyPath, vbDirectory) = "" Then
        MsgBox "The path """ & strMyPath & """ doesn't exist!!" & vbNewLine & "Please check it and try again.", vbCritical
        Exit Sub
    End If
    
    For Each wsMySheet In ThisWorkbook.Sheets
        If wsMySheet.Visible = xlSheetVisible Then
            intFileCount = intFileCount + 1
            wsMySheet.Copy
            ActiveWorkbook.SaveAs Filename:=strMyPath & wsMySheet.Name & ".csv", FileFormat:=xlCSV
            ActiveWorkbook.Close
        End If
    Next wsMySheet
    
    With Application
        .DisplayAlerts = True
        .ScreenUpdating = True
    End With
    
    MsgBox intFileCount & " CSV file(s) have now been saved in the """ & strMyPath & """ directory.", vbInformation


End Sub

 

[Fluff]

How about

For Each wsMySheet In ThisWorkbook.Sheets
   If wsMySheet.Visible = xlSheetVisible Then
      Select Case wsMySheet.Name
         Case "XLSX", "Math Grades Messenger", "Directory Paths", "POW Grader", "POW Grader Student List"
         Case Else
            intFileCount = intFileCount + 1
            wsMySheet.Copy
            ActiveWorkbook.SaveAs FileName:=strMyPath & wsMySheet.Name & ".csv", FileFormat:=xlCSV
            ActiveWorkbook.Close
      End Select
   End If
Next wsMySheet

 

[njpamdnc]

Hello Again...I don't mean to be disrespectful, but I really like the macro I provided for you due to the fact it automatically converts multiple worksheets into CSV files, and it automatically replaces previous unwanted versions of the CSV files. Your macro prompted me to save or not save each of my 25 worksheets whereas the macro I have been using never prompts me. The program runs uninterrupted until the process has ended. Is there a way you can embed/modify the code for my macro in order to prevent the following 5 worksheets from being converted?: "XLSX", "Math Grades Messenger", "Directory Paths", "POW Grader", and "POW Grader Student List". I have to convert Excel files to CSV files in order to upload student grades into my school district's online gradebook. During the uploading process, I would like to keep the folder I use for Excel to CSV file conversions to remain clutter free of unwanted CSV-converted files.

Robert

How about

For Each wsMySheet In ThisWorkbook.Sheets
   If wsMySheet.Visible = xlSheetVisible Then
      Select Case wsMySheet.Name
         Case "XLSX", "Math Grades Messenger", "Directory Paths", "POW Grader", "POW Grader Student List"
         Case Else
            intFileCount = intFileCount + 1
            wsMySheet.Copy
            ActiveWorkbook.SaveAs FileName:=strMyPath & wsMySheet.Name & ".csv", FileFormat:=xlCSV
            ActiveWorkbook.Close
      End Select
   End If
Next wsMySheet

 

[Fluff]

Just replace this part of your code

For Each wsMySheet In ThisWorkbook.Sheets
        If wsMySheet.Visible = xlSheetVisible Then
            intFileCount = intFileCount + 1
            wsMySheet.Copy
            ActiveWorkbook.SaveAs Filename:=strMyPath & wsMySheet.Name & ".csv", FileFormat:=xlCSV
            ActiveWorkbook.Close
        End If
    Next wsMySheet

with the code I supplied.

 

[njpamdnc]

It worked...Thank You!!!

Just replace this part of your code

For Each wsMySheet In ThisWorkbook.Sheets
        If wsMySheet.Visible = xlSheetVisible Then
            intFileCount = intFileCount + 1
            wsMySheet.Copy
            ActiveWorkbook.SaveAs Filename:=strMyPath & wsMySheet.Name & ".csv", FileFormat:=xlCSV
            ActiveWorkbook.Close
        End If
    Next wsMySheet

with the code I supplied.

 

[Fluff]

You're welcome & thanks for the feedback