To write contents to a file using VBA - without a new line at the end of file

[vinwin1]

Hi,

I do have a macro to prepare content and writing into a file (not text file though).

I am passing the file name with path and Data to be written to the function.

My file is created perfectly except the fact that at the end of the file it has one newline character.

I just need my file to end at the "End of String" which am passing. Please help in this regard.

My piece of code :

Public Sub AddData(File As String, Data As String)
Open File For Output As #1
Print #1, Data
Close #1
End Sub

 

[anvg]

Try

Public Sub AddData(File As String, Data As String)
    Open File For Output As #1
    Print #1, Data;
    Close #1
End Sub

Regards,

 

[vinwin1]

Thanks a lot .. It worked
Semi colon needs to be added at the end of the parameter made the trick..

 

[vinwin1]

Solution arrived.. !!

 

[anvg]

You are welcome!