Help for macro to export to text file with certain amount of spaces.

Hi I would like if some can help me find a macro, which can convert a excel file to text file. And that the output text file look special. Need for and special application, to upload it to.

There is 3 columns in sheet 2. I want all lines to come out without spaces, the only special is that i want to have the - replaced with 183 blank spaces.

So the outlook file will look like this example.

Please Login or Register  to view this content.

I have this below code for take it out to textfile but not sure it will work. It make spaces between all columns.

So any other macro would be great to have. I have attached a test sheet, where you can see the file before the conversion to text.

Have a look please.

Sincerely

Abjac

Please Login or Register  to view this content.

Hi Abjac,
put in cell D2 the formula =REPLACE(CONCATENATE(A2;B2;C2);40;1;REPT(" ";183))

this should get you started

rgds,
Carl

Please Login or Register  to view this content.

use like:

Please Login or Register  to view this content.

Hi Thanks Carl your formula is working, but i think i need some which can make the result in column A before i export to text file.

Yudligar. I tried yours but can really make it work. Its like nothing really happen when i use it. Could you have a look at the test sheet i have here and come with a suggertion.

Thanks to both for now

Sincerely Abjac

Hi,

I'm not sure what the issue is, I tried it on your example and it worked ok. For your fulll code you would use it like below, note, I had to take out the sheet(2).activate as this was selecting a blank worksheet:

Please Login or Register  to view this content.

Change

Please Login or Register  to view this content.

to

Please Login or Register  to view this content.