EXCEL code need help 1

[min460120]

Hi,

I wrote code to read information from worksheet and put
output to .txt files. The output is SQL statements.
But the output has " " in between.
For example the output like:
"Update table set person_id = 55 Where dept_id = 22"
How to get rid of " "???



Very appreciate your help.

 

[dsi]

Here is a sample that removes all of the spaces in a string.

Sub RemoveSpaces()
    Dim sText As String, s1 As String, iPos As Integer
    sText = "123 789"
    MsgBox "Before: " & sText
    iPos = InStr(1, sText, " ")
    Do While iPos > 0
        s1 = s1 & Left(sText, iPos - 1)
        sText = Right(sText, Len(sText) - iPos)
        iPos = InStr(1, sText, " ")
    Loop
    s1 = s1 & sText
    MsgBox "After: " & s1
End Sub

 

[euskadi]

I'm not sure if you're asking to remove spaces or if you're asking how to remove the quotation marks?

Since SQL without spaces doesn't fly, and since I've encountered the 'wish I didn't have quotes in my .txt file' issue before, here's my response...

Use "Print #1" instead of "Write #1" when writing to your text file. "Write" puts quotes and commas in the file, "Print" leaves it clean.