VBA to insert data into notepad without extra double quotes

[saidhruv]

Dear All,

Can you please help me with a VBA to export data into notepad file. I am facing three problems:
Problem1: Certain lines when exported to notepad file contain DOUBLE QUOTEs at start & end of the line. These extra double quotes need not be inserted into notepad. Please note that data may contain actual double quote, hence a substitue logic may not work here.
Problem2: After last data point the notepad will take an extra blank line. This extra line or tab is not required.
Problem3: Text file name should be same as excel file name and should be saved at same path where excel is available.0

Sharing sample of excel file. Also sharing text file which i am currently getting, which is erroneous. Also sharing expected output.

regards
dhruv

 

[Marc L]

Hi,

according to your attachment try next demonstration !​

Sub Demo()
    Open Left(ActiveWorkbook.FullName, InStrRev(ActiveWorkbook.FullName, ".")) & "txt" For Output As #1
    Print #1, Join(Application.Transpose(ActiveSheet.UsedRange.Columns(1).Value), vbCrLf);
    Close #1
End Sub

Do you like it ? So thanks to click on bottom right Like !
​

 

[saidhruv]

Dear Marc L, this code is super perfect. Thanks a lot.. God Bless You Marc L. with super Health & super Happiness!

 

[Marc L]

Thanks and enjoy it !

It works only for data of first column used according to your attachment …
​

 

[saidhruv]

Thanks and enjoy it !

It works only for data of first column used according to your attachment …
​

Dear Marc L - can you pls share a code that can insert in Notepad++ instead of Notepad? Same logic, but saving in Notepad++

 

[Marc L]

As you very did not understand :
my code does not save for Notepad
but for a file format and here as a text file.

Notepad & Nopepad++ are both text files editor :
so whatever editor you use, no needs to mod my code !
​