Outputting Excel rows to a series of text files

by 
Sub Export_Files()
    Dim sExportFolder, sFN
    Dim rArticleName As Range
    Dim rDisclaimer As Range
    Dim oSh As Worksheet
    Dim oFS As Object
    Dim oTxt As Object

    'sExportFolder = path to the folder you want to export to
    'oSh = The sheet where your data is stored
    sExportFolder = "C:\Disclaimers"
    Set oSh = Sheet1

    Set oFS = CreateObject("Scripting.Filesystemobject")

    For Each rArticleName In oSh.UsedRange.Columns("A").Cells
        Set rDisclaimer = rArticleName.Offset(, 1)

        'Add .txt to the article name as a file name
        sFN = rArticleName.Value & ".txt"
        Set oTxt = oFS.OpenTextFile(sExportFolder & "\" & sFN, 2, True)
        oTxt.Write rDisclaimer.Value
        oTxt.Close
    Next
End Sub

More Related Contents:

  1. Excel VBA – How to add dynamic array formula
  2. What is the difference between “Form Controls” and “ActiveX Control” in Excel 2010?
  3. Check if the file exists using VBA
  4. How can I create a progress bar in Excel VBA?
  5. Compare double in VBA precision problem
  6. Row count on the Filtered data
  7. Excel VBA Macro: User Defined Type Not Defined
  8. Automate IE via Excel to fill in a dropdown and continue
  9. Run-Time error 1004 Excel 2013
  10. VBA – Write all possible combinations of 4 columns of data [duplicate]
  11. Pasting an Excel range into an email as a picture
  12. Excel VBA to Export Selected Sheets to PDF
  13. Remove duplicates from array using VBA
  14. Controlling Internet Explorer local intranet using Excel VBA
  15. How to automatically insert a blank row after a group of data
  16. Rounding in MS Access
  17. Count unique values in Excel
  18. Get File Path (ends with folder)
  19. Get length of array?
  20. Copy sheet and get resulting sheet object?
  21. Sending mail using Outlook where the Send method fails
  22. How do I apply a SumIf Formula in a VBA Sub? Getting Error 1004
  23. Using a variable for row in (row,column) for a range in VBA
  24. Unicode string literals in VBA
  25. How to get the path of current worksheet in VBA?
  26. Excel VBA to match and line up rows
  27. Create a new object using the text name of the class
  28. How to open a workbook specifying its path
  29. Access files with long paths (over 260)
  30. How to highlight selected text within excel

Leave a Comment