How to write a csv file?

[apascual]

help! how will i write a csv file format using visual basic? data will be coming form sql tables.

can anyone send me a source code? tnx in advance.

 

[bryanbayfield]

Either use the filesystemobject (common to all ms office object models) or use open filename for [append|output] as #filenumber.

Try digging around in teh VBA help files.

 

[ETID]

Access or Excel?

 

[apascual]

excel file

 

[terzaghi]

Hi,

try this

Sub CreateAfile()
Dim str As String

Set fs = CreateObject("Scripting.FileSystemObject&quot
Set a = fs.CreateTextFile("c:\testfile.txt", True)

str = Worksheets("Sheet1&quot.Cells(6, 3).Value & ", " & Worksheets("Sheet1&quot.Cells(6, 4).Value
a.WriteLine (str)
a.Close
End Sub

I've taken this from the help of VBA.

hope this will help

A

 

[ETID]

saves the active sheet....you can splice variables into the path and file name to make it more dynamic.



ActiveWorkbook.SaveAs Filename:= _
"C:\my_path\file_name.csv", FileFormat:=xlCSV, _
CreateBackup:=False