print a string without quotation marks in a flat file in VBA

Question

Im creating a vba Function which creates a flat file with just one line, on same directory of my Excel file, everything works fine

but when I print that line which is contained inside of a string I get my message inside of quotation marks

if I expect something like

HDR201412101136452014121090105500000000000000000000

I get this

"HDR201412101136452014121090105500000000000000000000"

this is my code:

Public Function generateFlatFile()

    Open ThisWorkbook.Path & "\" & FLAT_FILE_NAME For Output As #1

    Dim header As String
    header = "HDR"
    header = header & Format(Now, "yyyymmddhhnnss")
    header = header & Format(Now, "yyyymmdd")
    header = header & Worksheets(BD).Cells(2, 3)
    header = header & 5
    header = header & "00000000000000000000"

    Write #1, header

    Close #1
End Function

my bad, I developed a Function for generating and returning Header string because final code will be more complex, but for this question I can put everything inside of generateFlatFile Function, code updated — Jesus, Dec 10 '14 at 18:10

score 3 · Accepted Answer · answered Dec 10 '14 at 18:23

3

Write #n will enclose strings in quotation marks. If you want full control over how the file gets written, you need to use Print #n instead.

answered Dec 10 '14 at 18:23

Mathieu Guindon

69,817
8
107
235

print a string without quotation marks in a flat file in VBA

1 Answers1