Create Text files based on data in Excel

Question

I have a data with 2 columns and 75 rows i need a vba code to create 75 text files with name mentioned in column a and data to be included in text file in column b. Thanks in Advance

Answer 1

Sub Test()

  Dim R As Range

  Dim FName As String, Contents As String

  Dim ff As Integer

  For Each R In Range("A1", Range("A" & Rows.Count).End(xlUp))

    FName = ThisWorkbook.Path & "" & R.Value

    Contents = R.Offset(, 1).Value

    ff = FreeFile

    Open FName For Binary Access Write Lock Read Write As #ff

    Put #ff, , Contents

    Close #ff

  Next

End Sub

Answer 2

Dear Andreas,

I just added & ".txt" to end of FName = ThisWorkbook.Path & "" & R.Value

and the code runs as required.

Thanks alot for help.

Answer 3

i want the output file to be saved as txt files is it possible using mail merge?

Answer 4

Use the Merge to Individual Documents facility on my Merge Tools Add-in that is contained in the MERGE TOOLS ADD-IN.zip file that you can download from the following page of my One Drive:

http://bit.ly/1hduSCB

Extract the files from the archive and read the:

“READ ME – Setting up and using the Merge Tools Add-in.pdf

to see how to install and use the various tools.  Using those tools, it is possible to perform the following types of merge that cannot be done with Mail Merge “out-of-the-box”:

●    Merge to e-mail messages either with or without attachments, with the documents created by the merge being sent as either Word or PDF attachments or as the body of the e-mail message.

●    Merge to individual documents in either Word or PDF format with the filenames being supplied by the data in one of the fields in the data source

●    Many to One type merges, which can be used for creating documents such as invoices where there are multiple records in the data source that have common data in one of the fields

●    Merging to a document that will include a chart that is unique to each record in the data source

●    Merging a document with Content Controls

●    Merging a document that contains Legacy FormFields

●    Duplex Merges

●    Merging to a printer that will collate and staple the output created from each record in the data source.

The requirements for using the system are:

●    The mail merge main document must be of the Letters type, though that does not mean that the output cannot be sent as an e-mail message where relevant.

●    For the Many To One, Merge with Attachments and Merge to Individual Docs utilities, the data source may be either a table or query in an Access database, or in the form of an Excel worksheet and that worksheet must be the first sheet in the Excel workbook. If the data is on some other sheet, you can easily move that sheet so that it is the first sheet in the workbook by clicking on the sheet tab and dragging it to the left.  For the Chart Merge utility, see the Mail Merging with Charts document that is included in the Merge Tools Add-in Zip file for additional requirements for the data source for use with that utility

●    For a data source in the form of an Excel worksheet, the field names must be in the first row of the worksheet and there must be a field name in all of the cells in that row that are within the range of columns that contain the data.

●    For both types of data source, the field names must contain only alphanumeric characters (No @,#,$,%,&,(,), etc) and the field names must not start with a numeric character (0-9). The number of characters in the field names, including spaces, must not be more than 40.

For a demonstration of the use of the facility, prepared by a Microsoft employee, see

https://www.youtube.com/watch?v=yj_s3cdfVDY