VBA code Excel to .DAT file

Hi,

I am fairly new to VBA and I am looking for a code that will select a cell range and export it to a .DAT file to be saved in a particular folder.

The cell range is column E1:E776 on a sheet named "SNAP Output"
I would like the routine to select these cells on that worksheet and export them as a .DAT file to be saved in a file path named C:\SNAP
The name of the file needs to be taken from cell E7 on a sheet named "SNAP-1" (this is also the sheet where I will be running the command from).

Hopefully someone can help me with this!

Many Thanks.

'DAT' is an arbitrary extension and is not a defined file format like 'CSV' or 'XLS'

You can save an Excel workbook with a DAT extension and Excel will still open it, it'll complain that the extension and file format do not match but will open if you confirm.

In short, you need to explain the format of this DAT file - it may well be a CSV format, or Tab delimited, internally but you need to confirm that. If you don't know the format then upload a small example of an existing file.

I don't need Excel to open the file once it has been exported (it will then we opened in a pipe sizing programme that can read .DAT files). I can upload an example of the .DAT file tomorrow if it is still required.

Thanks

My comment about Excel was just to illustrate the extension really means nothing. The internal format is what defines if a program can read the file

As you still haven't described the file format, and 'Pipe Sizing Program' really means nothing so, yes, a sample of the file is needed.

Thanks for your replies.

I have tried uploading the file but it wouldn't let me as it says it is an invalid file type. An example of the code I have come up with so far is:

Sub test()

Open ThisWorkbook.Path & "\File1.dat" For Append As #1
Print #1, "SNAP Output"; .Range("E1").Value
Close #1

End Sub

This copies the data in cell E1 and saves it as the file type I am looking for in the same folder as the spreadsheet.
The parts I am struggling with are:
1. Changing where it is saved too (I want the file to go to a different directry to where the spreadsheet is located)
2. The cell range (I can only get it to work for one cell - I assumed this would just need to be .Range ("E1:E750") - but it fails when I do that.
3. I want the .DAT file to be named by the value in a cell each time (not the same each time as I currently have it).

I believe TMS is correct when saying that it is a Text file with a .DAT extension.

OK - the forum won't allow a DAT file to be uploaded, but just to prove a point about the extension you could rename the file like XXX.DAT.XLS (the multiple extensions don't matter - it's the last one that will be used) - you'd also need to mention the renaming in the message.

Might suggest you manually copy the range E1:E750 to a new workbook and then save that as a CSV or TXT file. Excel will force the extension to CSV or TXT so you need to rename the file to .DAT after.

That is essentially what the code you posted does, so if your uploader handles that file correctly the code you posted can be edited as you know the internal format of the file is as expected.

Sorry, not being pedantic but I prefer to work with known facts rather than what someone believes. Things usually work out quicker that way.