I don't know much coding but if I want to add quotes in first column and no quotes in second column what changes do I need to make in module listed below. I have tried few things but it doesn't seem to work. I will kee trying but any help you can provide will be appriciated.
Found this module in following post in this forum http://www.excelforum.com/excel-prog...no-quotes.html
Thanks in advance for your help
Sub test() Dim arr, col1 Dim stri$ Dim x As Integer With Application arr = Sheet1.Cells(1, 1).CurrentRegion.Value col1 = .Transpose(.Index(arr, 0, 1)) Open "D:\My Documents\Testcsv.csv" For Output As #1 For x = 1 To UBound(arr) stri = Replace(Join(.Index(arr, x, 0), """,""") & """", ",""""", "") Print #1, col1(x) & Right(stri, Len(stri) - Len(col1(x)) - 1) Next x Close End With End Sub
Bookmarks