How to create a separate CSV file from VBA?

by

Is something like this what you want?

Option Explicit
Sub WriteFile()

  Dim ColNum As Integer
  Dim Line As String
  Dim LineValues() As Variant
  Dim OutputFileNum As Integer
  Dim PathName As String
  Dim RowNum As Integer
  Dim SheetValues() As Variant

  PathName = Application.ActiveWorkbook.Path
  OutputFileNum = FreeFile

  Open PathName & "\Test.csv" For Output Lock Write As #OutputFileNum

  Print #OutputFileNum, "Field1" & "," & "Field2"

  SheetValues = Sheets("Sheet1").Range("A1:H9").Value
  ReDim LineValues(1 To 8)

  For RowNum = 1 To 9
    For ColNum = 1 To 8
      LineValues(ColNum) = SheetValues(RowNum, ColNum)
    Next
    Line = Join(LineValues, ",")
    Print #OutputFileNum, Line
  Next

  Close OutputFileNum

End Sub

Don’t forget you will need to put quotes around any field containing a comma.

More Related Contents:

  1. Saving excel worksheet to CSV files with filename+worksheet name using VB [duplicate]
  2. Excel: macro to export worksheet as CSV file without leaving my current Excel sheet
  3. Want VBA in excel to read very large CSV and create output file of a small subset of the CSV
  4. Loop through files in a folder using VBA?
  5. How to error handle 1004 Error with WorksheetFunction.VLookup?
  6. How can Excel VBA open file using default application
  7. How to compare two entire rows in a sheet
  8. Run same excel macro on multiple excel files
  9. how to detect whether VBA excel found something?
  10. VBA : save a file with UTF-8 without BOM
  11. Saving a Excel File into .txt format without quotes
  12. Excel VBA “Method ‘Document’ of object ‘IWebBrowser2’ failed”
  13. Determine if cell contains data validation
  14. VBA – Range to jpg picture
  15. Fastest way to delete rows which cannot be grabbed with SpecialCells
  16. Combine multiple Excel workbooks into a single workbook
  17. Excel Macro, inserting internationally valid formula during run-time
  18. Sheet protection: UserInterFaceOnly gone
  19. VBScript – How to make program wait until process has finished?
  20. How to break long string to multiple lines
  21. How to copy a chart from Excel to PowerPoint?
  22. vba paste not working
  23. mac excel vba loop : from list & then export as pdf
  24. Can Advanced Filter criteria be in the VBA rather than a range?
  25. In Excel VBA, what is the way to check if the web page is fully loaded?
  26. Excel Useform: How to hide application but have icon in the taskbar
  27. Reading Web Pages using Excel VBA
  28. Excel VBA: auto click and open file from website
  29. How to have vba execute every 10 minutes?
  30. Unable to read data from a CSV using ADO due to the driver thinking I am working with integers/number and showing nulls instead of text

Leave a Comment