VBA Code to Export Data to a CSV File in Excel

VBA Code:

Sub ExportToCSV()
    Dim rng As Range
    Dim filePath As String
    Dim cellData As String
    Dim fileNumber As Integer
    ' Set the range of cells to export to CSV
    Set rng = Range("A1:C10") ' Change the range as desired
    ' Set the file path for the CSV file
    filePath = "C:\Data\export.csv" ' Change the file path as desired
    ' Open the CSV file for writing
    fileNumber = FreeFile
    Open filePath For Output As fileNumber
    ' Loop through each row in the range
    For Each Row In rng.Rows
        ' Loop through each cell in the row
        For Each cell In Row.Cells
            ' Get the cell data and write it to the CSV file
            cellData = cell.Value
            Print #fileNumber, cellData;
        Next cell
        ' Move to the next line in the CSV file
        Print #fileNumber, ""
    Next Row
    ' Close the CSV file
    Close fileNumber
    ' Inform the user that the data has been exported
    MsgBox "Data exported to CSV file successfully."
End Sub

Check All VBA Codes

Join Our Telegram Group techguruplus telegram group Join Our WhatsApp Group techguruplus whatsapp group
Nazim Khan - Author Image

Nazim Khan (Author) 📞 +91 9536250020
[MBA in Finance]

Nazim Khan is an expert in Microsoft Excel. He teaches people how to use it better. He has been doing this for more than ten years. He is running this website (TechGuruPlus.com) and a YouTube channel called "Business Excel" since 2016. He shares useful tips from his own experiences to help others improve their Excel skills and careers.

Leave a Comment