Creating *.dat files Using Excel Column

[bl6691]

Dear all,
Thanks for your helps for always. I m new to here but i follow you threads everytime. I would like to ask a code to create .dat extended files by using excels columns. For example ; at the excel at A column ( A1:A350 ) there are names ( example ; Analysis1, Analysis2...) I would like to create .dat extended files from these names in a specific location ( F:/Analysis/Analysis1.dat ). my first question is this. The other qoestion is how i could fill these created .dat files automatically? Example ; I want to write something inside of the "Analysis1.dat" file from my main excel "Sheet2".
Thanks in advance,
Best Regards

 

[taurean]

Hi and Welcome to MrExcel.

Here's one way of doing it.

Public Sub CrDtFlAnWrSmToIt()
'Loop through first sheet's column A
For i = 1 To Range("A" & Rows.Count).End(xlUp).Row 'Finds last row in column A
    'Change the path in quotes to suit
    Open "F:\Analysis\" & Range("A" & i).Value & ".dat" For Output As #1 'Create dat file
    'Here we write from Sheet2 Range A1 to the dat file
    Print #1, Sheets("Sheet2").Range("A1").Value
    Close #1 'Close file after writing to it
Next i
End Sub

 

[bl6691]

Thank you very much for your quick help, its very helpfull to me. So can i want some adition to macro if possible.
At the second sheet ( sheet2 ), i want A1 text to write at Analysis1.dat ( The first .dat file that have been created at Sheet1 A1 ), A2 text ( sheet2 ) to write A2 .dat file created. I hope its clear..
Thanks in advance
Regards.

 

[taurean]

Glad to know that it helps.

You will have to amend the macro as below.

Public Sub CrDtFlAnWrSmToIt()
'Loop through first sheet's column A
For i = 1 To Range("A" & Rows.Count).End(xlUp).Row 'Finds last row in column A
    'Change the path in quotes to suit
    Open "F:\Analysis\" & Range("A" & i).Value & ".dat" For Output As #1 'Create dat file
    'Here we write from Sheet2 Range A1 to the dat file
    Print #1, Sheets("Sheet2").Range("A" & i).Value
    Close #1 'Close file after writing to it
Next i
End Sub

 

[bl6691]

Thank you very much for your helps.
Best Regards